small fixes to English in testing.scm

svn: r5304
This commit is contained in:
Matthias Felleisen 2007-01-10 19:14:12 +00:00
parent 8af562f7a1
commit 6537365672

View File

@ -179,7 +179,7 @@
[(outofrange? fail)
(send text insert "Actual value ")
(insert-value text (outofrange-test fail))
(send text insert (format "is 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)
@ -187,7 +187,7 @@
(format "check-error encountered the following error instead of the expected ~a~n :: ~a ~n"
(incorrect-error-expected fail) (incorrect-error-message fail)))]
[(expected-error? fail)
(send text insert "check-error expected the following error, instead received value ")
(send text insert "check-error expected the following error, but instead received the value ")
(insert-value text (expected-error-value fail))
(send text insert (format ".~n ~a~n" (expected-error-message fail)))]))