summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/010/csv.tl24
1 files changed, 23 insertions, 1 deletions
diff --git a/tests/010/csv.tl b/tests/010/csv.tl
index 6c93b6c8..d8561c8c 100644
--- a/tests/010/csv.tl
+++ b/tests/010/csv.tl
@@ -13,7 +13,7 @@
data expected))))
(mtest-csv
- "" #("")
+ "" nil
"," #("" "")
",," #("" "" ""))
@@ -183,3 +183,25 @@
#("a\nb" "c#d" "e,f") "#a\nb#,#c##d#,#e,f#\n"
#("a\n#,b") "#a\n##,b#\n"
#("a#\n,b\n") "#a##\n,b\n#\n")
+
+(mtest
+ (with-in-string-stream (s "a,b,c\nd,e,f\r\n") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("a" "b" "c") #("d" "e" "f") nil)
+ (with-in-string-stream (s "a,b,c\nd,e,f\n") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("a" "b" "c") #("d" "e" "f") nil)
+ (with-in-string-stream (s "a,b,c\nd,e,f") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("a" "b" "c") #("d" "e" "f") nil)
+ (with-in-string-stream (s "a,b,c\r\n") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("a" "b" "c") nil nil)
+ (with-in-string-stream (s "a,b,c\n") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("a" "b" "c") nil nil)
+ (with-in-string-stream (s "a,b,c") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("a" "b" "c") nil nil)
+ (with-in-string-stream (s "") (list (get-csv s) (get-csv s) (get-csv s)))
+ (nil nil nil)
+ (with-in-string-stream (s "\r") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("\r") nil nil)
+ (with-in-string-stream (s "\r\n") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("") nil nil)
+ (with-in-string-stream (s "\n") (list (get-csv s) (get-csv s) (get-csv s)))
+ (#("") nil nil))