test(melange): double virtual library implementation

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/dune

@@ -0,0 +1,11 @@
+(melange.emit
+ (target output)
+ (emit_stdlib false)
+ (libraries bar impl2)
+ (modules foo))
+
+(library
+ (name bar)
+ (libraries impl1)
+ (modes melange)
+ (modules))

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/dune-project

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

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/foo.ml

@@ -0,0 +1 @@
+let () = print_endline "should not run"

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/impl1/dune

@@ -0,0 +1,4 @@
+(library
+ (name impl1)
+ (modes melange)
+ (implements vlib))

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/impl1/vlib.ml

@@ -0,0 +1 @@
+let run () = print_endline "impl1"

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/impl2/dune

@@ -0,0 +1,4 @@
+(library
+ (name impl2)
+ (modes melange)
+ (implements vlib))

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/impl2/vlib.ml

@@ -0,0 +1 @@
+let run () = print_endline "impl1"

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/run.t

@@ -0,0 +1,21 @@
+`melange.emit` that tries to use two implementations for the same virtual lib
+
+  $ dune build @melange
+  Error: Conflicting implementations for virtual library "vlib" in
+  _build/default/vlib:
+  - "impl1" in _build/default/impl1
+    -> required by library "bar" in _build/default
+  - "impl2" in _build/default/impl2
+  This cannot work.
+  -> required by melange target output
+  -> required by alias melange
+  Error: Conflicting implementations for virtual library "vlib" in
+  _build/default/vlib:
+  - "impl1" in _build/default/impl1
+    -> required by library "bar" in _build/default
+  - "impl2" in _build/default/impl2
+  This cannot work.
+  -> required by melange target output
+  -> required by _build/default/output/foo.js
+  -> required by alias melange
+  [1]

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/vlib/dune

@@ -0,0 +1,4 @@
+(library
+ (name vlib)
+ (modes melange)
+ (virtual_modules vlib))

test/blackbox-tests/test-cases/melange/double-vlib-impl.t/vlib/vlib.mli

@@ -0,0 +1 @@
+val run : unit -> unit