fixed check-regexp-match so that the test suite fails when the argument isn't a string (instead of signalling an internal error)

svn: r16361 original commit: 555aa8cf4c6145898ae3697a9fe1c00f70b7d6c4
2009-10-18 19:57:27 +00:00 · 2009-10-18 19:57:27 +00:00 · cd71568751
commit cd71568751
parent 0c7301c2d4
1 changed files with 2 additions and 1 deletions
--- a/collects/schemeunit/util.ss
+++ b/collects/schemeunit/util.ss
@ -73,5 +73,6 @@
      (test-case case-name case-body ...) ...))))

 (define-simple-check (check-regexp-match regex string)
-  (regexp-match regex string))
+  (and (string? string) 
+       (regexp-match regex string)))