aboutsummaryrefslogtreecommitdiff
path: root/test/test_parser.ml
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2023-12-26 12:13:49 -0600
committerMarc Coquand <marc@mccd.space>2023-12-26 12:13:49 -0600
commit68de927be04607e6573a5439e19449941defb5f8 (patch)
treeef9ecc704bebaaca9a14966c6617d9d94b3e341c /test/test_parser.ml
parentbd14bbf8cab86547cb20afcb2b29fb0336cbf958 (diff)
downloadfixgen-68de927be04607e6573a5439e19449941defb5f8.tar.gz
fixgen-68de927be04607e6573a5439e19449941defb5f8.tar.bz2
fixgen-68de927be04607e6573a5439e19449941defb5f8.zip
Fix bug with naming
Diffstat (limited to 'test/test_parser.ml')
-rw-r--r--test/test_parser.ml16
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" )
]