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

Fix unit contract tests due to new contract error format.

Browse Source
This commit is contained in:
Stevie Strickland 2010-12-10 13:05:42 -05:00
parent 0b54d7f010
commit 7ab53d8ddb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,10 +6,11 @@
(define top-level "top-level")
(define (match-blame re msg)
(regexp-match? (string-append "(^| )" re " broke") msg))
(or (regexp-match? (string-append "(^| )for " re " and its implementation;") msg)
(regexp-match? (string-append "(^| )and its client " re ";") msg)))
(define (match-obj re msg)
(regexp-match? (string-append "(^| )on " re ";") msg))
(regexp-match? (string-append "(^| )on " re " for") msg))
(define (get-ctc-err msg)
(cond