unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/byte/byte.ml

@@ -0,0 +1,2 @@
+let _ = assert (Sys.backend_type = Bytecode)
+let _ = print_endline "inline tests (Byte)"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/byte/dune

@@ -0,0 +1,3 @@
+(library
+ (name inline_tests_byte)
+ (inline_tests (modes byte) (backend fake_backend)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/dune

@@ -0,0 +1,8 @@
+(library
+ (name fake_backend)
+ (modules ())
+ (inline_tests.backend
+  (generate_runner
+   (progn
+    (echo "[@@@warning \"-40\"]\n")
+    (cat %{impl-files})))))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/native/dune

@@ -0,0 +1,3 @@
+(library
+ (name inline_tests_native)
+ (inline_tests (modes native) (backend fake_backend)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/native/native.ml

@@ -0,0 +1,2 @@
+let _ = assert (Sys.backend_type = Native)
+let _ = print_endline "inline tests (Native)"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/run.t

@@ -0,0 +1,24 @@
+Run inline tests using Node.js
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.17)
+  > EOF
+
+  $ dune runtest
+  inline tests (Byte)
+  inline tests (Byte)
+  inline tests (Native)
+  inline tests (Native)
+  inline tests (Wasm)
+  inline tests (Wasm)
+
+  $ dune runtest --profile release
+  inline tests (Native)
+  inline tests (Native)
+  inline tests (Wasm)
+  inline tests (Wasm)
+
+  $ dune build wasm/.inline_tests_wasm.inline-tests/inline_test_runner_inline_tests_wasm.bc --display short
+  Error: Don't know how to build
+  wasm/.inline_tests_wasm.inline-tests/inline_test_runner_inline_tests_wasm.bc
+  [1]

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/wasm/dune

@@ -0,0 +1,6 @@
+(library
+ (name inline_tests_wasm)
+ (wasm_of_ocaml (wasm_files wasm.wat))
+ (inline_tests
+  (modes wasm)
+  (backend fake_backend)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/wasm/wasm.ml

@@ -0,0 +1,5 @@
+external prim : unit -> bool = "wasmoo_stubs"
+
+let _ = assert (Sys.int_size = 31)
+let _ = assert (prim ())
+let _ = print_endline "inline tests (Wasm)"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/inline-tests.t/wasm/wasm.wat

@@ -0,0 +1,4 @@
+(module
+ (func (export "wasmoo_stubs") (param (ref eq)) (result (ref eq))
+  (ref.i31 (i32.const 1)))
+)