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

"broke it's contract" -> "broke its contract"

Browse Source
This commit is contained in:
Stevie Strickland 2012-05-16 11:43:47 -04:00
parent bd75b17a23
commit 3dcc8ec92f
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/contract/private/blame.rkt
View File

@ -162,7 +162,7 @@
(format " at: ~a" source-message)))
(define self-or-not (if (blame-original? blme)
"broke it's contract"
"broke its contract"
"contract violation"))
(define start-of-message

4
collects/tests/racket/contract-test.rktl
View File

@ -144,7 +144,7 @@
(define (has-proper-blame? msg)
(define reg
(cond
[(eq? blame 'pos) #rx"broke it's contract[\n:,].*blaming: pos"]
[(eq? blame 'pos) #rx"broke its contract[\n:,].*blaming: pos"]
[(eq? blame 'neg) #rx"blaming: neg"]
[(string? blame) (string-append "blaming: " (regexp-quote blame))]
[else #f]))
@ -13588,7 +13588,7 @@ so that propagation occurs.
(eval '(require 'pce1-bug)))
(λ (x)
(and (exn:fail:contract:blame? x)
(regexp-match #rx"the-defined-variable1: broke it's contract" (exn-message x)))))
(regexp-match #rx"the-defined-variable1: broke its contract" (exn-message x)))))
(contract-error-test
'contract-error-test9

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

@ -7,18 +7,18 @@
(define (match-blame re msg)
(or (regexp-match? (format "blaming: ~a" re) msg)
(regexp-match? (format "broke it's contract:.*blaming: ~a" re) msg)))
(regexp-match? (format "broke its contract:.*blaming: ~a" re) msg)))
(define (match-obj re msg)
(or (regexp-match? (format "~a: contract violation" re) msg)
(regexp-match? (format "~a: broke it's contract" re) msg)))
(regexp-match? (format "~a: broke its 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 it's contract\n *([^\n]*)\n" msg)
[(regexp-match #rx"broke its contract\n *([^\n]*)\n" msg)
=>
(lambda (x) (cadr x))]
[else (error 'test-contract-error