From a1acd0c8680cabe3f3423238d0af3cbeddcf11e0 Mon Sep 17 00:00:00 2001 From: Joe Thornber Date: Tue, 26 Sep 2017 14:02:42 +0100 Subject: [PATCH] [functional-tests] fix bug in run_tests if command line pattern was shorter than "re:" --- functional-tests/run-tests | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/functional-tests/run-tests b/functional-tests/run-tests index 2488742..c08f40f 100755 --- a/functional-tests/run-tests +++ b/functional-tests/run-tests @@ -55,10 +55,14 @@ (intersperse "/" (map symbol->string keys))))))) +(define (string-prefix? p str) + (and (>= (string-length str) (string-length p)) + (string=? p (substring str 0 (string-length p))))) + ;; If the filter begins with 're:' then we make a regex matcher, otherwise ;; we use a simple string matcher. (define (mk-single-matcher pattern) - (if (string=? (substring pattern 0 3) "re:") + (if (string-prefix? "re:" pattern) (mk-regex-matcher (substring pattern 3 (string-length pattern))) (mk-string-matcher pattern)))