Parallel inline_tests: Improve tests

The fake inline_tests backend was not taking libname into account when
listing partitions. Which could result in listing too many partitions.

Signed-off-by: Hugo Heuzard <[email protected]>

test/blackbox-tests/test-cases/inline_tests/parallel.t/backend/fake_backend_runner.ml

@@ -30,14 +30,14 @@ let register ~libname ~partition name run =
 
 let run () =
   Arg.parse speclist anon_fun usage_msg;
+  if !libname = "" then failwith "Should specify libname";
   if !list_partitions then
     let partitions =
       List.fold_left
-        (fun acc t -> StringSet.add t.partition acc)
+        (fun acc t -> if !libname = t.libname then StringSet.add t.partition acc else acc)
         StringSet.empty !tests
     in
-    StringSet.iter print_endline partitions
-  else if !libname = "" then failwith "Should specify libname";
+    StringSet.iter print_endline partitions;
   List.iter
     (fun t ->
       if t.libname = !libname && t.partition = !partition then (

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

@@ -1,19 +1,23 @@
 let () =
-  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p1" "first test"
+  Fake_backend_runner.register ~libname:"test_lib2" ~partition:"p1" "first test"
     (fun () -> assert true)
 
 let () =
-  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p1" "second test"
+  Fake_backend_runner.register ~libname:"test_lib2" ~partition:"p1" "second test"
     (fun () -> ()    )
 
 let () =
-  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p2" "first test"
+  Fake_backend_runner.register ~libname:"test_lib2" ~partition:"p2" "first test"
     (fun () -> ())
 
 let () =
-  Fake_backend_runner.register ~libname:"test_lib" ~partition:"p3" "first test"
+  Fake_backend_runner.register ~libname:"test_lib2" ~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)
+
+let () =
+  Fake_backend_runner.register ~libname:"other_lib" ~partition:"pn"
+    "second test" (fun () -> assert false)

test/blackbox-tests/test-cases/inline_tests/parallel.t/test3/test_lib3.ml

@@ -0,0 +1,3 @@
+let () =
+  Fake_backend_runner.register ~libname:"other_lib" ~partition:"p1"
+    "second test" (fun () -> assert false)