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

These tests are sensitive to the contract error messages

Browse Source
This commit is contained in:
Jay McCarthy 2011-07-02 12:19:41 -07:00
parent 14bc3afe90
commit 88bf52c88b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/plai/datatype.rkt
View File

@ -32,10 +32,10 @@
(eli:test
(i 4)
(regexp-match "\\(exception \\(make-i #f\\) \".+ on make-i .+\" '<no-expected-value> \"at line 36\"\\)"
(regexp-match "\\(exception \\(make-i #f\\) \"make-i.+\" '<no-expected-value> \"at line 36\"\\)"
(with-output-to-string (λ () (test/exn (make-i #f) "contract"))))
(regexp-match "\\(exception \\(i-f #f\\) \".+ on i-f .+\" '<no-expected-value> \"at line 39\"\\)"
(regexp-match "\\(exception \\(i-f #f\\) \"i-f.+\" '<no-expected-value> \"at line 39\"\\)"
(with-output-to-string (λ () (test/exn (i-f #f) "contract"))))
@ -45,7 +45,7 @@
=>
1
(regexp-match "\\(exception \\(c1 \\(quote not-a-number\\)\\) \".+ on c1 .+\" '<no-expected-value> \"at line 49\"\\)"
(regexp-match "\\(exception \\(c1 \\(quote not-a-number\\)\\) \"c1.+\" '<no-expected-value> \"at line 49\"\\)"
(with-output-to-string (λ () (test (c1 'not-a-number) (list 5)))))
(regexp-match (regexp-quote "(exception (type-case t (list 1) (c () 1)) \"type-case: expected a value from type t, got: (1)\" '<no-expected-value> \"at line 53\")")