Use hand made pretty printers for top level expect tests

These tests would fail in 4.02.3 because of the toplevel choosing to print some
module paths differently
This commit is contained in:
Rudi Grinberg 2018-04-05 23:03:07 +08:00
parent 651d12df5d
commit 18948faff8
1 changed files with 20 additions and 11 deletions

View File

@ -49,21 +49,30 @@ Findlib.Package.requires pkg;;
+-----------------------------------------------------------------+ *)
open Meta
#install_printer Simplified.pp;;
let meta =
Meta.load ~name:"foo" ~fn:"test/unit-tests/findlib-db/foo/META"
[%%expect{|
val meta : Jbuilder.Meta.Simplified.t =
{Jbuilder.Meta.Simplified.name = "foo";
vars =
(requires =
{Jbuilder.Meta.Simplified.Rules.set_rules =
[{Jbuilder__Meta.var = "requires"; predicates = [];
action = Jbuilder__Meta.Set; value = "bar"};
{Jbuilder__Meta.var = "requires";
predicates = [Jbuilder__Meta.Pos "ppx_driver"];
action = Jbuilder__Meta.Set; value = "baz"}];
add_rules = []});
subs = []}
{ name = "foo"
; vars =
(requires =
{ set_rules =
[ { var = "requires"
; predicates = []
; action = Set
; value = "bar"
}
; { var = "requires"
; predicates = [ "+ppx_driver" ]
; action = Set
; value = "baz"
}
]
; add_rules = []
})
; subs = []
}
|}]