aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2023-12-26 15:07:29 -0600
committerMarc Coquand <marc@mccd.space>2023-12-26 15:07:29 -0600
commit05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c (patch)
tree15f20d9c647f790368c42206a698c1de0b6c5769
parentf3c5dc866e429c388aa77375d9045698ccfb904e (diff)
downloadfixgen-05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c.tar.gz
fixgen-05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c.tar.bz2
fixgen-05c3cef84ea4e69c5eeb0ee4a342b0cfc65e0f0c.zip
Update test cases
Diffstat (limited to '')
-rw-r--r--test/test_parser.ml9
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" )