diff options
| author | Marc Coquand <marc@mccd.space> | 2023-12-26 10:46:11 -0600 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2023-12-26 10:46:11 -0600 |
| commit | 2a664a47c73e232b6ff0d261833e2561d4abc4d0 (patch) | |
| tree | 8ad1f0c88f6151bff69f63d61e1e447d2ae5b034 /test | |
| parent | d96e1839eb800bf26bcc38272072d98af69f5d83 (diff) | |
| download | fixgen-2a664a47c73e232b6ff0d261833e2561d4abc4d0.tar.gz fixgen-2a664a47c73e232b6ff0d261833e2561d4abc4d0.tar.bz2 fixgen-2a664a47c73e232b6ff0d261833e2561d4abc4d0.zip | |
Support list
Diffstat (limited to '')
| -rw-r--r-- | test/test_parser.ml | 3 |
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)" ) |