fix: print the package name of tests stanza

Signed-off-by: Alpha DIALLO <moyodiallo@gmail.com>
ocaml · Jun 8, 2023 · 97b9172 · 97b9172
1 parent 3593fd1
commit 97b9172
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 2 deletions.
diff --git a/bin/describe.ml b/bin/describe.ml
@@ -693,7 +693,9 @@ module External_lib_deps = struct
               resolve_libs db dir tests.exes.buildable.libraries
                 tests.exes.buildable.preprocess
                 (List.map tests.exes.names ~f:snd)
-                tests.exes.package Item.Kind.Tests
+                (if Option.is_none tests.package then tests.exes.package
+                else tests.package)
+                Item.Kind.Tests
                 (exes_extensions context tests.exes.modes)
               >>| List.singleton
             | _ -> Memo.return [])

diff --git a/test/blackbox-tests/test-cases/external-lib-deps/simple.t/run.t b/test/blackbox-tests/test-cases/external-lib-deps/simple.t/run.t
@@ -6,6 +6,9 @@ external library dependencies of a simple project
   > (library
   >  (public_name dummypkg)
   >  (libraries base doesnotexist.foo))
+  > (test
+  >  (package dummypkg)
+  >  (name test))
   > EOF
   $ dune describe external-lib-deps
   (default
@@ -14,5 +17,15 @@ external library dependencies of a simple project
       (extensions ())
       (package (dummypkg))
       (source_dir .)
-      (external_deps ((base required) (doesnotexist.foo required)))
+      (external_deps
+       ((base required)
+        (doesnotexist.foo required)))
+      (internal_deps ())))
+    (tests
+     ((names (test))
+      (extensions
+       (.bc .exe))
+      (package (dummypkg))
+      (source_dir .)
+      (external_deps ())
       (internal_deps ())))))