aboutsummaryrefslogtreecommitdiff
path: root/test/test_parser.ml
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2023-12-26 15:07:20 -0600
committerMarc Coquand <marc@mccd.space>2023-12-26 15:07:20 -0600
commitf3c5dc866e429c388aa77375d9045698ccfb904e (patch)
treef077c558ea8cdf3dcbb1f3bc3ec4e34233b9ce9c /test/test_parser.ml
parent5746c8d2c9ae2a0696eb5c88931e62e0149e6b85 (diff)
downloadfixgen-f3c5dc866e429c388aa77375d9045698ccfb904e.tar.gz
fixgen-f3c5dc866e429c388aa77375d9045698ccfb904e.tar.bz2
fixgen-f3c5dc866e429c388aa77375d9045698ccfb904e.zip
Support underscore names
Diffstat (limited to '')
-rw-r--r--test/test_parser.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/test/test_parser.ml b/test/test_parser.ml
index 003086a..5fa9e6a 100644
--- a/test/test_parser.ml
+++ b/test/test_parser.ml
@@ -18,7 +18,7 @@ let rows_suite =
, `Quick
, 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 const", `Quick, test_parse "purchases (1): name \"_helloarsent1!@#4\""
; "Supports ints with min/max", `Quick, test_parse "purchases (1): name int(1,20)"
; ( "Supports a list of potential values"
, `Quick
@@ -26,6 +26,8 @@ let rows_suite =
; ( "Supports setting amount of fixture to generate"
, `Quick
, test_parse "purchases (5): name int(1,20)" )
+ ; "Supports underscore tables", `Quick, test_parse "purchases_new (5): name int(1,20)"
+ ; "Supports underscore tables", `Quick, test_parse "purchases_new (5): name int(1,20)"
]