JezK
Edit File: tc_csv_writing.rb
#!/usr/local/bin/ruby -w # tc_csv_writing.rb # # Created by James Edward Gray II on 2005-11-14. # Copyright 2005 Gray Productions. All rights reserved. require "test/unit" require "faster_csv" class TestFasterCSVWriting < Test::Unit::TestCase def test_writing [ ["\t", ["\t"]], ["foo,\"\"\"\"\"\",baz", ["foo", "\"\"", "baz"]], ["foo,\"\"\"bar\"\"\",baz", ["foo", "\"bar\"", "baz"]], ["\"\"\"\n\",\"\"\"\n\"", ["\"\n", "\"\n"]], ["foo,\"\r\n\",baz", ["foo", "\r\n", "baz"]], ["\"\"", [""]], ["foo,\"\"\"\",baz", ["foo", "\"", "baz"]], ["foo,\"\r.\n\",baz", ["foo", "\r.\n", "baz"]], ["foo,\"\r\",baz", ["foo", "\r", "baz"]], ["foo,\"\",baz", ["foo", "", "baz"]], ["\",\"", [","]], ["foo", ["foo"]], [",,", [nil, nil, nil]], [",", [nil, nil]], ["foo,\"\n\",baz", ["foo", "\n", "baz"]], ["foo,,baz", ["foo", nil, "baz"]], ["\"\"\"\r\",\"\"\"\r\"", ["\"\r", "\"\r"]], ["\",\",\",\"", [",", ","]], ["foo,bar,", ["foo", "bar", nil]], [",foo,bar", [nil, "foo", "bar"]], ["foo,bar", ["foo", "bar"]], [";", [";"]], ["\t,\t", ["\t", "\t"]], ["foo,\"\r\n\r\",baz", ["foo", "\r\n\r", "baz"]], ["foo,\"\r\n\n\",baz", ["foo", "\r\n\n", "baz"]], ["foo,\"foo,bar\",baz", ["foo", "foo,bar", "baz"]], [";,;", [";", ";"]], ["foo,\"\"\"\"\"\",baz", ["foo", "\"\"", "baz"]], ["foo,\"\"\"bar\"\"\",baz", ["foo", "\"bar\"", "baz"]], ["foo,\"\r\n\",baz", ["foo", "\r\n", "baz"]], ["\"\"", [""]], ["foo,\"\"\"\",baz", ["foo", "\"", "baz"]], ["foo,\"\r.\n\",baz", ["foo", "\r.\n", "baz"]], ["foo,\"\r\",baz", ["foo", "\r", "baz"]], ["foo,\"\",baz", ["foo", "", "baz"]], ["foo", ["foo"]], [",,", [nil, nil, nil]], [",", [nil, nil]], ["foo,\"\n\",baz", ["foo", "\n", "baz"]], ["foo,,baz", ["foo", nil, "baz"]], ["foo,bar", ["foo", "bar"]], ["foo,\"\r\n\n\",baz", ["foo", "\r\n\n", "baz"]], ["foo,\"foo,bar\",baz", ["foo", "foo,bar", "baz"]], [%Q{a,b}, ["a", "b"]], [%Q{a,"""b"""}, ["a", "\"b\""]], [%Q{a,"""b"}, ["a", "\"b"]], [%Q{a,"b"""}, ["a", "b\""]], [%Q{a,"\nb"""}, ["a", "\nb\""]], [%Q{a,"""\nb"}, ["a", "\"\nb"]], [%Q{a,"""\nb\n"""}, ["a", "\"\nb\n\""]], [%Q{a,"""\nb\n""",}, ["a", "\"\nb\n\"", nil]], [%Q{a,,,}, ["a", nil, nil, nil]], [%Q{,}, [nil, nil]], [%Q{"",""}, ["", ""]], [%Q{""""}, ["\""]], [%Q{"""",""}, ["\"",""]], [%Q{,""}, [nil,""]], [%Q{,"\r"}, [nil,"\r"]], [%Q{"\r\n,"}, ["\r\n,"]], [%Q{"\r\n,",}, ["\r\n,", nil]] ].each do |test_case| assert_equal( test_case.first + $/, FasterCSV.generate_line(test_case.last) ) end end def test_col_sep assert_equal( "a;b;;c\n", FasterCSV.generate_line( ["a", "b", nil, "c"], :col_sep => ";" ) ) assert_equal( "a\tb\t\tc\n", FasterCSV.generate_line( ["a", "b", nil, "c"], :col_sep => "\t" ) ) end def test_row_sep assert_equal( "a,b,,c\r\n", FasterCSV.generate_line( ["a", "b", nil, "c"], :row_sep => "\r\n" ) ) end def test_force_quotes assert_equal( %Q{"1","b","","already ""quoted"""\n}, FasterCSV.generate_line( [1, "b", nil, %Q{already "quoted"}], :force_quotes => true ) ) end end