diff options
author | Marc Coquand <marc@mccd.space> | 2023-12-26 12:13:49 -0600 |
---|---|---|
committer | Marc Coquand <marc@mccd.space> | 2023-12-26 12:13:49 -0600 |
commit | 68de927be04607e6573a5439e19449941defb5f8 (patch) | |
tree | ef9ecc704bebaaca9a14966c6617d9d94b3e341c /test | |
parent | bd14bbf8cab86547cb20afcb2b29fb0336cbf958 (diff) | |
download | fixgen-68de927be04607e6573a5439e19449941defb5f8.tar.gz fixgen-68de927be04607e6573a5439e19449941defb5f8.tar.bz2 fixgen-68de927be04607e6573a5439e19449941defb5f8.zip |
Fix bug with naming
Diffstat (limited to 'test')
-rw-r--r-- | test/test_parser.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/test/test_parser.ml b/test/test_parser.ml index 80e9d12..003086a 100644 --- a/test/test_parser.ml +++ b/test/test_parser.ml @@ -13,32 +13,32 @@ let test_parse s () = let rows_suite = - [ "Can parse uuidv4", `Quick, test_parse "user (1): id _uuidv4" + [ "Can parse uuidv4", `Quick, test_parse "user (1): id uuidv4" ; ( "Can parse multiple tables" , `Quick - , test_parse "user (1): id _uuidv4\npurchases (1): id _uuidv4" ) - ; "Supports names", `Quick, test_parse "purchases (1): name _name" + , test_parse "user (1): id uuidv4\npurchases (1): id uuidv4" ) + ; "Supports names", `Quick, test_parse "purchases (1): name name" ; "Supports const", `Quick, test_parse "purchases (1): name \"hello\"" - ; "Supports ints with min/max", `Quick, test_parse "purchases (1): name _int(1,20)" + ; "Supports ints with min/max", `Quick, test_parse "purchases (1): name int(1,20)" ; ( "Supports a list of potential values" , `Quick , test_parse "purchases (1): name (\"a\",\"b\",\"c\")" ) ; ( "Supports setting amount of fixture to generate" , `Quick - , test_parse "purchases (5): name _int(1,20)" ) + , test_parse "purchases (5): name int(1,20)" ) ] let relations_suite = [ ( "Can reference other tables" , `Quick - , test_parse "user (2): id _uuidv4\npurchases (3): id _uuidv4, userid user.id" ) + , test_parse "user (2): id uuidv4\npurchases (3): id uuidv4, userid user.id" ) ; ( "Can use ; as a separator" , `Quick - , test_parse "user (2): id _uuidv4; purchases (5): id _uuidv4" ) + , test_parse "user (2): id uuidv4; purchases (5): id uuidv4" ) ; ( "Supports multiple newlines" , `Quick - , test_parse "user (2): id _uuidv4\n\n\n\n\npurchases (5): id _uuidv4" ) + , test_parse "user (2): id uuidv4\n\n\n\n\npurchases (5): id uuidv4" ) ] |