Rename noQuotes to onlyRequiredQuotes and fix encoding bug (#35)

README.md

@@ -143,9 +143,9 @@ file:close()
 	local output = ftcsv.encode(everyUser, ",", {fieldsToKeep={"Name", "Phone", "City"}})
 	```
 
- - `noQuotes`
+ - `onlyRequiredQuotes`
 
-    if `noQuotes` is set to `true`, the output will not include quotes around fields.
+    if `onlyRequiredQuotes` is set to `true`, the output will only include quotes around fields that are quotes, have newlines, or contain the delimter.
 
     ```lua
     local output = ftcsv.encode(everyUser, ",", {noQuotes=true})

ftcsv.lua

@@ -645,15 +645,18 @@ local function delimitField(field)
     end
 end
 
-local function delimitAndQuoteField(field)
+local function generateDelimitAndQuoteField(delimiter)
-    field = tostring(field)
+    local generatedFunction = function(field)
-    if field:find('"') then
+        field = tostring(field)
-        return '"' .. field:gsub('"', '""') .. '"'
+        if field:find('"') then
-    elseif field:find('[\n,]') then
+            return '"' .. field:gsub('"', '""') .. '"'
-        return '"' .. field .. '"'
+        elseif field:find('[\n' .. delimiter .. ']') then
-    else
+            return '"' .. field .. '"'
-        return field
+        else
+            return field
+        end
     end
+    return generatedFunction
 end
 
 local function escapeHeadersForLuaGenerator(headers)
@@ -681,7 +684,7 @@ local function csvLineGenerator(inputTable, delimiter, headers, options)
             delimiter .. [["' .. args.delimitField(args.t[i]["]]) ..
             [["]) .. '"\r\n']]
 
-    if options and options.noQuotes == true then
+    if options and options.onlyRequiredQuotes == true then
         outputFunc = [[
             local args, i = ...
             i = i + 1;
@@ -696,8 +699,8 @@ local function csvLineGenerator(inputTable, delimiter, headers, options)
     arguments.t = inputTable
     -- we want to use the same delimitField throughout,
     -- so we're just going to pass it in
-    if options and options.noQuotes == true then
+    if options and options.onlyRequiredQuotes == true then
-        arguments.delimitField = delimitAndQuoteField
+        arguments.delimitField = generateDelimitAndQuoteField(delimiter)
     else
         arguments.delimitField = delimitField
     end
@@ -716,7 +719,7 @@ end
 
 local function initializeOutputWithEscapedHeaders(escapedHeaders, delimiter, options)
     local output = {}
-    if options and options.noQuotes == true then
+    if options and options.onlyRequiredQuotes == true then
         output[1] = table.concat(escapedHeaders, delimiter) .. '\r\n'
     else
         output[1] = '"' .. table.concat(escapedHeaders, '"' .. delimiter .. '"') .. '"\r\n'
@@ -724,11 +727,11 @@ local function initializeOutputWithEscapedHeaders(escapedHeaders, delimiter, opt
     return output
 end
 
-local function escapeHeadersForOutput(headers, options)
+local function escapeHeadersForOutput(headers, delimiter, options)
     local escapedHeaders = {}
     local delimitField = delimitField
-    if options and options.noQuotes == true then
+    if options and options.onlyRequiredQuotes == true then
-        delimitField = delimitAndQuoteField
+        delimitField = generateDelimitAndQuoteField(delimiter)
     end
     for i = 1, #headers do
         escapedHeaders[i] = delimitField(headers[i])
@@ -771,7 +774,7 @@ local function initializeGenerator(inputTable, delimiter, options)
     end
     validateHeaders(headers, inputTable)
 
-    local escapedHeaders = escapeHeadersForOutput(headers, options)
+    local escapedHeaders = escapeHeadersForOutput(headers, delimiter, options)
     local output = initializeOutputWithEscapedHeaders(escapedHeaders, delimiter, options)
     return output, headers
 end

spec/feature_spec.lua

@@ -61,15 +61,15 @@ describe("csv features", function()
 		assert.are.same(expected, actual)
 	end)
 
-        it("should handle escaped doublequotes", function()
+	it("should handle escaped doublequotes", function()
-                local expected = {}
+		local expected = {}
-                expected[1] = {}
+		expected[1] = {}
-                expected[1].a = 'A"B""C'
+		expected[1].a = 'A"B""C'
-                expected[1].b = 'A""B"C'
+		expected[1].b = 'A""B"C'
-                expected[1].c = 'A"""B""C'
+		expected[1].c = 'A"""B""C'
-                local actual = ftcsv.parse('a;b;c\n"A""B""""C";"A""""B""C";"A""""""B""""C"', ";", {loadFromString=true})
+		local actual = ftcsv.parse('a;b;c\n"A""B""""C";"A""""B""C";"A""""""B""""C"', ";", {loadFromString=true})
-                assert.are.same(expected, actual)
+		assert.are.same(expected, actual)
-        end)
+	end)
 
 	it("should handle renaming a field", function()
 		local expected = {}
@@ -435,25 +435,41 @@ describe("csv features", function()
 	it("should handle encoding files (str test)", function()
 		local expected = '"a","b","c","d"\r\n"1","","foo","""quoted"""\r\n'
 		output = ftcsv.encode({
-      			{ a = 1, b = '', c = 'foo', d = '"quoted"' };
+			{ a = 1, b = '', c = 'foo', d = '"quoted"' };
-    		}, ',')
+		}, ',')
-    		assert.are.same(expected, output)
+		assert.are.same(expected, output)
+	end)
+
+	it("should handle encoding files (str test) with other delimiter", function()
+		local expected = '"a">"b">"c">"d"\r\n"1">"">"foo">"""quoted"""\r\n'
+		output = ftcsv.encode({
+			{ a = 1, b = '', c = 'foo', d = '"quoted"' };
+		}, '>')
+		assert.are.same(expected, output)
 	end)
 
 	it("should handle encoding files without quotes (str test)", function()
-		local expected = 'a,b,c,d\r\n1,,foo,"""quoted"""\r\n'
+		local expected = 'a,b,c,d\r\n1,,"fo,o","""quoted"""\r\n'
 		output = ftcsv.encode({
-      			{ a = 1, b = '', c = 'foo', d = '"quoted"' };
+			{ a = 1, b = '', c = 'fo,o', d = '"quoted"' };
-    		}, ',', {noQuotes=true})
+		}, ',', {onlyRequiredQuotes=true})
-    		assert.are.same(expected, output)
+		assert.are.same(expected, output)
+	end)
+
+	it("should handle encoding files without quotes with other delimiter (str test)", function()
+		local expected = 'a>b>c>d\r\n1>>fo,o>"""quoted"""\r\n'
+		output = ftcsv.encode({
+			{ a = 1, b = '', c = 'fo,o', d = '"quoted"' };
+		}, '>', {onlyRequiredQuotes=true})
+		assert.are.same(expected, output)
 	end)
 
 	it("should handle encoding files without quotes with certain fields to keep (str test)", function()
 		local expected = "b,c\r\n,foo\r\n"
 		output = ftcsv.encode({
-      			{ a = 1, b = '', c = 'foo', d = '"quoted"' };
+			{ a = 1, b = '', c = 'foo', d = '"quoted"' };
-    		}, ',', {noQuotes=true, fieldsToKeep={"b", "c"}})
+		}, ',', {onlyRequiredQuotes=true, fieldsToKeep={"b", "c"}})
-    		assert.are.same(expected, output)
+		assert.are.same(expected, output)
 	end)
 
 	it("should handle headers attempting to escape", function()

spec/parse_encode_spec.lua

@@ -94,7 +94,7 @@ describe("csv encode without quotes", function()
 			local jsonFile = loadFile("spec/json/" .. value .. ".json")
 			local jsonDecode = cjson.decode(jsonFile)
 			-- local parse = staecsv:ftcsv(contents, ",")
-			local reEncodedNoQuotes = ftcsv.parse(ftcsv.encode(jsonDecode, ",", {noQuotes=true}), ",", {loadFromString=true})
+			local reEncodedNoQuotes = ftcsv.parse(ftcsv.encode(jsonDecode, ",", {onlyRequiredQuotes=true}), ",", {loadFromString=true})
 			-- local f = csv.openstring(contents, {separator=",", header=true})
 			-- local parse = {}
 			-- for fields in f:lines() do