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

fixed tests for batch io

Browse Source
This commit is contained in:
Matthias Felleisen 2010-04-27 19:06:31 -04:00
parent 96a3f47ea0
commit 2613ce6c09
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,14 +25,14 @@ eos
(check-true (string=? (read-file file) test2) "read-file 2")
(write-file file test1)
(check-equal? (read-as-lines file) (list test1) "as-lines 1")
(check-equal? (read-lines file) (list test1) "as-lines 1")
(write-file file test2)
(check-equal? (read-as-lines file) test2-as-list "as-lines 2")
(check-equal? (read-lines file) test2-as-list "as-lines 2")
(define as-1strings1 (map string (string->list test1)))
(write-file file test1)
(check-equal? (read-as-1strings file) as-1strings1 "as-1strings 1")
(check-equal? (read-1strings file) as-1strings1 "as-1strings 1")
(define as-1strings2
(map string
@ -43,7 +43,7 @@ eos
test2-as-list))))))
(write-file file test2)
(check-equal? (read-as-1strings file) as-1strings2 "as-lines 2")
(check-equal? (read-1strings file) as-1strings2 "as-lines 2")
(define test2-a-as-list '("test1" "" "test2"))
@ -55,8 +55,8 @@ eos
(second test2-as-list))))
(write-file file test2-a)
(check-equal? (read-as-lines file) test2-a-as-list "as-lines 2-a")
(check-equal? (read-as-words file) '("test1" "test2") "as-words 2-a")
(check-equal? (read-lines file) test2-a-as-list "as-lines 2-a")
(check-equal? (read-words file) '("test1" "test2") "as-words 2-a")
(define test3 #<< eos
word1, word2
@ -65,13 +65,13 @@ eos
)
(write-file file test3)
(check-equal? (read-as-words file) '("word1," "word2" "word3," "word4")
(check-equal? (read-words file) '("word1," "word2" "word3," "word4")
"as-words")
(check-equal? (read-as-words/line file) '(("word1," "word2") ("word3," "word4"))
(check-equal? (read-words/line file) '(("word1," "word2") ("word3," "word4"))
"as-words")
(check-equal? (read-as-csv file) '(("word1" "word2") ("word3" "word4"))
(check-equal? (read-csv-file file) '(("word1" "word2") ("word3" "word4"))
"as-cvs 1")
(check-equal? (read-as-csv/rows file length) '(2 2)
(check-equal? (read-csv-file/rows file length) '(2 2)
"as-csv/rows")
@ -82,8 +82,8 @@ eos
(check-exn exn:fail:contract? (lambda () (read-file 0)))
(check-exn exn:fail:contract? (lambda () (read-file '("test"))))
(check-exn exn:fail:contract? (lambda () (read-as-lines 0)))
(check-exn exn:fail:contract? (lambda () (read-as-lines '("test"))))
(check-exn exn:fail:contract? (lambda () (read-lines 0)))
(check-exn exn:fail:contract? (lambda () (read-lines '("test"))))
(check-exn exn:fail:contract? (lambda () (read-as-1strings 0)))
(check-exn exn:fail:contract? (lambda () (read-as-1strings '("test"))))
(check-exn exn:fail:contract? (lambda () (read-1strings 0)))
(check-exn exn:fail:contract? (lambda () (read-1strings '("test"))))