From b5d2b12863bd668adac13940c7c5800b53592db3 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Tue, 12 Jul 2022 18:40:59 +0300
Subject: [PATCH] Return #f from testbench of no test procedures available

---
 utest.scm | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/utest.scm b/utest.scm
index f8da1a8..c8a2217 100755
--- a/utest.scm
+++ b/utest.scm
@@ -620,12 +620,23 @@
 (define (collect-test-procs files)
   (fold
    (lambda (f procs)
-     (let ((f (path->absolute f)))
+     (let* ((f (path->absolute f))
+            (base (dirname f)))
        (append
         procs
-        (map (lambda (proc) (list proc (dirname f) (basename f)))
-             (let ((procs (load f)))
-               (if (list? procs) procs (list procs)))))))
+        (filter
+         car
+         (map (lambda (proc) (list proc base (basename f)))
+              (let ((procs
+                     (parameterize ((utest/base-path base)
+                                    (utest/work-path #f))
+                       (load f))))
+                (if procs
+                    (if (list? procs) procs
+                        (if (procedure? procs)
+                            (list procs)
+                            '(#f)))
+                    '(#f))))))))
    '() files))
 
 ;;;