Extended test

test/blackbox-tests/test-cases/inline_tests/parallel.t/backend/dune

@@ -1,11 +1,20 @@
 (library
- (name fake_backend)
+ (name fake_backend_1)
  (modules ())
  (inline_tests.backend
   (runner_libraries fake_backend_runner)
   (generate_runner (echo "let () = Fake_backend_runner.run ();;"))
-  (list_partitions_flags "--libname" %{library-name} "--list-partitions")
-  (flags "--libname" %{library-name} "--partition" %{partition})))
+  (flags "--libname" %{library-name})))
+
+(library
+ (name fake_backend_2)
+ (modules ())
+ (inline_tests.backend
+  (extends fake_backend_1)
+  (list_partitions_flags ("--libname" %{library-name} "--list-partitions"))
+  (flags ("--partition" %{partition}))
+ )
+)
 
 (library
  (name fake_backend_runner)

test/blackbox-tests/test-cases/inline_tests/parallel.t/run.t

@@ -1,23 +1,29 @@
+First, build silently to avoid some noise
 
-  $ dune build --display short @runtest
-        ocamlc backend/.fake_backend_runner.objs/byte/fake_backend_runner.{cmi,cmo,cmt}
-        ocamlc .test_lib.objs/byte/test_lib.{cmi,cmo,cmt}
-      ocamlopt backend/.fake_backend_runner.objs/native/fake_backend_runner.{cmx,o}
-        ocamlc .test_lib.inline-tests/.test_lib.inline-tests.eobjs/byte/dune__exe__Inline_test_runner_test_lib.{cmi,cmo,cmt}
-      ocamlopt .test_lib.objs/native/test_lib.{cmx,o}
-      ocamlopt backend/fake_backend_runner.{a,cmxa}
-      ocamlopt .test_lib.inline-tests/.test_lib.inline-tests.eobjs/native/dune__exe__Inline_test_runner_test_lib.{cmx,o}
-      ocamlopt test_lib.{a,cmxa}
-      ocamlopt .test_lib.inline-tests/inline_test_runner_test_lib.exe
-  inline_test_runner_test_lib .test_lib.inline-tests/partitions-best
-  inline_test_runner_test_lib alias runtest
-  Running first test
-  Ok
-  Running second test
-  Ok
-  inline_test_runner_test_lib alias runtest
-  Running first test
-  Ok
-  inline_test_runner_test_lib alias runtest
-  Running first test
-  Error: Failure("This failure is expected")
+  $ dune build
+
+See that test1/runtest, which uses fake_backend_1, only run one inline test runner
+
+  $ dune build --display short @test1/runtest
+        ocamlc test1/.test_lib1.inline-tests/.test_lib1.inline-tests.eobjs/byte/dune__exe__Inline_test_runner_test_lib1.{cmi,cmo,cmt}
+      ocamlopt test1/.test_lib1.inline-tests/.test_lib1.inline-tests.eobjs/native/dune__exe__Inline_test_runner_test_lib1.{cmx,o}
+      ocamlopt test1/.test_lib1.inline-tests/inline_test_runner_test_lib1.exe
+  inline_test_runner_test_lib1 alias test1/runtest
+
+See that test2/runtest, which uses fake_backend_2, run one inline test runner per partition
+
+  $ dune build --display short @test2/runtest
+        ocamlc test2/.test_lib2.inline-tests/.test_lib2.inline-tests.eobjs/byte/dune__exe__Inline_test_runner_test_lib2.{cmi,cmo,cmt}
+      ocamlopt test2/.test_lib2.inline-tests/.test_lib2.inline-tests.eobjs/native/dune__exe__Inline_test_runner_test_lib2.{cmx,o}
+      ocamlopt test2/.test_lib2.inline-tests/inline_test_runner_test_lib2.exe
+  inline_test_runner_test_lib2 test2/.test_lib2.inline-tests/partitions-best
+  inline_test_runner_test_lib2 alias test2/runtest
+  inline_test_runner_test_lib2 alias test2/runtest
+  inline_test_runner_test_lib2 alias test2/runtest
+
+See that we indeed have 3 partitions
+
+  $ cat _build/default/test2/.test_lib2.inline-tests/partitions-best
+  p1
+  p2
+  p3

test/blackbox-tests/test-cases/inline_tests/parallel.t/test1/dune

@@ -0,0 +1,4 @@
+(library
+ (name test_lib1)
+ (libraries fake_backend_runner)
+ (inline_tests (backend fake_backend_1)))

test/blackbox-tests/test-cases/inline_tests/parallel.t/test2/dune

@@ -0,0 +1,4 @@
+(library
+ (name test_lib2)
+ (libraries fake_backend_runner)
+ (inline_tests (backend fake_backend_2)))

test/blackbox-tests/test-cases/inline_tests/parallel.t/test2/test_lib2.ml

@@ -0,0 +1,19 @@
+let () =
+  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p1" "first test"
+    (fun () -> assert true)
+
+let () =
+  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p1" "second test"
+    (fun () -> ()    )
+
+let () =
+  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p2" "first test"
+    (fun () -> ())
+
+let () =
+  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p3" "first test"
+    (fun () -> failwith "This failure is expected")
+
+let () =
+  Fake_backend_runner.register ~libname:"other_lib" ~partition:"p1"
+    "second test" (fun () -> assert false)