tracks/ocaml/tools/test-generator/src/model.ml in trackler-2.1.0.12 vs tracks/ocaml/tools/test-generator/src/model.ml in trackler-2.1.0.13

@@ -13,9 +13,14 @@
 
 type tests =
   | Single of case list
   | Suite of test list
 
+type canonical_data = {
+  version: string option;
+  tests: tests
+}
+
 let rec json_to_string (j: json): string = match j with
   | `Null -> "null"
   | `String s -> "\"" ^ (String.escaped s) ^ "\""
   | `Float f -> Float.to_string f
   | `Int n -> Int.to_string n