From 2e77afe5daf71c1e3345a4a09f7f456869e0f8b1 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 15 Apr 2010 18:38:09 -0400 Subject: [PATCH] . --- collects/2htdp/private/csv/test-csv.ss | 150 ------------------------- 1 file changed, 150 deletions(-) delete mode 100644 collects/2htdp/private/csv/test-csv.ss diff --git a/collects/2htdp/private/csv/test-csv.ss b/collects/2htdp/private/csv/test-csv.ss deleted file mode 100644 index 5c31181f02..0000000000 --- a/collects/2htdp/private/csv/test-csv.ss +++ /dev/null @@ -1,150 +0,0 @@ -;; See csv.ss for legal information. -;; $Id: test-csv.ss,v 1.3 2009/02/24 05:17:26 neilpair Exp $ - -#lang scheme/base - -(require (planet neil/testeez:1:1/testeez) - "csv.ss") - -(testeez - "csv" - - (test-define "define an ascii CR char" - cr - (string (integer->char 13))) - (test-define "define an ascii LF char" - lf - (string (integer->char 10))) - - (test/equal "simple" - (csv->list (string-append - "a" lf "b" lf "c" lf "d" lf "")) - '(("a") ("b") ("c") ("d"))) - - (test/equal "simple" - (csv->list (string-append " a " - lf - " b " - lf - " c " - lf - " d " - lf - "")) - '((" a ") (" b ") (" c ") (" d "))) - - (test/equal "simple" - (csv->list (string-append "aaa,bbb,ccc" cr lf - "1,2,3" cr lf)) - '(("aaa" "bbb" "ccc") ("1" "2" "3"))) - - (test/equal "quoted field" - (csv->list "aaa,\"bbb\",ccc") - '(("aaa" "bbb" "ccc"))) - - (test/equal "quoted field with comma" - (csv->list "aaa,\"bbb,bbb\",ccc") - '(("aaa" "bbb,bbb" "ccc"))) - - (test/equal "quoted field followed by whitespace" - (csv->list "aaa,\"bbb\" ,ccc") - '(("aaa" "bbb" "ccc"))) - - (test/equal "quoted field with newline in it" - (csv->list (string-append "aaa,\"b" lf "b\",ccc" lf - "ddd,eee,fff" lf)) - `(("aaa" ,(string-append "b" lf "b") "ccc") - ("ddd" "eee" "fff"))) - - (test/equal "quoted field with doubling escape in middle" - (csv->list "aaa,\"b\"\"b\",ccc") - '(("aaa" "b\"b" "ccc"))) - - (test/equal "quoted field with doubling escape at beginning" - (csv->list "aaa,\"\"\"bbb\",ccc") - '(("aaa" "\"bbb" "ccc"))) - - (test/equal "quoted field with doubling escape at end" - (csv->list "aaa,\"bbb\"\"\",ccc") - '(("aaa" "bbb\"" "ccc"))) - - (test/equal "quoted field with unterminated quote" - (csv->list "aaa,\"bbb,ccc") - '(("aaa" "bbb,ccc"))) - - (test/equal "quoted field followed by eof" - (csv->list "aaa,\"bbb\"") - '(("aaa" "bbb"))) - - (test-define "define a reader-maker that strips whitespace" - make-ws-stripping-reader - (make-csv-reader-maker - '((strip-leading-whitespace? . #t) - (strip-trailing-whitespace? . #t)))) - - (test/equal "whitespace strip on simple row terminated by eof" - (csv->list (make-ws-stripping-reader - " a , b , c ")) - '(("a" "b" "c"))) - - (test-define "define a newline-adapting reader-maker" - make-nl-adapt-reader - (make-csv-reader-maker '((newline-type . adapt)))) - - (test/equal "try newline-adapting reader-maker first time" - (csv->list (make-nl-adapt-reader - (string-append "aaa,bbb" lf - "ccc" cr ",ddd" cr lf - "eee,fff"))) - `(("aaa" "bbb") - (,(string-append "ccc" cr) - ,(string-append "ddd" cr)) - ("eee" "fff"))) - - (test/equal "try newline-adapting reader-maker second time" - (csv->list (make-nl-adapt-reader - (string-append "aaa,bbb" cr lf - "ccc" cr ",ddd" lf cr lf - "eee,fff" cr lf))) - `(("aaa" "bbb") - (,(string-append "ccc" cr) - ,(string-append "ddd" lf)) - ("eee" "fff"))) - - (test-define "define an input string with pound char" - str - (string-append "a,b,c" lf - "#d,e,f" lf - "g,h,i" lf)) - - (test-define "define reader-maker with pound as comment char" - make-reader-with-pound-quote - (make-csv-reader-maker '((comment-chars . (#\#))))) - - (test/equal "read str without pound as comment char" - (csv->list str) - '(("a" "b" "c") ("#d" "e" "f") ("g" "h" "i"))) - - (test/equal "read str with pound as comment char" - (csv->list (make-reader-with-pound-quote str)) - '(("a" "b" "c") ("g" "h" "i"))) - - (test/equal "csv->sxml without row and column names" - (csv->sxml (string-append "aaa,bbb,ccc" cr lf - "1,2,3" cr lf)) - `(,(string->symbol "*TOP*") - (row (col-0 "aaa") (col-1 "bbb") (col-2 "ccc")) - (row (col-0 "1") (col-1 "2") (col-2 "3")))) - - (test/equal "csv->sxml with row and column names" - (csv->sxml (string-append "aaa,bbb,ccc" cr lf - "1,2,3" cr lf) - 'foo - '(first second third)) - `(,(string->symbol "*TOP*") - (foo (first "aaa") (second "bbb") (third "ccc")) - (foo (first "1") (second "2") (third "3")))) - - ;; TODO: Add more test cases. - - )