Make multiline steps not finish with spaces

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