Failing test for Gemma toolbox

lib/toolbox/dune

 (library
  (name reviewphiltrans_toolbox)
  (libraries biotk biocaml.ez ocaml-r.graphics ocaml-r.grDevices phylogenetics)
- (preprocess (pps ppx_jane)))
+ (inline_tests
+  (deps ../../tests/data/gemma_output.tsv))
+ (preprocess
+  (pps ppx_jane ppx_inline_test)))

lib/toolbox/gemma.ml

@@ -153,4 +153,14 @@ module Result_file = struct
     |> List.map ~f:min_pval_of_item
     |> List.reduce_exn ~f:Float.min
 
+  let%test "gemma output parsing" =
+    Result.is_ok @@ of_file "../../tests/data/gemma_output.tsv"
+
+  let%test "gemma output aggregation" =
+    match of_file "../../tests/data/gemma_output.tsv" with
+    | Error _ -> false
+    | Ok table ->
+        Result_table.nrows
+          (to_result_table table ~site_aggregator:min_pvalue_aggregator)
+        = 103
 end