diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/parse.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/parse.scm b/tests/parse.scm index 8a6c87b..e004a1b 100644 --- a/tests/parse.scm +++ b/tests/parse.scm @@ -17,24 +17,29 @@ (test-group "Official" + (test "testBasicDirection" - '(recipe (metadata ()) ((step ("Add a bit of chilli ")))) + '(recipe (metadata ()) ((step ("Add a bit of chilli")))) (cook->list (parse-cook "Add a bit of chilli\n"))) + (test "testComments" '(recipe (metadata ()) ((comment " testing comments"))) (cook->list (parse-cook "-- testing comments\n"))) + (test "testCommentsAfterIngredients" '(recipe (metadata ()) ((step ((ingredient "thyme" (amount 2 "sprigs")) - " " (comment " testing comments") "and some text ")))) + " " (comment " testing comments") "and some text")))) (cook->list (parse-cook "@thyme{2%sprigs} -- testing comments\nand some text\n"))) + (test "testCommentsWithIngredients" '(recipe (metadata ()) ((comment " testing comments") - (step ((ingredient "thyme" (amount 2 "sprigs")) " ")))) + (step ((ingredient "thyme" (amount 2 "sprigs")))))) (cook->list (parse-cook "-- testing comments\n@thyme{2%sprigs}\n"))) + ;(test "testDirectionsWithDegrees" ; '() ; (cook->list (parse-cook "Heat oven up to 200°C\n"))) |