feature: tests stanzas produce aliases

Signed-off-by: Ali Caglayan <[email protected]>

Author: Alizter

src/dune_rules/test_rules.ml

@@ -1,7 +1,7 @@
 open Import
 open Memo.O
 
-let alias mode ~dir =
+let runtest_alias mode ~dir =
   match mode with
   | `js mode -> Jsoo_rules.js_of_ocaml_runtest_alias ~dir ~mode
   | `exe | `bc -> Memo.return Alias0.runtest
@@ -68,7 +68,7 @@ let rules (t : Tests.t) ~sctx ~dir ~scope ~expander ~dir_contents =
     | false ->
       let loc = Nonempty_list.hd t.exes.names |> fst in
       Memo.parallel_iter runtest_modes ~f:(fun mode ->
-        let* alias_name = alias mode ~dir in
+        let* alias_name = runtest_alias mode ~dir in
         let alias = Alias.make alias_name ~dir in
         Simple_rules.Alias_rules.add_empty sctx ~loc ~alias)
     | true ->
@@ -97,7 +97,7 @@ let rules (t : Tests.t) ~sctx ~dir ~scope ~expander ~dir_contents =
             in
             Pform.Map.singleton test_pform [ Value.Path test_exe_path ]
           in
-          let* runtest_alias = alias runtest_mode ~dir in
+          let* runtest_alias = runtest_alias runtest_mode ~dir in
           let deps =
             (* is this useless? we are going to infer the dependency anyway *)
             match custom_runner with
@@ -114,9 +114,10 @@ let rules (t : Tests.t) ~sctx ~dir ~scope ~expander ~dir_contents =
                | `js JS | `exe | `bc -> t.deps)
           in
           let add_alias ~loc ~action =
+            let alias = Alias.make ~dir (Alias.Name.of_string s) in
             (* CR rgrinberg: why are we going through the stanza api? *)
-            let alias =
-              { Alias_conf.name = runtest_alias
+            let alias_conf =
+              { Alias_conf.name = Alias.name alias
               ; locks = t.locks
               ; package = t.package
               ; deps
@@ -125,7 +126,10 @@ let rules (t : Tests.t) ~sctx ~dir ~scope ~expander ~dir_contents =
               ; loc
               }
             in
-            Simple_rules.alias sctx ~extra_bindings ~dir ~expander alias
+            Rules.Produce.Alias.add_deps
+              (Alias.make ~dir runtest_alias)
+              (Action_builder.dep (Dep.alias alias))
+            >>> Simple_rules.alias sctx ~extra_bindings ~dir ~expander alias_conf
           in
           match test_kind dir_contents (loc, s, ext) with
           | `Regular -> add_alias ~loc ~action:run_action

test/blackbox-tests/test-cases/stanzas/tests/tests-stanza-alias.t

@@ -0,0 +1,22 @@
+Tests stanzas produce aliases with the executable names
+
+  $ cat > dune-project << EOF
+  > (lang dune 3.17)
+  > EOF
+
+  $ cat > dune << EOF
+  > (tests
+  >  (names a b))
+  > EOF
+
+  $ cat > a.ml << EOF
+  > let () = print_endline "a"
+  > EOF
+
+  $ cat > b.ml << EOF
+  > let () = print_endline "b"
+  > EOF
+
+  $ dune build @a @b
+  a
+  b