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

This commit is contained in:
Joe Thornber 2017-10-05 15:05:22 +01:00
parent db9259d303
commit 3eadbaf433

View File

@ -93,7 +93,8 @@
(fmt #t (cat (fn keys) nl)) (fmt #t (cat (fn keys) nl))
(flush)) (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) (define (describe-scenarios keys)
(fmt-scenarios keys (fmt-scenarios keys