add basic vm tests

Message-ID: <20240111210907.419689-6-luca@orpolo.org>

2 files changed, 87 insertions, 1 deletions

diff --git a/tests/test-vm.c b/tests/test-vm.c
new file mode 100644
index 00000000..4ece792e
--- /dev/null
+++ b/tests/test-vm.c
@@ -0,0 +1,85 @@
+/*
+ *  Copyright (C) 2024 Free Software Foundation
+ *
+ * This program is free software ; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation ; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY ; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with the program ; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+#include <syscalls.h>
+#include <testlib.h>
+
+#include <mach/machine/vm_param.h>
+#include <mach/std_types.h>
+#include <mach/mach_types.h>
+#include <mach/vm_wire.h>
+#include <mach/vm_param.h>
+
+#include <device.user.h>
+#include <gnumach.user.h>
+#include <mach.user.h>
+#include <mach_port.user.h>
+
+
+static void test_memobj()
+{
+  // this emulates maptime() mapping and reading
+  struct mapped_time_value *mtime;
+  int64_t secs, usecs;
+  mach_port_t device, memobj;
+  int err;
+
+  err = device_open (device_priv(), 0, "time", &device);
+  ASSERT_RET(err, "device_open");
+  err = device_map (device, VM_PROT_READ, 0, sizeof(*mtime), &memobj, 0);
+  ASSERT_RET(err, "device_map");
+  err = mach_port_deallocate (mach_task_self (), device);
+  ASSERT_RET(err, "mach_port_deallocate");
+  mtime = 0;
+  err = vm_map(mach_task_self (), (vm_address_t *)&mtime, sizeof *mtime, 0, 1,
+               memobj, 0, 0, VM_PROT_READ, VM_PROT_READ, VM_INHERIT_NONE);
+  ASSERT_RET(err, "vm_map");
+
+  do
+    {
+      secs = mtime->seconds;
+      __sync_synchronize ();
+      usecs = mtime->microseconds;
+      __sync_synchronize ();
+    }
+  while (secs != mtime->check_seconds);
+  printf("mapped time is %lld.%lld\n",secs, usecs);
+
+  err = mach_port_deallocate (mach_task_self (), memobj);
+  ASSERT_RET(err, "mach_port_deallocate");
+  err = vm_deallocate(mach_task_self(), (vm_address_t)mtime, sizeof(*mtime));
+  ASSERT_RET(err, "vm_deallocate");
+}
+
+static void test_wire()
+{
+  int err = vm_wire_all(host_priv(), mach_task_self(), VM_WIRE_ALL);
+  ASSERT_RET(err, "vm_wire_all-ALL");
+  err = vm_wire_all(host_priv(), mach_task_self(), VM_WIRE_NONE);
+  ASSERT_RET(err, "vm_wire_all-NONE");
+  // TODO check that all memory is actually wired or unwired
+}
+
+int main(int argc, char *argv[], int envc, char *envp[])
+{
+  printf("VM_MIN_ADDRESS=0x%p\n", VM_MIN_ADDRESS);
+  printf("VM_MAX_ADDRESS=0x%p\n", VM_MAX_ADDRESS);
+  test_wire();
+  test_memobj();
+  return 0;
+}
diff --git a/tests/user-qemu.mk b/tests/user-qemu.mk
index fe0f9569..1ab7cb8c 100644
--- a/tests/user-qemu.mk
+++ b/tests/user-qemu.mk
@@ -198,7 +198,8 @@ USER_TESTS := \
 	tests/test-hello \
 	tests/test-mach_host \
 	tests/test-gsync \
-	tests/test-mach_port
+	tests/test-mach_port \
+	tests/test-vm
 
 USER_TESTS_CLEAN = $(subst tests/,clean-,$(USER_TESTS))