add test for dune utop with default implementation feature

Signed-off-by: Lucas Pluvinage <lucas.pluvinage@gmail.com>
ocaml · Jun 28, 2019 · fab5423 · fab5423
1 parent 1a5e841
commit fab5423
Show file tree

Hide file tree

Showing 10 changed files with 28 additions and 0 deletions.
diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
@@ -1448,6 +1448,14 @@
     (run %{exe:cram.exe} -skip-versions <4.05.0 -test run.t)
     (diff? run.t run.t.corrected)))))
 
+(alias
+ (name utop-default-implementation)
+ (deps (package dune) (source_tree test-cases/utop-default-implementation))
+ (action
+  (chdir
+   test-cases/utop-default-implementation
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name variants)
  (deps (package dune) (source_tree test-cases/variants))
@@ -1716,6 +1724,7 @@
   (alias use-meta)
   (alias utop)
   (alias utop-default)
+  (alias utop-default-implementation)
   (alias variants)
   (alias variants-external-declaration)
   (alias variants-external-declaration-conflict)
@@ -1880,6 +1889,7 @@
   (alias transitive-deps-mode)
   (alias unreadable-src)
   (alias upgrader)
+  (alias utop-default-implementation)
   (alias variants)
   (alias variants-external-declaration)
   (alias variants-external-declaration-conflict)

diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/dune-project b/test/blackbox-tests/test-cases/utop-default-implementation/dune-project
@@ -0,0 +1,2 @@
+(lang dune 1.7)
+(using library_variants 0.1)
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl-2/dune b/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl-2/dune
@@ -0,0 +1,3 @@
+(library
+ (name forutop_impl_2)
+ (implements forutop))
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl-2/forutop.ml b/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl-2/forutop.ml
@@ -0,0 +1 @@
+let run () = print_endline "shouldn't be selected"
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl/dune b/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl/dune
@@ -0,0 +1,3 @@
+(library
+ (name forutop_impl)
+ (implements forutop))
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl/forutop.ml b/test/blackbox-tests/test-cases/utop-default-implementation/forutop-impl/forutop.ml
@@ -0,0 +1 @@
+let run () = print_endline "selected by default impl"
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/forutop/dune b/test/blackbox-tests/test-cases/utop-default-implementation/forutop/dune
@@ -0,0 +1,4 @@
+(library
+ (name forutop)
+ (virtual_modules forutop)
+ (default_implementation forutop_impl))
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/forutop/forutop.mli b/test/blackbox-tests/test-cases/utop-default-implementation/forutop/forutop.mli
@@ -0,0 +1 @@
+val run : unit -> unit
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/init_forutop.ml b/test/blackbox-tests/test-cases/utop-default-implementation/init_forutop.ml
@@ -0,0 +1 @@
+Forutop.run ();;
diff --git a/test/blackbox-tests/test-cases/utop-default-implementation/run.t b/test/blackbox-tests/test-cases/utop-default-implementation/run.t
@@ -0,0 +1,2 @@
+  $ dune utop . init_forutop.ml
+  selected by default impl