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

Failing test on site indices for Gemma workflow

parent ddc1b8c7
......@@ -157,6 +157,14 @@ module Result_file = struct
let%test "gemma output parsing" =
Result.is_ok @@ of_file "../../tests/data/gemma_output.tsv"
let%test "gemma output parsing preserves indices" =
match of_file "../../tests/data/gemma_output.tsv" with
| Error _ -> false
| Ok table -> (
range_find 0 103 ~f:(fun i ->
not @@ List.exists table ~f:(fun item -> item.index = i))
|> function None -> true | Some i -> failwithf "%d is missing" i () )
let%test "gemma output aggregation" =
match of_file "../../tests/data/gemma_output.tsv" with
| Error _ -> false
......
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