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

small fixes to testing

Browse Source 
svn: r5231
This commit is contained in:
Matthias Felleisen 2007-01-05 17:02:50 +00:00
parent c8ea629bd5
commit ef8befa249
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/htdp/testing.scm
View File

@ -173,13 +173,13 @@
[(unequal? fail)
(send text insert "Actual value ")
(insert-value text (unequal-test fail))
(send text insert " did not equal expected value ")
(send text insert " differs from ")
(insert-value text (unequal-actual fail))
(send text insert ".\n")]
(send text insert ", the expected value.\n")]
[(outofrange? fail)
(send text insert "Actual value ")
(insert-value text (outofrange-test fail))
(send text insert (format "was not within ~v of expected value " (outofrange-range fail)))
(send text insert (format "is not within ~v of expected value " (outofrange-range fail)))
(insert-value text (outofrange-actual fail))
(send text insert ".\n")]
[(incorrect-error? fail)
@ -198,7 +198,7 @@
(send value set-style (send (send text get-style-list)
find-named-style "Standard"))
value]
[(pair? value)
[(or (pair? value) (struct? value))
(parameterize ([constructor-style-printing #t]
[pretty-print-columns 40])
(let* ([text* (new (editor:standard-style-list-mixin text%))]
@ -266,7 +266,7 @@
(define (format-src src)
(string-append (cond
((path? (src-file src)) (string-append "in " (src-file src) " at "))
((path? (src-file src)) (string-append "in " (path->string (src-file src)) " at "))
((is-a? (src-file src) editor<%>) "at "))
"line " (number->string (src-line src))
" column " (number->string (src-col src))))