emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests] fix bug in run_tests if command line pattern was shorter than "re:"

Browse Source
This commit is contained in:
Joe Thornber 2017-09-26 14:02:42 +01:00
parent 7796b4eecb
commit a1acd0c868
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
functional-tests/run-tests
View File

@ -55,10 +55,14 @@
(intersperse "/" (intersperse "/"
(map symbol->string keys))))))) (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 ;; If the filter begins with 're:' then we make a regex matcher, otherwise
;; we use a simple string matcher. ;; we use a simple string matcher.
(define (mk-single-matcher pattern) (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-regex-matcher (substring pattern 3 (string-length pattern)))
(mk-string-matcher pattern))) (mk-string-matcher pattern)))