diff options
| -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" ) |