From 2bba3d3de5a8cefe233f274fa2d8a2ba69799760 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 12 Aug 2024 21:50:50 +0200 Subject: Make multiline steps not finish with spaces --- tests/parse.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'tests') 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"))) -- cgit v1.2.3