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

Another test that is sensitive to the contract error message text

Browse Source 
original commit: 8da2f537fbdd47493413c3d4d2b4b8caff947123
This commit is contained in:
Jay McCarthy 2011-07-02 14:50:24 -07:00
parent 89857c786d
commit 81f9743590
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/contract-mzlib-test.rktl
View File

@ -5065,7 +5065,7 @@ so that propagation occurs.
(eval '(require 'pce1-bug)))
(λ (x)
(and (exn? x)
(regexp-match #rx"on the-defined-variable1" (exn-message x)))))
(regexp-match #rx"the-defined-variable1:" (exn-message x)))))
(contract-error-test
#'(begin
@ -5077,7 +5077,7 @@ so that propagation occurs.
(eval '(the-defined-variable2 #f)))
(λ (x)
(and (exn? x)
(regexp-match #rx"on the-defined-variable2" (exn-message x)))))
(regexp-match #rx"the-defined-variable2:" (exn-message x)))))
(contract-error-test
#'(begin
@ -5089,7 +5089,7 @@ so that propagation occurs.
(eval '(the-defined-variable3 #f)))
(λ (x)
(and (exn? x)
(regexp-match #rx"on the-defined-variable3" (exn-message x)))))
(regexp-match #rx"the-defined-variable3:" (exn-message x)))))
(contract-error-test
#'(begin
@ -5101,7 +5101,7 @@ so that propagation occurs.
(eval '((if #t the-defined-variable4 the-defined-variable4) #f)))
(λ (x)
(and (exn? x)
(regexp-match #rx"on the-defined-variable4" (exn-message x)))))
(regexp-match #rx"the-defined-variable4:" (exn-message x)))))
(contract-error-test
#'(begin