[functional-tests] Fix bug when a pattern matches to tests.

2017-10-05 15:05:22 +01:00 · 2017-10-05 15:05:22 +01:00 · 3eadbaf433
commit 3eadbaf433
parent db9259d303
1 changed files with 2 additions and 1 deletions
--- a/functional-tests/functional-tests.scm
+++ b/functional-tests/functional-tests.scm
@ -93,7 +93,8 @@
      (fmt #t (cat (fn keys) nl))
      (flush))

-    (for-each describe (cons '() (reverse (cdr (reverse keys)))) keys))
+    (unless (null? keys)
+        (for-each describe (cons '() (reverse (cdr (reverse keys)))) keys)))

  (define (describe-scenarios keys)
    (fmt-scenarios keys