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

"broke its contract" => "broke its own contract"

Browse Source
This commit is contained in:
Robby Findler 2015-05-12 06:45:52 -05:00
parent 8d1e16f09c
commit 24b91852da
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test/tests/units/test-unit-contracts.rkt
View File

@ -9,18 +9,18 @@
(define (match-blame re msg) (define (match-blame re msg)
(or (regexp-match? (format "blaming: ~a" re) msg) (or (regexp-match? (format "blaming: ~a" re) msg)
(regexp-match? (format "broke its contract:.*blaming: ~a" re) msg))) (regexp-match? (format "broke its own contract:.*blaming: ~a" re) msg)))
(define (match-obj re msg) (define (match-obj re msg)
(or (regexp-match? (format "~a: contract violation" re) msg) (or (regexp-match? (format "~a: contract violation" re) msg)
(regexp-match? (format "~a: broke its contract" re) msg))) (regexp-match? (format "~a: broke its own contract" re) msg)))
(define (get-ctc-err msg) (define (get-ctc-err msg)
(cond (cond
[(regexp-match #rx"contract violation\n *([^\n]*)\n" msg) [(regexp-match #rx"contract violation\n *([^\n]*)\n" msg)
=> =>
(λ (x) (cadr x))] (λ (x) (cadr x))]
[(regexp-match #rx"broke its contract;?\n *([^\n]*)\n" msg) [(regexp-match #rx"broke its own contract;?\n *([^\n]*)\n" msg)
=> =>
(lambda (x) (cadr x))] (lambda (x) (cadr x))]
[else (error 'test-contract-error [else (error 'test-contract-error