Commit edd6f630 authored by Louis Duchemin's avatar Louis Duchemin
Browse files

Failing test for Gemma toolbox

parent 6272890c
(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)))
......@@ -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
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment