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

one more test for batch-io

Browse Source
This commit is contained in:
Matthias Felleisen 2010-04-15 20:39:26 -04:00
parent 2727d5f0ba
commit a8999166d7
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/2htdp/tests/batch-io.ss
View File

@ -54,8 +54,10 @@ eos
(write-file file test3)
(check-equal? (read-file-as-csv file) '(("word1" "word2") ("word3" "word4"))
"as-cvs 1")
(check-equal? (read-file-as-csv/rows file length) '(2 2)
"as-words/rows")
(check-equal? (read-file-as-words file) '("word1," "word2" "word3," "word4")
"as-words 1")
"as-words")
(check-exn exn:fail:contract? (lambda () (write-file 0 1)))
(check-exn exn:fail:contract? (lambda () (write-file '("test") 1)))
@ -69,12 +71,3 @@ eos
(check-exn exn:fail:contract? (lambda () (read-file-as-1strings 0)))
(check-exn exn:fail:contract? (lambda () (read-file-as-1strings '("test"))))
(check-exn exn:fail?
(lambda ()
(with-handlers ((exn:fail:syntax? (compose error exn-message)))
(eval '(begin
(module a scheme
(require 2htdp/batch-io)
(read-file-as-csv "batch-io.ss" (turn-row-into cons)))
(require 'a))))))