unikernel/duniverse/dune_/test/blackbox-tests/test-cases/toplevel/top.t/dune

@@ -0,0 +1,2 @@
+(library
+ (name x))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/toplevel/top.t/dune-project

@@ -0,0 +1 @@
+(lang dune 2.8)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/toplevel/top.t/run.t

@@ -0,0 +1,12 @@
+Basic check that directives are correctly emitted.
+  $ dune top
+  #directory "$TESTCASE_ROOT/_build/default/.x.objs/byte";;
+  #directory "$TESTCASE_ROOT/_build/default/stubs";;
+  #directory "$TESTCASE_ROOT/_build/default/stubs/.z.objs/byte";;
+  #load "$TESTCASE_ROOT/_build/default/x.cma";;
+  #load "$TESTCASE_ROOT/_build/default/stubs/z.cma";;
+
+Check that C stubs work.
+  $ (dune top && echo "Z.f ();;") > init.mltop
+  $ ocaml init.mltop
+  Hello!

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/toplevel/top.t/stubs/dune

@@ -0,0 +1,5 @@
+(library
+ (name z)
+ (foreign_stubs
+  (language c)
+  (names z_stubs)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/toplevel/top.t/stubs/z.ml

@@ -0,0 +1,4 @@
+external hello : unit -> unit = "ml_hello"
+
+let f () =
+  hello ()

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/toplevel/top.t/stubs/z_stubs.c

@@ -0,0 +1,9 @@
+#include <caml/mlvalues.h>
+#include <stdio.h>
+
+value ml_hello(value vunit)
+{
+  printf("Hello!\n");
+  fflush(stdout);
+  return Val_unit;
+}