TEST: updated Red's CSV tests for use with the current Rebol's CSV codec

Author: Oldes

src/tests/units/csv-test.r3

@@ -0,0 +1,174 @@
+Red [
+	Title:   "CSV codec test script"
+	Author:  ["Boleslav Březovský" "Oldes"]
+	File: 	 %csv-test.r3
+	Rights:  "Copyright (C) 2011-2019 Red Foundation. All rights reserved."
+	License: "BSD-3 - https://github.com/red/red/blob/origin/BSD-3-License.txt"
+	Needs:   [%../quick-test-module.r3]
+	Note: {
+		Base of this file are Red CSV tests. Rebol CSV codec does not have same results!
+		Main differencies between Red as Rebol are:
+		1. when not used block of blocks with `to-csv`, than result does not have a LF on the tail.
+		2. Rebol does not support `/skip` and `/quote` refinements.
+		3. Rebol does not support `to-csv` input as a block of objects or maps.
+		4. No `/header`, `/as-columns`, `/as-records`, `/flat`, `/align` and `/trim` refinements.
+		5. Rebol always quotes strings even when not necessary.
+	}
+]
+
+~~~start-file~~~ "CSV codec"
+
+try [import 'csv]
+if find codecs 'CSV [
+===start-group=== "to-csv"
+	--test-- "to-csv-1-single-line"
+		--assert {"none"}  = to-csv [none] ; no LF at tail like in Red!
+		--assert {1,2,3}   = to-csv [1 2 3]
+		--assert {1,2,3^/} = to-csv [[1 2 3]]
+		--assert {"hello","world"} = to-csv [hello world]
+		--assert {"hello world","from","Red"} = to-csv ["hello world" from Red]
+		--assert {"hello,world","hello","world"} = to-csv ["hello,world" hello world]
+		--assert {1,"^/",3} = to-csv [1 "^/" 3]
+		--assert {1,2022-05-02 10:06:32,3,"a",""""} = [1 2-May-2022/10:06:32 $3 #"a" #"^""]
+	--test-- "to-csv-2-multi-line"
+		--assert "1,2,3^/4,5,6^/" = to-csv [[1 2 3][4 5 6]]
+		--assert "1,2,3^/4,5,6^/7,8,9^/" = to-csv [[1 2 3][4 5 6][7 8 9]]
+;	--test-- "to-csv-3-skip"
+;		--assert "1,2,3^/4,5,6^/" = to-csv/skip [1 2 3 4 5 6] 3
+	--test-- "to-csv-4-with"
+		--assert "1;2;3" = to-csv/with [1 2 3] #";"
+		--assert "1;2;3^/4;5;6^/" = to-csv/with [[1 2 3][4 5 6]] #";"
+;		--assert "1;2;3^/4;5;6^/" = to-csv/with/skip [1 2 3 4 5 6] #";" 3
+	--test-- "to-csv-5-quote"
+		--assert equal? {"hel""lo"}   to-csv [{hel"lo}]
+		--assert equal? {"hel""""lo"} to-csv [{hel""lo}]
+;		--assert equal?
+;			"'hello world',',',''''" 
+;			to-csv/quote ["hello world" "," "'"] #"'"
+	--test-- "to-csv-6-unaligned"
+		--assert "1,2,3^/1,2,3,4^/" = to-csv [[1 2 3][1 2 3 4]] ; it is error in Red
+	--test-- "to-csv-7-fix-4424"
+		--assert {"x x"} = to-csv tmp: ["x x"]
+		--assert tmp = ["x x"] ; we need to make sure original was not modified
+		unset 'tmp
+;	--test-- "to-csv-block-of-keyval"
+;		--assert {a,b^/1,2^/3,4^/} = to-csv reduce [object [a: 1 b: 2] object [a: 3 b: 4]]
+;		--assert {a,b^/1,2^/3,4^/} = to-csv reduce [make map! [a: 1 b: 2] make map! [a: 3 b: 4]]
+===end-group===
+
+===start-group=== "load-csv"
+	--test-- "load-csv-1-single-line"
+		--assert [["1" "2" "3"]] = load-csv {1,2,3^/}
+		--assert [["1" "2" "3"]] = load-csv {1,2,3}
+	--test-- "load-csv-2-multi-line"
+		--assert [["1" "2" "3"]["4" "5" "6"]] = load-csv {1,2,3^/4,5,6^/}
+		--assert [["1" "2" "3"]["4" "5" "6"]] = load-csv {1,2,3^/4,5,6}
+	--test-- "load-csv-3-spaces"
+		--assert [["1" "2 " " 3"]] = load-csv {1,2 , 3^/}
+		--assert [["1" "2 " " 3"]] = load-csv {1,2 , 3}
+	--test-- "load-csv-4-quotes"
+		--assert [["aaa" {b"bb} { "ccc"}]] = load-csv {"aaa","b""bb", "ccc"}
+	--test-- "load-csv-5-comma"
+		--assert [["a" "b,b" "c"]] = load-csv {a,"b,b",c}
+	--test-- "load-csv-6-newline"
+		--assert [["a" "b^/b" "c"]] = load-csv {a,"b^/b",c}
+===end-group===
+
+===start-group=== "load-csv-with"
+	--test-- "load-csv-with-1-single-line"
+		--assert [["1" "2" "3"]] = load-csv/with {1;2;3^/} #";"
+		--assert [["1" "2" "3"]] = load-csv/with {1;2;3} #";"
+	--test-- "load-csv-with-2-multi-line"
+		--assert [["1" "2" "3"]["4" "5" "6"]] = load-csv/with {1;2;3^/4;5;6^/} #";"
+		--assert [["1" "2" "3"]["4" "5" "6"]] = load-csv/with {1;2;3^/4;5;6} #";"
+===end-group===
+
+;===start-group=== "load-csv-header"
+;	--test-- "load-csv-header-1"
+;		--assert #("a" ["1"] "b" ["2"] "c" ["3"]) = load-csv/header {a,b,c^/1,2,3}
+;		--assert #("a" ["1" "4"] "b" ["2" "5"] "c" ["3" "6"]) 
+;			= load-csv/header {a,b,c^/1,2,3^/4,5,6}
+;	--test-- "load-csv-header-2-error"
+;		--assert error? try [load-csv/header {a,b,c}]
+;===end-group===
+;
+;===start-group=== "load-csv-as-columns"
+;	--test-- "load-csv-as-columns-1"
+;		--assert #("A" ["1"] "B" ["2"] "C" ["3"]) = load-csv/as-columns {1,2,3}
+;		--assert #("A" ["1" "4"] "B" ["2" "5"] "C" ["3" "6"])
+;			= load-csv/as-columns {1,2,3^/4,5,6}
+;	--test-- "load-csv-as-columns"
+;		--assert #("a" ["1"] "b" ["2"] "c" ["3"])
+;			= load-csv/as-columns/header {a,b,c^/1,2,3}
+;===end-group===
+;
+;===start-group=== "load-csv-as-records"
+;	--test-- "load-csv-as-records-1"
+;		--assert [#("A" "1" "B" "2" "C" "3")] = load-csv/as-records {1,2,3}
+;		--assert [
+;			#("A" "1" "B" "2" "C" "3")
+;			#("A" "4" "B" "5" "C" "6")
+;		] = load-csv/as-records {1,2,3^/4,5,6}
+;	--test-- "load-csv-as-records-2-header"
+;		--assert [
+;			#("A" "1" "B" "2" "C" "3")
+;			#("A" "4" "B" "5" "C" "6")
+;		] = load-csv/as-records/header {A,B,C^/1,2,3^/4,5,6}
+;	--test-- "load-csv-as-records-2-header-error"
+;		--assert error? try [load-csv/as-records/header {a,b,c}]
+;===end-group===
+;
+;===start-group=== "load-csv-flat"
+;	--test-- "load-csv-flat-1"
+;		--assert ["1" "2" "3"] = load-csv/flat {1,2,3}
+;		--assert ["1" "2" "3" "4" "5" "6"] = load-csv/flat {1,2,3^/4,5,6}
+;===end-group===
+
+;===start-group=== "load-csv-align"
+;===end-group===
+
+;===start-group=== "load-csv-trim"
+;	--test-- "load-csv-trim-1"
+;		--assert [["1" "2" "3" "4"]] = load-csv/trim {1, 2, 3 , 4}
+;===end-group===
+
+;===start-group=== "load-csv-quote"
+;	--test-- "load-csv-quote-1"
+;		--assert equal?
+;			load-csv/quote "'hello world',',',''''^/" #"'"
+;			[["hello world" "," "'"]]
+;===end-group===
+
+;===start-group=== "load-csv-wrong-refinements"
+;	--test-- "load-csv-as-columns-as-records"
+;		--assert error? try [load-csv/as-columns/as-records "1,2,3"]
+;;	--test-- "load-csv-flat-align"
+;;		--assert error? try [load-csv/flat/align "1,2,3"]
+;	--test-- "load-csv-flat-as-records"
+;		--assert error? try [load-csv/flat/as-records "1,2,3"]
+;	--test-- "load-csv-flat-as-columns"
+;		--assert error? try [load-csv/flat/as-columns "1,2,3"]
+;===end-group===
+
+===start-group=== "csv-codec"
+	res: [["1" "2" "3"]]
+	str: {1,2,3^/}
+;	--test-- "csv-codec load/as"
+;		--assert res = load/as str 'csv ;<-- this should work in Rebol as well!
+	--test-- "csv-codec decode"
+		--assert res = decode 'csv str
+;	--test-- "csv-codec save/as"
+;		--assert {1,2,3^/} = save/as none [1 2 3] 'csv
+;		--assert {1,2,3^/} = save/as none [[1 2 3]] 'csv
+;		--assert {1,2,3^/} = save/as none ["1" "2" "3"] 'csv
+;		--assert {1,2,3^/} = save/as none [["1" "2" "3"]] 'csv
+	--test-- "csv-codec encode"
+		--assert {1,2,3} = encode 'csv [1 2 3]
+		--assert {1,2,3^/} = encode 'csv [[1 2 3]]
+		--assert {"1","2","3"} = encode 'csv ["1" "2" "3"]
+		--assert {"1","2","3"^/} = encode 'csv [["1" "2" "3"]]
+
+===end-group===
+]
+
+~~~end-file~~~