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

This commit is contained in:
Robby Findler 2015-05-12 06:45:52 -05:00
parent 8d1e16f09c
commit 24b91852da

View File

@ -9,18 +9,18 @@
(define (match-blame 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)
(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)
(cond
[(regexp-match #rx"contract violation\n *([^\n]*)\n" msg)
=>
(λ (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))]
[else (error 'test-contract-error