Fix tests

Signed-off-by: Alpha DIALLO <moyodiallo@gmail.com>
ocaml · Jul 7, 2023 · 7eb736f · 7eb736f
1 parent 35ae351
commit 7eb736f
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 14 deletions.
diff --git a/bin/describe/package_entries.ml b/bin/describe/package_entries.ml
@@ -1,5 +1,4 @@
 open Import
-open Stdune
 
 let term =
   let+ common = Common.term

diff --git a/test/blackbox-tests/test-cases/describe-package-entries.t b/test/blackbox-tests/test-cases/describe-package-entries.t
@@ -1,7 +1,7 @@
 Test for the `dune describe package-entries` command
 
   $ cat >dune-project <<EOF
-  > (lang dune 2.7)
+  > (lang dune 3.10)
   > (package
   >  (name foo)
   >  (synopsis "describe package-entries"))
@@ -30,15 +30,15 @@ Test for the `dune describe package-entries` command
 
   $ dune describe package-entries
   ((foo
-    (((source dune)
+    (((source Dune)
       (entry
        ((src
          (In_build_dir default/META.foo))
         (kind file)
         (dst META)
         (section LIB)
         (optional false))))
-     ((source dune)
+     ((source Dune)
       (entry
        ((src
          (In_build_dir default/foo.dune-package))
@@ -47,7 +47,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -65,7 +65,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -83,7 +83,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -101,7 +101,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -119,7 +119,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -137,7 +137,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -155,7 +155,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -172,7 +172,7 @@ Test for the `dune describe package-entries` command
         (dst foo.ml)
         (section LIB)
         (optional false))))
-     ((source dune)
+     ((source Dune)
       (entry
        ((src
          (In_build_dir default/foo.opam))
@@ -181,7 +181,7 @@ Test for the `dune describe package-entries` command
         (section LIB)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 1)
@@ -199,7 +199,7 @@ Test for the `dune describe package-entries` command
         (section LIBEXEC)
         (optional false))))
      ((source
-       (user
+       (User
         ((pos_fname dune)
          (start
           ((pos_lnum 13)