Make tests.mlt pass with 4.07

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
ocaml · Dec 12, 2018 · 025b8d8 · 025b8d8
1 parent 907b140
commit 025b8d8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/unit-tests/tests.mlt b/test/unit-tests/tests.mlt
@@ -45,10 +45,10 @@ val pkg : Sub_system_info.t Dune_package.Lib.t = <package:foo>
 |}]
 
 (* "foo" should depend on "baz" *)
-Dune_package.Lib.requires pkg;;
+Dune_package.Lib.requires pkg |> List.map ~f:snd;;
 
 [%%expect{|
-- : (Loc.t * Lib_name.t) list = [({start = <abstr>; stop = <abstr>}, "baz")]
+- : Lib_name.t list = ["baz"]
 |}]
 
 (* Meta parsing/simplification *)