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

minor

Browse Source 
svn: r13276
This commit is contained in:
Eli Barzilay 2009-01-25 03:35:37 +00:00
parent 4288ba636e
commit c79acd6f61
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

@ -39,7 +39,7 @@
#,(blame x "expected non-#f single value; got: ~a" #'(show x))))) #,(blame x "expected non-#f single value; got: ~a" #'(show x)))))
(define (t2 x y) (define (t2 x y)
#`(let ([x (safe #,x)] [y (safe #,y)]) #`(let ([x (safe #,x)] [y (safe #,y)])
(cond [(and (eq? 'error (car y)) (eq? 'values (car x))) (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))