make parametrize test more readable

jcubic · Jan 11, 2024 · 8828117 · 8828117
1 parent 257b92f
commit 8828117
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/parametrize.scm b/tests/parametrize.scm
@@ -2,9 +2,12 @@
 (test "parameterize: lexical"
       (lambda (t)
         (define location (make-parameter "here"))
+
         (t.is (location) "here")
+
         (t.is (parameterize ([location "there"]) (location))
               "there")
+
         (t.is (parameterize ([location "in a house"])
                 (list (location)
                       (parameterize ([location "with a mouse"])
@@ -23,6 +26,7 @@
 (test "parametrize: change value"
       (lambda (t)
         (define location (make-parameter "here"))
+
         (t.is (list (location) (begin (location "there")
                                       (location)))
               '("here" "there"))))