matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix expect tests

This commit is contained in:
Jeremie Dimino 2017-05-31 10:25:19 +01:00
parent 92f0b7daaa
commit 745e58039b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/expect-tests/action.mlt
View File

@ -7,13 +7,13 @@ open Import;;
open Action.Infer.Outcome;;
let p = Path.of_string;;
let infer a =
let infer (a : Action.t) =
let x = Action.Infer.infer a in
(List.map (Path.Set.elements x.deps) ~f:Path.to_string,
List.map (Path.Set.elements x.targets) ~f:Path.to_string)
[%%expect{|
val p : string -> Jbuilder.Path.t = <fun>
val infer : Jbuilder__Action.t -> string list * string list = <fun>
val infer : Jbuilder.Action.t -> string list * string list = <fun>
|}]
infer (Copy (p "a", p "b"));;