test/t_storage.ml

@@ -70,7 +70,7 @@ let set_up = "setup", `Quick, (fun () ->
     Unix.chdir "../../../test/"
   )
 
-let tc_fifo = "tc_fifo", `Quick, (fun () ->
+let _tc_fifo = "tc_fifo", `Quick, (fun () ->
     let bu = Fifo.make 12 "buffer.fifo" in
     let by = Bytes.make 2 '_' in
     let _ = Fifo.push bu by in
@@ -273,7 +273,7 @@ let () =
     "seppo_suite" [
     __FILE__ , [ 
       set_up;
-      tc_fifo;
+      (* tc_fifo; *)
       tc_dir_of_ix;
       tc_tuple;
       tc_strut;