csv-filter: add --col-sep (#338)

Also corrects help text for --*-quote-char (changes SEPARATOR to CHAR).

---------

Co-authored-by: Sutou Kouhei <kou@cozmixng.org>

Author: BurdetteLamar

bin/csv-filter

@@ -22,7 +22,7 @@ parser.on('--input-col-sep=SEPARATOR',
   options[:input_col_sep] = value
 end
 
-parser.on('--input-quote-char=SEPARATOR',
+parser.on('--input-quote-char=CHAR',
           'Input quote character.') do |value|
   options[:input_quote_char] = value
 end
@@ -37,7 +37,7 @@ parser.on('--output-col-sep=SEPARATOR',
   options[:output_col_sep] = value
 end
 
-parser.on('--output-quote-char=SEPARATOR',
+parser.on('--output-quote-char=CHAR',
           'Output quote character.') do |value|
   options[:output_quote_char] = value
 end
@@ -52,6 +52,11 @@ parser.on('-r', '--row-sep=SEPARATOR',
   options[:row_sep] = value
 end
 
+parser.on('-c', '--col-sep=SEPARATOR',
+          'Column separator string.') do |value|
+  options[:col_sep] = value
+end
+
 begin
   parser.parse!
 rescue OptionParser::InvalidOption

test/csv/test_csv_filter.rb

@@ -127,4 +127,14 @@ def test_option_row_sep
     assert_equal(["aaa,bbb,ccc.ddd,eee,fff.", ""],
                  run_csv_filter(csv, "--row-sep=:", "--output-row-sep=."))
   end
+
+  def test_option_col_sep
+    csv = "aaa:bbb:ccc\nddd:eee:fff\n"
+    assert_equal(["aaa:bbb:ccc\nddd:eee:fff\n", ""],
+                 run_csv_filter(csv, "--col-sep=:"))
+    assert_equal(["aaa.bbb.ccc\nddd.eee.fff\n", ""],
+                 run_csv_filter(csv, "--col-sep=.", "--input-col-sep=:"))
+    assert_equal(["aaa.bbb.ccc\nddd.eee.fff\n", ""],
+                 run_csv_filter(csv, "--col-sep=:", "--output-col-sep=."))
+  end
 end