aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/ast_types.ml5
-rw-r--r--lib/fixture.ml2
2 files changed, 5 insertions, 2 deletions
diff --git a/lib/ast_types.ml b/lib/ast_types.ml
index 7638d3b..6996435 100644
--- a/lib/ast_types.ml
+++ b/lib/ast_types.ml
@@ -13,11 +13,12 @@ type ast_row =
[@@deriving show, eq]
type ast_table =
+(** In hindsight, this could've been represented as a list of tables instead using separated list command
+
+ TODO: Rewrite this to use a list of tables instead of a tree *)
| Table of string * int * ast_row * ast_table
| End
[@@deriving show, eq]
-(** In hindsight, this could've been represented as a list of tables instead using separated list command
- TODO: Rewrite this to use a list of tables instead of a tree *)
let rec print_row = function
| Uuidv4 (s, r) ->
diff --git a/lib/fixture.ml b/lib/fixture.ml
index d28d4b3..94c39a9 100644
--- a/lib/fixture.ml
+++ b/lib/fixture.ml
@@ -135,6 +135,8 @@ let json_of_generated_fixtures fixtures =
"[" ^ String.concat ", " (List.map json_of_row rows) ^ "]"
+(* TODO: Should export not only as strings *)
+
let%test "json_of_generated_fixtures" =
let result = [ [ "id"; "name" ]; [ "1234"; "John" ] ] |> json_of_generated_fixtures in
result = "[{\"id\": \"1234\", \"name\": \"John\"}]"