diff options
| author | Marc Coquand <marc@mccd.space> | 2023-12-26 15:07:29 -0600 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2023-12-26 15:07:29 -0600 |
| commit | 05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c (patch) | |
| tree | 15f20d9c647f790368c42206a698c1de0b6c5769 | |
| parent | f3c5dc866e429c388aa77375d9045698ccfb904e (diff) | |
| download | fixgen-05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c.tar.gz fixgen-05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c.tar.bz2 fixgen-05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c.zip | |
Update test cases
Diffstat (limited to '')
| -rw-r--r-- | test/test_parser.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/test_parser.ml b/test/test_parser.ml index 5fa9e6a..e18f055 100644 --- a/test/test_parser.ml +++ b/test/test_parser.ml @@ -38,6 +38,15 @@ let relations_suite = ; ( "Can use ; as a separator" , `Quick , test_parse "user (2): id uuidv4; purchases (5): id uuidv4" ) + ; ( "Supports nested relations" + , `Quick + , test_parse + "user (2): id uuidv4; purchases (5): id uuidv4; receipts (5): id purchases.id" ) + ; ( "Supports multiple relations" + , `Quick + , test_parse + "buyer (2): id uuidv4; seller (5): id uuidv4; purchases (5): buyer buyer.id, \ + seller seller.id" ) ; ( "Supports multiple newlines" , `Quick , test_parse "user (2): id uuidv4\n\n\n\n\npurchases (5): id uuidv4" ) |