Commits

Sebastien Mondet committed f4e9aca

Randomize file output

Comments (0)

Files changed (1)

           counter_transform
           ~f:(fun r c ->
             { r with Biocaml_fastq.name =
-                Printf.sprintf "%s -- %d" r.Biocaml_fastq.name c }))
+                Printf.sprintf "%s -- %d (rand: %f)"
+                  r.Biocaml_fastq.name c Random.(float 42.) }))
        (new Biocaml_fastq.fastq_printer)))
 (*  string  ---  fastq-record --- trimmed-fast \
                                                f --- named-fastq --- string 
     | `right of Biocaml_fastq.empty ]
 
 let enum_trimmer ~input_buffer_size filename =
-  let outfile = sprintf "out_%s" filename in
+  let outfile =
+    sprintf "trimenum_%d_r%d_%s" input_buffer_size Random.(int 4242) filename in
   let i = BatFile.open_in filename in
   let e = BatEnum.from (fun () ->
     try
   ()
 
 let lwt_trimmer ~input_buffer_size ~output_buffer_size filename =
-  let outfile = sprintf "lout_%s" filename in
+  let outfile =
+    sprintf "trimlwt_%d-%d_r%d_%s" input_buffer_size output_buffer_size
+      Random.(int 4242) filename in
   let transform = fastq_file_trimmer filename in
   Lwt_io.with_file filename
     ~buffer_size:input_buffer_size