unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/dune-project

@@ -0,0 +1,4 @@
+(lang dune 1.3)
+(using experimental_building_ocaml_compiler_with_dune 0.1)
+
+(package (name stdlib))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/run.t

@@ -0,0 +1,5 @@
+Build stdlib with stdlib.ml
+
+  $ dune build @all
+  $ (cd _build/default/src && ls *.cma)
+  stdlib.cma

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/src/camlinternalFormatBasics.ml

@@ -0,0 +1 @@
+type fmt = Fmt

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/src/dune

@@ -0,0 +1,7 @@
+(library
+ (public_name stdlib)
+ (stdlib
+  (modules_before_stdlib CamlinternalFormatBasics)
+  (exit_module std_exit)
+  (internal_modules Camlinternal*))
+ (preprocess (action (run cat %{input-file}))))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/src/list.ml

@@ -0,0 +1,3 @@
+let append = list_append
+
+let x = Stdlib.list_append

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/src/std_exit.ml

@@ -0,0 +1 @@
+let x = 1

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/stdlib/stdlib-compilation.t/src/stdlib.ml

@@ -0,0 +1,8 @@
+let rec list_append l1 l2 =
+  match l1 with
+    [] -> l2
+  | hd :: tl -> hd :: (list_append tl l2)
+
+type fmt = CamlinternalFormatBasics.fmt = Fmt
+
+module List = Stdlib__List