test: fixed warnings

pveber · Nov 19, 2018 · 70111ce · 70111ce
1 parent b6072d5
commit 70111ce
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 8 deletions.
diff --git a/lib/test/accordion.ml b/lib/test/accordion.ml
@@ -1,8 +1,6 @@
 open Core
-open Lwt
 open Bistro.Std
 open Bistro.EDSL
-open Bistro_engine
 open Bistro_utils
 
 module Workflow = Bistro.Workflow

diff --git a/lib/test/map_command.ml b/lib/test/map_command.ml
@@ -1,5 +1,4 @@
 open Core
-open Bistro.Std
 open Bistro.EDSL
 open Bistro_utils
 
@@ -26,7 +25,6 @@ let main () =
   |> ignore
 
 let command =
-  let open Command.Let_syntax in
   Command.basic
     ~summary:"Test of map command workflows"
     (Command.Param.return main)
diff --git a/lib/test/ppx_test.ml b/lib/test/ppx_test.ml
@@ -36,7 +36,7 @@ let main () =
   let bed2 = comment_filter (create_file "# comment\n# comment\nchr10\t42\t100\n") in
   Bistro.(
     match Workflow.u bed with
-    | Step { descr ; version ; mem } ->
+    | Step { descr ; version ; mem ; _ } ->
       assert (descr = "foobar") ;
       assert (version = Some 42) ;
       assert (mem = 1)

diff --git a/lib/test/prime_tdag.ml b/lib/test/prime_tdag.ml
@@ -98,7 +98,7 @@ module Task = struct
     performed := i :: !performed ;
     t, Ok ()
 
-  let post_revdeps_hook (Push i) _ ~all_revdeps_succeeded:_ =
+  let post_revdeps_hook (Push _) _ ~all_revdeps_succeeded:_ =
     Lwt.return ()
 
   let clean _ _ = Lwt.return ()
@@ -149,7 +149,7 @@ module TG = struct
 end
 
 
-let check_state remaining started ended not_needed_anymore =
+let check_state remaining started _ended not_needed_anymore =
   Int.Set.iter started ~f:(fun i ->
       Int.Set.iter started ~f:(fun j ->
           if i <> j && (i mod 2 = j mod 2)
@@ -195,7 +195,7 @@ let check_events n xs =
   |> ignore
 
 let check_performed xs =
-  if List.contains_dup xs
+  if List.contains_dup ~compare xs
   then failwith "A task has been performed twice"
 
 let command =