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

Changed "right" error messages to match new actual error messages.

Browse Source 
(cherry picked from commit 71a59cf653)
This commit is contained in:
Stephen Bloch 2012-10-20 13:31:00 -04:00 committed by Ryan Culpepper
parent 76cad3cedd
commit d16bc25821
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
collects/picturing-programs/tests/tiles-error-tests.rkt
View File

@ -4,34 +4,34 @@
(require picturing-programs) (require picturing-programs)
(check-error (reflect-horiz 17) (check-error (reflect-horiz 17)
"reflect-horiz: expected <image> as first argument, given: 17") "reflect-horiz: expected <image> as first argument, given 17")
(check-error (reflect-vert "hello") (check-error (reflect-vert "hello")
"reflect-vert: expected <image> as first argument, given: \"hello\"") "reflect-vert: expected <image> as first argument, given \"hello\"")
(check-error (reflect-main-diag true) (check-error (reflect-main-diag true)
"reflect-main-diag: expected <image> as first argument, given: true") "reflect-main-diag: expected <image> as first argument, given true")
(check-error (reflect-other-diag false) (check-error (reflect-other-diag false)
"reflect-other-diag: expected <image> as first argument, given: false") "reflect-other-diag: expected <image> as first argument, given false")
(check-error (flip-main 'blue) (check-error (flip-main 'blue)
"flip-main: expected <image> as first argument, given: 'blue") "flip-main: expected <image> as first argument, given 'blue")
(check-error (flip-other "snark") (check-error (flip-other "snark")
"flip-other: expected <image> as first argument, given: \"snark\"") "flip-other: expected <image> as first argument, given \"snark\"")
(check-error (crop-left pic:hacker 50) (check-error (crop-left pic:hacker 50)
"crop-left: expected <natural number <= 48> as second argument, given: 50") "crop-left: expected <natural number <= 48> as second argument, given 50")
(check-error (crop-right pic:bloch 100) (check-error (crop-right pic:bloch 100)
"crop-right: expected <natural number <= 93> as second argument, given: 100") "crop-right: expected <natural number <= 93> as second argument, given 100")
(check-error (crop-top pic:book 56) (check-error (crop-top pic:book 56)
"crop-top: expected <natural number <= 39> as second argument, given: 56") "crop-top: expected <natural number <= 39> as second argument, given 56")
(check-error (crop-bottom pic:hacker 56) (check-error (crop-bottom pic:hacker 56)
"crop-bottom: expected <natural number <= 48> as second argument, given: 56") "crop-bottom: expected <natural number <= 48> as second argument, given 56")
(check-error (crop-left pic:hacker -3) (check-error (crop-left pic:hacker -3)
"crop-left: expected <natural number <= 48> as second argument, given: -3") "crop-left: expected <natural number <= 48> as second argument, given -3")
(check-error (crop-top pic:book 3.2) (check-error (crop-top pic:book 3.2)
"crop-top: expected <natural number <= 39> as second argument, given: 3.2") "crop-top: expected <natural number <= 39> as second argument, given 3.2")
(check-error (crop-bottom pic:book pic:book) (check-error (crop-bottom pic:book pic:book)
"crop-bottom: expected <natural number <= 39> as second argument, given: #<image>") "crop-bottom: expected <natural number <= 39> as second argument, given #<image>")
(check-error (rotate-cw 17) (check-error (rotate-cw 17)
"rotate-cw: expected <image> as first argument, given: 17") "rotate-cw: expected <image> as first argument, given 17")
(check-error (rotate-ccw true) (check-error (rotate-ccw true)
"rotate-ccw: expected <image> as first argument, given: true") "rotate-ccw: expected <image> as first argument, given true")
(check-error (rotate-180 "goodbye") (check-error (rotate-180 "goodbye")
"rotate-180: expected <image> as first argument, given: \"goodbye\"") "rotate-180: expected <image> as first argument, given \"goodbye\"")