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

write-xexpr test cases

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-30 21:51:29 -07:00
parent 9ad953c501
commit 4ca1dac51c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/xml/test.rkt
View File

@ -482,6 +482,7 @@ END
(test-equal? str (string->xexpr str) xe))
(define (test-xexpr->string xe str)
(test-equal? (format "~S" xe) (xexpr->string xe) str)
(test-equal? (format "~S" xe) (with-output-to-string (λ () (write-xexpr xe))) str)
(test-string->xexpr str xe))
(define (test-string->xexpr str xe)
(test-equal? str (string->xexpr str) xe))]