Skip to content
Browse files

fixed a test

  • Loading branch information...
1 parent a5f4210 commit dcc2de8cc92e5ae32896347473201e807ceb4f8a @camlspotter camlspotter committed Feb 15, 2013
Showing with 1 addition and 2 deletions.
  1. +1 −2 searchTest.ml
View
3 searchTest.ml
@@ -21,10 +21,9 @@ let _ = begin "search.ml" >::: [
kind = Value "sep:string -> string list -> string"}] @@
search "string list -> string" ["StdLabels"] []
end;
- (* CR jfuruse: We fail here *)
"type" >:: begin fun () ->
ok {id=["String"; "t"]; kind = Type "string"} @@
- List.nth (search "t" ["String"] []) 1
+ List.nth (search "t" ["String"] []) 0
end;
(* CR jfuruse: We fail here *)
"module" >:: begin fun () ->

0 comments on commit dcc2de8

Please sign in to comment.
Something went wrong with that request. Please try again.