diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/ast_types.ml | 1 | ||||
| -rw-r--r-- | lib/fixture.ml | 1 | ||||
| -rw-r--r-- | lib/lexer.mll | 1 |
3 files changed, 1 insertions, 2 deletions
diff --git a/lib/ast_types.ml b/lib/ast_types.ml index 6a02040..fdcafd2 100644 --- a/lib/ast_types.ml +++ b/lib/ast_types.ml @@ -64,7 +64,6 @@ type ast_table_relation = | PTable of string * int * Fixture.t list | CTable of (string * string) list * string * int * (Fixture.compiled -> Fixture.compiled list -> Fixture.t list) (** parent (name, referenced id), row, child_name, fixture builder given a parent name and list of options *) - (* TODO: Support multiple relations *) let table_name = function diff --git a/lib/fixture.ml b/lib/fixture.ml index 21d77cf..4985624 100644 --- a/lib/fixture.ml +++ b/lib/fixture.ml @@ -88,6 +88,7 @@ let%test "random_value_in_list" = (* TODO: Support email *) (* TODO: Support "hashed" password *) +(* TODO: Support dates *) (* TODO: Support variables using @ *) let rec replicate element n = diff --git a/lib/lexer.mll b/lib/lexer.mll index e733666..0fb7f7c 100644 --- a/lib/lexer.mll +++ b/lib/lexer.mll @@ -15,7 +15,6 @@ let id = ['a'-'z' 'A'-'Z' '-' '_']* let newline = '\r' | '\n' | "\r\n" let many_newline = newline+ -(* TODO: Support _ and - in identifiers *) rule read = parse | "uuidv4" { UUIDV4 } |