From 2613ce6c09973ffe8480374aa985662fa296f1de Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 27 Apr 2010 19:06:31 -0400 Subject: [PATCH] fixed tests for batch io --- collects/2htdp/tests/batch-io.ss | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/collects/2htdp/tests/batch-io.ss b/collects/2htdp/tests/batch-io.ss index a5f29ab05c..c3e002c4af 100644 --- a/collects/2htdp/tests/batch-io.ss +++ b/collects/2htdp/tests/batch-io.ss @@ -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"))))