unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/dune-project

@@ -0,0 +1,3 @@
+(lang dune 3.8)
+
+(using melange 0.1)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/app/b.ml

@@ -0,0 +1 @@
+let buy_it = "buy " ^ Lib.A.it

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/app/b.mli

@@ -0,0 +1 @@
+val buy_it : string

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/app/dune

@@ -0,0 +1,4 @@
+(library
+ (name app)
+ (libraries lib)
+ (modes melange))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/c.ml

@@ -0,0 +1 @@
+let () = Js.log App.B.buy_it

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/dune

@@ -0,0 +1,8 @@
+(melange.emit
+ (target output)
+ (modules c)
+ (libraries app)
+ (alias mel)
+ (emit_stdlib false)
+ (module_systems
+  (es6 mjs)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/lib/a.ml

@@ -0,0 +1 @@
+let it = "it"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/lib/a.mli

@@ -0,0 +1 @@
+val it : string

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/inside/lib/dune

@@ -0,0 +1,3 @@
+(library
+ (name lib)
+ (modes melange))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/private.t/run.t

@@ -0,0 +1,26 @@
+Test the private libs flow when using `melange.emit` stanza
+
+Cmj rules should include --bs-package-output
+  $ dune rules inside/app/.app.objs/melange/app.cmj | 
+  > grep -e "--bs-package-output" --after-context=1 
+      --bs-package-output
+      inside/app
+
+Cmj rules should not include --bs-package-name
+  $ dune rules inside/app/.app.objs/melange/app.cmj | 
+  > grep -ce "--bs-package-name"
+  0
+  [1]
+
+  $ output=inside/output
+
+Js rules should include module type
+  $ dune rules $output/inside/app/b.mjs | 
+  > grep -e "--bs-module-type" --after-context=1 
+      --bs-module-type
+      es6
+
+Build js files
+  $ dune build @mel
+  $ node _build/default/$output/inside/c.mjs
+  buy it