aboutsummaryrefslogtreecommitdiff
path: root/test/test_parser.ml
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2023-12-26 10:46:11 -0600
committerMarc Coquand <marc@mccd.space>2023-12-26 10:46:11 -0600
commit2a664a47c73e232b6ff0d261833e2561d4abc4d0 (patch)
tree8ad1f0c88f6151bff69f63d61e1e447d2ae5b034 /test/test_parser.ml
parentd96e1839eb800bf26bcc38272072d98af69f5d83 (diff)
downloadfixgen-2a664a47c73e232b6ff0d261833e2561d4abc4d0.tar.gz
fixgen-2a664a47c73e232b6ff0d261833e2561d4abc4d0.tar.bz2
fixgen-2a664a47c73e232b6ff0d261833e2561d4abc4d0.zip
Support list
Diffstat (limited to '')
-rw-r--r--test/test_parser.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/test/test_parser.ml b/test/test_parser.ml
index abb0a40..80e9d12 100644
--- a/test/test_parser.ml
+++ b/test/test_parser.ml
@@ -20,6 +20,9 @@ let rows_suite =
; "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 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)" )