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

minor

Browse Source 
svn: r13277
This commit is contained in:
Eli Barzilay 2009-01-25 03:52:59 +00:00
parent c79acd6f61
commit 79e4fc3e9b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/eli-tester.ss
View File

@ -42,7 +42,7 @@
(cond [(and (eq? 'values (car x)) (eq? 'error (car y))) (cond [(and (eq? 'values (car x)) (eq? 'error (car y)))
#,(blame x "expected an error; got ~a" #'(show x))] #,(blame x "expected an error; got ~a" #'(show x))]
[(and (eq? 'error (car x)) (eq? 'error (car y))) [(and (eq? 'error (car x)) (eq? 'error (car y)))
(unless (regexp-match (regexp-quote (cadr y)) (cadr x)) (unless (regexp-match? (regexp-quote (cadr y)) (cadr x))
#,(blame x "bad error message, expected ~s; got ~s" #,(blame x "bad error message, expected ~s; got ~s"
#'(cadr y) #'(cadr x)))] #'(cadr y) #'(cadr x)))]
[(not (equal? x y)) [(not (equal? x y))