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

adjust the unit contract tests for the new contract error messages

Browse Source
This commit is contained in:
Robby Findler 2012-04-29 21:45:07 -05:00
parent 8739f15057
commit b66f716374
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/units/test-unit-contracts.rktl
View File

@ -15,10 +15,10 @@
(define (get-ctc-err msg)
(cond
[(regexp-match #rx"contract violation, ([^\n]*)\n" msg)
[(regexp-match #rx"contract violation\n *([^\n]*)\n" msg)
=>
(λ (x) (cadr x))]
[(regexp-match #rx"self-contract violation, ([^\n]*)\n" msg)
[(regexp-match #rx"self-contract violation\n *([^\n]*)\n" msg)
=>
(lambda (x) (cadr x))]
[else (error 'test-contract-error