From 3eadbaf433219d791a4a2527e315e195fa99625b Mon Sep 17 00:00:00 2001
From: Joe Thornber <ejt@redhat.com>
Date: Thu, 5 Oct 2017 15:05:22 +0100
Subject: [PATCH] [functional-tests] Fix bug when a pattern matches to tests.

---
 functional-tests/functional-tests.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/functional-tests/functional-tests.scm b/functional-tests/functional-tests.scm
index aa16ef4..cbb68a9 100644
--- 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