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

fix text-mode reading of test case boxes

Browse Source 
svn: r6289
This commit is contained in:
Matthew Flatt 2007-05-25 02:40:41 +00:00
parent 7d9f2d8b6a
commit e63138ef10
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/wxme/test-case.ss
View File

@ -52,14 +52,12 @@
[collapsed? (= 1 (send stream read-integer "test-case-box collapsed?"))]
[error-box? (= 1 (send stream read-integer "test-case-box error-box?"))])])])
(if text?
(apply
bytes-append
(map concat
(send v get-comment)
(send v get-test)
(send v get-expected)
(send v get-predicate)
(send v get-should-raise)
(send v error-message)))
(bytes-append
(or (send v get-comment) #"")
(or (send v get-test) #"")
(or (send v get-expected) #"")
(or (send v get-predicate) #"")
(or (send v get-should-raise) #"")
(or (send v get-error-message) #""))
v)))
(super-new)))))