From fa05283d68b1db72f5c5e12fee5c73d437754ca2 Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Fri, 8 Jul 2022 22:12:00 +0300 Subject: [PATCH] Downcase testbench name in work directory name --- utest.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/utest.scm b/utest.scm index 4ef91ac..3b086cc 100755 --- a/utest.scm +++ b/utest.scm @@ -683,7 +683,8 @@ (work (mkdtemp (format "~a/~a~a-~a-~a-XXXXXX" base WORK_DIR_PREFIX makefile-name - (string-map (lambda (c) (if (char-whitespace? c) #\_ c)) name) + (string-map (lambda (c) (if (char-whitespace? c) #\_ c)) + (string-downcase name)) (current-time))))) ;; Execute test (let* ((p #f)