Failing test on site indices for Gemma workflow

lib/toolbox/gemma.ml

@@ -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