suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r16361
This commit is contained in:
Robby Findler 2009-10-18 19:57:27 +00:00
parent 5555bba97e
commit 555aa8cf4c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/schemeunit/util.ss
View File

@ -73,5 +73,6 @@
(test-case case-name case-body ...) ...)))) (test-case case-name case-body ...) ...))))
(define-simple-check (check-regexp-match regex string) (define-simple-check (check-regexp-match regex string)
(regexp-match regex string)) (and (string? string)
(regexp-match regex string)))