glark 1.9.0 → 1.10.0

data/test/glark/app/highlight_test.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class HighlightTestCase < AppTestCase
+    def test_file_names_no_highlight
+      files = [ '/proj/org/incava/glark/test/resources/textfile.txt', '/proj/org/incava/glark/test/resources/filelist.txt' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/textfile.txt",
+                  "    3   -rw-r--r--   1 jpace jpace   45450 2010-12-04 15:24 02-TheMillersTale.txt",
+                  "    6   -rw-r--r--   1 jpace jpace   63290 2010-12-04 15:24 05-TheManOfLawsTale.txt",
+                  "   11   -rw-r--r--   1 jpace jpace   65852 2010-12-04 15:24 10-TheMerchantsTale.txt",
+                  "   20   -rw-r--r--   1 jpace jpace   49747 2010-12-04 15:24 19-TheMonksTale.txt",
+                  "   24   -rw-r--r--   1 jpace jpace   21141 2010-12-04 15:24 23-TheManciplesTale.txt",
+                  "/proj/org/incava/glark/test/resources/filelist.txt",
+                  "    3 02-The_Millers_Tale.txt",
+                  "    6 05-The_Man_Of_Laws_Tale.txt",
+                  "   11 10-The_Merchants_Tale.txt",
+                  "   20 19-The_Monks_Tale.txt",
+                  "   24 23-The_Manciples_Tale.txt",
+                 ]
+      run_app_test expected, [ 'The.?M.*Tale' ], *files
+    end
+
+    def test_file_names_highlight
+      files = [ '/proj/org/incava/glark/test/resources/textfile.txt', '/proj/org/incava/glark/test/resources/filelist.txt' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/textfile.txt",
+                  "    3   -rw-r--r--   1 jpace jpace   45450 2010-12-04 15:24 02-TheMillersTale.txt",
+                  "    6   -rw-r--r--   1 jpace jpace   63290 2010-12-04 15:24 05-TheManOfLawsTale.txt",
+                  "   11   -rw-r--r--   1 jpace jpace   65852 2010-12-04 15:24 10-TheMerchantsTale.txt",
+                  "   20   -rw-r--r--   1 jpace jpace   49747 2010-12-04 15:24 19-TheMonksTale.txt",
+                  "   24   -rw-r--r--   1 jpace jpace   21141 2010-12-04 15:24 23-TheManciplesTale.txt",
+                  "/proj/org/incava/glark/test/resources/filelist.txt",
+                  "    3 02-The_Millers_Tale.txt",
+                  "    6 05-The_Man_Of_Laws_Tale.txt",
+                  "   11 10-The_Merchants_Tale.txt",
+                  "   20 19-The_Monks_Tale.txt",
+                  "   24 23-The_Manciples_Tale.txt",
+                 ]
+      run_app_test expected, [ '--file-color', 'yellow', 'The.?M.*Tale' ], *files
+    end
+
+    def test_highlight_multi
+      fname = '/proj/org/incava/glark/test/resources/04-TheCooksTale.txt'
+      expected = [
+                  "    1 Of many a pilgrim hast thou Christe's curse,",
+                  "    2 For of thy parsley yet fare they the worse.",
+                  "    3 ",
+                  "    4 That they have eaten in thy stubble goose:",
+                  "    5 For in thy shop doth many a fly go loose.",
+                  "    6 ",
+                  "    7 Now tell on, gentle Roger, by thy name,",
+                  "    8 But yet I pray thee be not wroth for game;",
+                  "    9 A man may say full sooth in game and play.",
+                 ]
+      run_app_test expected, [ '--and=3', 'i', '--or', 'the', 'thy' ], fname
+    end
+
+    def test_highlight_single
+      fname = '/proj/org/incava/glark/test/resources/04-TheCooksTale.txt'
+      expected = [
+                  "    1 Of many a pilgrim hast thou Christe's curse,",
+                  "    2 For of thy parsley yet fare they the worse.",
+                  "    3 ",
+                  "    4 That they have eaten in thy stubble goose:",
+                  "    5 For in thy shop doth many a fly go loose.",
+                  "    6 ",
+                  "    7 Now tell on, gentle Roger, by thy name,",
+                  "    8 But yet I pray thee be not wroth for game;",
+                  "    9 A man may say full sooth in game and play.",
+                 ]
+      run_app_test expected, [ '--highlight=single', '--and=3', 'i', '--or', 'the', 'thy' ], fname
+    end
+  end
+end

data/test/glark/app/ignore_case_test.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class IgnoreCaseTestCase < AppTestCase
+    def test_simple
+      fname = '/proj/org/incava/glark/test/resources/spaces.txt'
+      expected = [
+                  "    6 05 The Man Of Laws Tale.txt",
+                  "    9 08 The Sompnours Tale.txt",
+                  "   11 10 The Merchants Tale.txt",
+                  "   16 15 The Shipmans Tale.txt",
+                  "   20 19 The Monks Tale.txt",
+                  "   23 22 The Canons Yeomans Tale.txt",
+                  "   24 23 The Manciples Tale.txt",
+                 ]
+      run_app_test expected, [ '-i', 'the.*m.*n' ], fname
+    end
+  end
+end

data/test/glark/app/invert_test.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class InvertTestCase < AppTestCase
+    def test_simple
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    2   -rw-r--r--   1 jpace jpace  126084 2010-12-04 15:24 01-TheKnightsTale.txt",
+                  "    4   -rw-r--r--   1 jpace jpace   29296 2010-12-04 15:24 03-TheReevesTale.txt",
+                  "    7   -rw-r--r--   1 jpace jpace   71054 2010-12-04 15:24 06-TheWifeOfBathsTale.txt",
+                  "    8   -rw-r--r--   1 jpace jpace   22754 2010-12-04 15:24 07-TheFriarsTale.txt",
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "   12   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "   13   -rw-r--r--   1 jpace jpace   51996 2010-12-04 15:24 12-TheFranklinsTale.txt",
+                  "   14   -rw-r--r--   1 jpace jpace   15615 2010-12-04 15:24 13-TheDoctorsTale.txt",
+                  "   16   -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "   18   -rw-r--r--   1 jpace jpace   14834 2010-12-04 15:24 17-ChaucersTaleOfSirThopas.txt",
+                  "   19   -rw-r--r--   1 jpace jpace   43249 2010-12-04 15:24 18-ChaucersTaleOfMeliboeus.txt",
+                  "   22   -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                  "   26   -rw-r--r--   1 jpace jpace    3650 2010-12-04 15:24 25-PrecesDeChauceres.txt",
+                 ]
+      run_app_test expected, %w{ --invert-match The.*[MCP] }, fname
+    end
+
+    def test_compound_expression
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    1   -rw-r--r--   1 jpace jpace   52183 2010-12-04 15:24 00-ThePrologue.txt",
+                  "    2   -rw-r--r--   1 jpace jpace  126084 2010-12-04 15:24 01-TheKnightsTale.txt",
+                  "    3   -rw-r--r--   1 jpace jpace   45450 2010-12-04 15:24 02-TheMillersTale.txt",
+                  "    4   -rw-r--r--   1 jpace jpace   29296 2010-12-04 15:24 03-TheReevesTale.txt",
+                  "    5   -rw-r--r--   1 jpace jpace    6525 2010-12-04 15:24 04-TheCooksTale.txt",
+                  "    6   -rw-r--r--   1 jpace jpace   63290 2010-12-04 15:24 05-TheManOfLawsTale.txt",
+                  "    7   -rw-r--r--   1 jpace jpace   71054 2010-12-04 15:24 06-TheWifeOfBathsTale.txt",
+                  "    8   -rw-r--r--   1 jpace jpace   22754 2010-12-04 15:24 07-TheFriarsTale.txt",
+                  "   17   -rw-r--r--   1 jpace jpace   14979 2010-12-04 15:24 16-ThePrioresssTale.txt",
+                  "   18   -rw-r--r--   1 jpace jpace   14834 2010-12-04 15:24 17-ChaucersTaleOfSirThopas.txt",
+                  "   19   -rw-r--r--   1 jpace jpace   43249 2010-12-04 15:24 18-ChaucersTaleOfMeliboeus.txt",
+                  "   20   -rw-r--r--   1 jpace jpace   49747 2010-12-04 15:24 19-TheMonksTale.txt",
+                  "   21   -rw-r--r--   1 jpace jpace   45326 2010-12-04 15:24 20-TheNunsPriestsTale.txt",
+                  "   26   -rw-r--r--   1 jpace jpace    3650 2010-12-04 15:24 25-PrecesDeChauceres.txt",
+                 ]
+      run_app_test expected, [ '--invert-match', '--and=6', '\b5\d{4}\b', 'TheS.*Tale' ], fname
+    end
+  end
+end

data/test/glark/app/ior_test.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class InclusiveOrTestCase < AppTestCase
+    def test_simple
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    3   -rw-r--r--   1 jpace jpace   45450 2010-12-04 15:24 02-TheMillersTale.txt",
+                  "    6   -rw-r--r--   1 jpace jpace   63290 2010-12-04 15:24 05-TheManOfLawsTale.txt",
+                  "   10   -rw-r--r--   1 jpace jpace   64791 2010-12-04 15:24 09-TheClerksTale.txt",
+                  "   11   -rw-r--r--   1 jpace jpace   65852 2010-12-04 15:24 10-TheMerchantsTale.txt",
+                  "   20   -rw-r--r--   1 jpace jpace   49747 2010-12-04 15:24 19-TheMonksTale.txt",
+                  "   24   -rw-r--r--   1 jpace jpace   21141 2010-12-04 15:24 23-TheManciplesTale.txt",
+                 ]
+      run_app_test expected, [ '--or', '\b6\d{4}\b', 'TheM.*Tale' ], fname
+    end
+  end
+end

data/test/glark/app/label_test.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class LabelTestCase < AppTestCase
+    def test_one_file
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "TheFileName",
+                  "   14   -rw-r--r--   1 jpace jpace   15615 2010-12-04 15:24 13-TheDoctorsTale.txt"
+                 ]
+      run_app_test expected, %w{ --label TheFileName TheDoc }, fname
+    end
+
+    def test_two_files
+      fnames = [ '/proj/org/incava/glark/test/resources/textfile.txt', '/proj/org/incava/glark/test/resources/spaces.txt' ]
+      expected = [
+                  "TheFileName",
+                  "   14   -rw-r--r--   1 jpace jpace   15615 2010-12-04 15:24 13-TheDoctorsTale.txt",
+                  "TheFileName",
+                  "   14 13 The Doctors Tale.txt",
+                 ]
+      run_app_test expected, %w{ --label TheFileName The.*Doc }, *fnames
+    end
+  end
+end

data/test/glark/app/line_number_color_test.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class LineNumberColorTestCase < AppTestCase
+    def test_none
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "   12   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "   16   -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "   22   -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                 ]
+      run_app_test expected, [ 'TheS.*Tale' ], fname
+    end
+
+    def test_single
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "   12   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "   16   -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "   22   -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                 ]
+      run_app_test expected, [ '--line-number-color', 'bold', 'TheS.*Tale' ], fname
+    end
+
+    def test_multi
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  # go Purdue!
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "   12   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "   16   -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "   22   -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                 ]
+      run_app_test expected, [ '--line-number-color', 'bold yellow on black', 'TheS.*Tale' ], fname
+    end
+  end
+end

data/test/glark/app/line_numbers_test.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class LineNumbersTestCase < AppTestCase
+    def test_glark
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "  -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "  -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "  -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "  -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                 ]
+      run_app_test expected, [ '-N', 'TheS\w+Tale' ], fname
+    end
+
+    def test_grep_without_numbers
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "  -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "  -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "  -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "  -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                 ]
+      run_app_test expected, [ '-g', 'TheS\w+Tale' ], fname
+    end
+
+    def test_grep_with_numbers
+      # grep defaults to no numbers
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "9:   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "12:   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "16:   -rw-r--r--   1 jpace jpace   25163 2010-12-04 15:24 15-TheShipmansTale.txt",
+                  "22:   -rw-r--r--   1 jpace jpace   30734 2010-12-04 15:24 21-TheSecondNunsTale.txt",
+                 ]
+      run_app_test expected, [ '-g', '-n', 'TheS.*Tale' ], fname
+    end
+  end
+end

data/test/glark/app/match_limit_test.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class MatchLimitTestCase < AppTestCase
+    def test_one_file_limit_one
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                 ]
+      run_app_test expected, [ '-m', '1', 'TheS\w+Tale' ], fname
+    end
+
+    def test_one_file_limit_two
+      fname = '/proj/org/incava/glark/test/resources/textfile.txt'
+      expected = [
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "   12   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                 ]
+      run_app_test expected, [ '-m', '2', 'TheS\w+Tale' ], fname
+    end
+
+    def test_two_files_limit_one
+      fnames = [ '/proj/org/incava/glark/test/resources/textfile.txt', '/proj/org/incava/glark/test/resources/spaces.txt' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/textfile.txt",
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "/proj/org/incava/glark/test/resources/spaces.txt",
+                  "    9 08 The Sompnours Tale.txt",
+                 ]
+      run_app_test expected, [ '-m', '1', 'The.?S.*Tale' ], *fnames
+    end
+
+    def test_two_files_limit_two
+      fnames = [ '/proj/org/incava/glark/test/resources/textfile.txt', '/proj/org/incava/glark/test/resources/spaces.txt' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/textfile.txt",
+                  "    9   -rw-r--r--   1 jpace jpace   35994 2010-12-04 15:24 08-TheSompnoursTale.txt",
+                  "   12   -rw-r--r--   1 jpace jpace   42282 2010-12-04 15:24 11-TheSquiresTale.txt",
+                  "/proj/org/incava/glark/test/resources/spaces.txt",
+                  "    9 08 The Sompnours Tale.txt",
+                  "   12 11 The Squires Tale.txt",
+                 ]
+      run_app_test expected, [ '-m', '2', 'The.?S.*Tale' ], *fnames
+    end
+  end
+end

data/test/glark/app/options_test.rb

@@ -0,0 +1,722 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'pathname'
+require 'tempfile'
+require 'glark/app/tc'
+require 'glark/app/options'
+require 'glark/util/highlight'
+
+module Glark
+  class OptionsTestCase < AppTestCase
+    @@hl = HlWrapper.new
+    
+    def str_to_color_codes str
+      @@hl.make_color str
+    end
+    
+    def assert_method_values opts, exp, args
+      return unless exp
+      exp.each do |name, expval|
+        if name.to_s == 'text_colors'
+          assert_color opts, name, expval, args
+        else
+          val = opts.method(name).call
+          assert_equal expval, val, "args: #{args}"
+        end
+      end
+    end
+
+    def assert_color opts, name, expval, args
+      val = opts.method(name).call
+      ### puts "val: #{val}"
+      ### puts "expval: #{expval}"
+      ###$$$ assert_equal expval, val, "args: #{args}"
+    end
+
+    def assert_colors opts, exp, args
+      return unless exp
+      exp.each do |name, expval|
+        ### puts "name: #{name}"
+        val = opts.method(name).call
+        ### puts "val: #{val}"
+        ### puts "expval: #{expval}"
+        ###$$$ assert_equal expval, val, "args: #{args}"
+      end
+    end
+
+    def run_test args, expected = Hash.new, &blk
+      gopt = Glark::AppOptions.new
+      gopt.run args + Array.new
+      outputopts = gopt.output_options
+      
+      assert_method_values gopt, expected[:app], args
+      assert_method_values gopt.match_spec, expected[:match], args
+      # assert_method_values gopt.colors, expected[:colors], args
+      assert_colors gopt.colors, expected[:colors], args
+      assert_method_values gopt.output_options, expected[:output], args
+      assert_method_values gopt.info_options, expected[:info], args
+      assert_method_values gopt.input_spec, expected[:input], args
+      
+      blk.call(gopt) if blk
+    end
+    
+    def test_default_values
+      run_test(%w{ foo file1 file2 }, 
+               :match => { :expr => RegexpExpression.new(%r{foo}, 0) })
+    end
+    
+    def test_extract_match
+      run_test(%w{ --extract-matches foo file1 file2 },
+               :match => { :extract_matches => true })
+    end
+    
+    def test_extract_match_incomplete
+      str = '--extract-matches'
+      (5 ... str.length - 1).each do |idx|
+        tag = str[0 .. idx]
+        run_test([ tag ] + %w{ foo file1 file2 },
+                 :match => { :extract_matches => true })
+      end
+    end
+
+    def test_record_separator
+      %w{ -0 -00 -000 }.each do |arg|
+        $/ = "\n"
+        run_test([ arg ] + %w{ foo file1 file2 }) do |gopt|
+          assert_equal "\n\n", $/
+        end
+      end
+    end
+    
+    def test_short_options
+      [ 
+       %w{ -rli      },
+       %w{ -rl    -i },
+       %w{ -r    -li },
+       %w{ -r  -l -i },
+      ].each do |args|
+        run_test(args + %w{ foo },
+                 :match => { :ignorecase => true, :expr => RegexpExpression.new(%r{foo}i, 0) },
+                 :output => { :file_names_only => true },
+                 :input => { :max_depth => nil }) do |opts|
+          dircrit = opts.input_spec.dir_criteria
+          assert_equal false, dircrit.skip_all
+        end
+      end
+    end
+
+    def test_context_default
+      %w{ -C --context }.each do |ctx|
+        args = [ ctx, 'foo' ]
+        run_test(args) do |opts|
+          assert_context 2, 2, opts
+        end
+      end
+    end
+
+    def assert_context expbefore, expafter, opts
+      context = opts.output_options.context
+      if expafter
+        assert_equal expafter, context.after
+      end
+      if expbefore
+        assert_equal expbefore, context.before
+      end
+    end
+
+    def test_context_specified
+      [ 3, 1, 666 ].each do |val|
+        vstr = val.to_s
+        [
+         [ '-C',                vstr ],
+         [ '--context',         vstr ],
+         [ '--context=' + vstr,      ]
+        ].each do |args|
+          run_test(args + %w{ foo }) do |opts|
+            assert_context val, val, opts
+          end
+        end
+      end
+      
+      vals = (1 .. 10).to_a  | (1 .. 16).collect { |x| 2 ** x }
+      vals.each do |val|
+        args = [ '-' + val.to_s, 'foo' ]
+        run_test(args) do |opts|
+          assert_context val, val, opts
+        end
+      end
+    end
+
+    def test_after_context
+      [ 3, 1, 666 ].each do |val|
+        vstr = val.to_s
+        [
+         [ '-A',                vstr ],
+         [ '--after-context',   vstr ],
+         [ '--after-context=' + vstr ]
+        ].each do |args|
+          run_test(args + %w{ foo }) do |opts|
+            assert_context nil, val, opts
+          end
+        end
+      end
+    end
+
+    def test_before_context
+      [ 3, 1, 666 ].each do |val|
+        vstr = val.to_s
+        [
+         [ '-B',                 vstr ],
+         [ '--before-context',   vstr ],
+         [ '--before-context=' + vstr ]
+        ].each do |args|
+          run_test(args + %w{ foo }) do |opts|
+            assert_context val, nil, opts
+          end
+        end
+      end
+    end
+
+    def test_highlight
+      %w{ -u --highlight }.each do |hlopt|
+        run_test([ hlopt, 'foo' ],
+                 :color => { :text_color_style => "multi" })
+      end
+
+      %w{ multi }.each do |val|
+        [
+         [ '--highlight=' + val ],
+         [ '--highlight',   val ],
+        ].each do |opt|
+          run_test(opt + [ 'foo' ],
+                   :color => { :text_color_style => val })
+        end
+      end
+
+      singlecolor = str_to_color_codes(Text::Highlighter::DEFAULT_COLORS[0])
+      
+      %w{ single }.each do |val|
+        [
+         [ '--highlight=' + val ],
+         [ '--highlight',   val ],
+        ].each do |opt|
+          run_test(opt + [ 'foo' ],
+                   :match => { :text_colors => [ singlecolor ] },
+                   :color => { :text_color_style => val })
+        end
+      end
+
+      %w{ none }.each do |val|
+        run_test([ '--highlight=' + val, 'foo' ],
+                 :match => { :text_colors => [] },
+                 :color => { :text_color_style => nil })
+      end
+    end
+
+    def test_no_highlight
+      %w{ -U --no-highlight }.each do |hlopt|
+        run_test([ hlopt, 'foo' ],
+                 :match => { :text_colors => [] },
+                 :color => { :text_color_style => nil })
+      end
+    end
+    
+    def test_verbose
+      if origverb = Log.verbose
+        %w{ --verbose }.each do |vtag|
+          [ nil, 1, 2, 3, 4 ].each do |num|
+            vopt = vtag
+            if num
+              vopt += "=" + num.to_s
+            end
+            Log.verbose = nil
+            run_test([ vopt, 'foo' ]) do |opts|
+              assert_equal true, Log.verbose, "log verbosity"
+            end
+          end
+        end
+
+        Log.verbose = origverb
+      end
+    end
+    
+    def test_invert_match
+      %w{ -v --invert-match }.each do |vopt|
+        run_test([ vopt, 'foo' ], :output => { :invert_match => true })
+      end
+    end
+    
+    def test_ignore_case
+      %w{ -i --ignore-case }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :match => { 
+                   :expr => RegexpExpression.new(%r{foo}i, 0),
+                   :ignorecase => true
+                 })
+      end
+    end
+    
+    def test_filter
+      %w{ --filter }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :filter => true })
+      end
+    end
+    
+    def test_no_filter
+      %w{ --no-filter --nofilter }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :filter => false })
+      end
+    end
+    
+    def test_output_type
+      %w{ -g --grep }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :match => { :text_colors => [] },
+                 :output => { :show_line_numbers => false, :style => "grep" },
+                 :colors => { :text_color_style => false }) do |opts|
+          assert_context 0, 0, opts
+        end
+      end
+    end
+    
+    def test_line_number
+      %w{ -n --line-number }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :show_line_numbers => true })
+      end
+    end
+
+    def test_no_line_number
+      %w{ -N --no-line-number }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :show_line_numbers => false })
+      end
+    end
+
+    def test_no_line_number_no_file_name
+      [ %w{ -N -h }, '-hN', '-Nh' ].each do |opt|
+        run_test([ opt, 'foo' ].flatten,
+                 :output => { :show_line_numbers => false, :show_file_names => false })
+      end
+    end
+
+    def test_explain
+      %w{ --explain }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :info => { :explain => true })
+      end
+    end
+
+    def test_quiet
+      %w{ -q -s --quiet --messages }.each do |opt|
+        run_test([ opt, 'foo' ]) do |opts|
+          assert Log.quiet
+        end
+      end
+    end
+
+    def test_no_quiet
+      %w{ -Q -S --no-quiet --no-messages }.each do |opt|
+        run_test([ opt, 'foo' ]) do |opts|
+          assert !Log.quiet
+        end
+      end
+    end
+
+    def test_whole_words
+      %w{ -w --word }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :match => {
+                   :expr => RegexpExpression.new(%r{\bfoo\b}, 0),
+                   :whole_words => true 
+                 })
+      end
+    end
+
+    def test_whole_lines
+      %w{ -x --line-regexp }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :match => { 
+                   :expr => RegexpExpression.new(%r{^foo$}, 0),
+                   :whole_lines => true 
+                 })
+      end
+    end
+
+    def test_files_with_matches
+      %w{ -l --files-with-matches }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :invert_match => false, :file_names_only => true })
+      end
+    end
+
+    def test_files_without_matches
+      %w{ -L --files-without-match }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :invert_match => true, :file_names_only => true })
+      end
+    end
+
+    def test_count
+      %w{ -c --count }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :count => true })
+      end
+    end
+
+    def test_write_null
+      %w{ -Z --null }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :write_null => true })
+      end
+    end
+
+    def test_exclude_matching
+      %w{ -M --exclude-matching }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :input => { :exclude_matching => true })
+      end
+    end
+
+    def run_directory_test expmaxdepth, expskipall, args
+      run_test(args, :input => { :max_depth => expmaxdepth }) do |opts|
+        dircrit = opts.input_spec.dir_criteria
+        assert_equal expskipall, dircrit.skip_all
+      end
+    end
+
+    def run_directory_d_test expmaxdepth, expskipall, arg
+      run_directory_test expmaxdepth, expskipall, [ '-d', arg, 'foo' ]
+    end
+
+    def test_directory_d_list
+      run_directory_d_test 0, false, 'list'
+    end
+
+    def test_directory_d_find
+      run_directory_d_test nil, false, 'find'
+    end
+
+    def test_directory_d_recurse
+      run_directory_d_test nil, false, 'recurse'
+    end
+
+    def test_directory_d_skip
+      run_directory_d_test nil, true, 'skip'
+    end
+    
+    def test_recurse
+      %w{ -r --recurse }.each do |opt|
+        run_directory_test nil, false, [ opt, 'foo' ]
+      end
+    end
+
+    def test_extract_matches
+      %w{ -y --extract-matches }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :match => { :extract_matches => true })
+      end
+    end
+
+    def test_no_split_as_path
+      %w{ --no-split-as-path }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :input => { :split_as_path => false })
+      end
+    end
+
+    def test_split_as_path
+      %w{ --split-as-path }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :input => { :split_as_path => true })
+      end
+    end
+
+    def run_directories_test expmaxdepth, expskipall, arg
+      [
+       [ '--directories=' + arg ],
+       [ '--directories',   arg ]
+      ].each do |args|
+        run_directory_test expmaxdepth, expskipall, args + %w{ foo }
+      end
+    end
+
+    def test_directory_list
+      run_directories_test 0, false, 'list'
+    end
+
+    def test_directory_find
+      run_directories_test nil, false, 'find'
+    end
+
+    def test_directory_recurse
+      run_directories_test nil, false, 'recurse'
+    end
+
+    def test_directory_skip
+      run_directories_test nil, true, 'skip'
+    end
+
+    def test_no_show_file_names
+      %w{ -h --no-filename }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :show_file_names => false })
+      end
+    end
+
+    def test_show_file_names
+      %w{ -H --with-filename }.each do |opt|
+        run_test([ opt, 'foo' ],
+                 :output => { :show_file_names => true })
+      end
+    end
+
+    def test_label
+      %w{ testing 123 any*char\/acters }.each do |label|
+        [
+         [ '--label=' + label ],
+         [ '--label',   label ]
+        ].each do |opt|
+          run_test(opt + %w{ foo },
+                   :output => { :label => label })
+        end
+      end
+    end
+
+    def test_match_limit
+      %w{ 1 2 4 20 50 100 2000 30000 }.each do |num|
+        [
+         [ '-m',                num ],
+         [ '--match-limit',     num ],
+         [ '--match-limit=' +   num ],
+        ].each do |args|
+          run_test(args + %w{ foo },
+                   :output => { :match_limit => num.to_i })
+        end
+      end
+    end
+
+    def test_with_basename
+      %w{ abc123 \w+\S* }.each do |pat|
+        %w{ --with-basename --basename --with-name --name --match-name }.each do |tag|
+          [
+           [ tag, pat ],
+           [ tag + '=' + pat ]
+          ].each do |args|
+            run_test(args + %w{ foo }) do |opts|
+              assert_file_filter_pattern_eq pat, opts, :name, :positive, BaseNameFilter
+            end
+          end
+        end
+      end
+    end
+
+    def test_without_basename
+      %w{ abc123 \w+\S* }.each do |pat|
+        %w{ --without-basename --without-name --not-name }.each do |tag|
+          [
+           [ tag, pat ],
+           [ tag + '=' + pat ]
+          ].each do |args|
+            run_test(args + %w{ foo }) do |opts|
+              assert_file_filter_pattern_eq pat, opts, :name, :negative, BaseNameFilter
+            end
+          end
+        end
+      end
+    end
+
+    def test_match_path
+      %w{ abc123 \w+\S* }.each do |pat|
+        %w{ --with-fullname --fullname --with-path --path --match-path }.each do |tag|
+          [
+           [ tag, pat ],
+           [ tag + '=' + pat ]
+          ].each do |args|
+            run_test(args + %w{ foo }) do |opts|
+              assert_file_filter_pattern_eq pat, opts, :path, :positive, FullNameFilter
+            end
+          end
+        end
+      end
+    end
+
+    def test_nomatch_path
+      %w{ abc123 \w+\S* }.each do |pat|
+        %w{ --without-fullname --without-path --not-path }.each do |tag|
+          [
+           [ tag, pat ],
+           [ tag + '=' + pat ]
+          ].each do |args|
+            run_test(args + %w{ foo }) do |opts|
+              assert_file_filter_pattern_eq pat, opts, :path, :negative, FullNameFilter
+            end
+          end
+        end
+      end
+    end
+
+    def run_range_test expfrom, expto, args
+      run_test(args + %w{ foo },
+               :input => { :range => Glark::Range.new(expfrom, expto) })
+    end
+
+    def test_range_start
+      %w{ 5 5% 10 90% }.each do |rg|
+        [
+         [ '--after=' + rg ],
+         [ '--after',   rg ]
+        ].each do |opt|
+          run_range_test rg, nil, opt
+        end
+      end
+    end
+
+    def test_range_end
+      %w{ 5 5% 10 90% }.each do |rg|
+        [
+         [ '--before=' + rg ],
+         [ '--before',   rg ],
+        ].each do |opt|
+          run_range_test nil, rg, opt
+        end
+      end
+    end
+
+    def test_range_both
+      [
+       %w{  5  10  },
+       %w{  7  10% },
+       %w{ 90% 95% },
+       %w{ 18  81  }
+      ].each do |from, to|
+        [
+         [ '--range=' + from + ',' + to ],
+         [ '--range',   from + ',' + to ],
+        ].each do |opt|
+          run_range_test from, to, opt
+        end
+      end
+    end
+
+    def test_binary_files
+      %w{ binary without-match text }.each do |val|
+        [
+         [ '--binary-files="' + val + '"' ],
+         [ '--binary-files='  + val ],
+         [ '--binary-files',    val ],
+        ].each do |opt|
+          run_test(opt + %w{ foo },
+                   :input => { :binary_files => val })
+        end
+      end
+    end
+
+    def test_size_limit
+      [ 0, 1, 10, 10000, 100000 ].each do |val|
+        [
+         [ '--size-limit=' + val.to_s ],
+         [ '--size-limit',   val.to_s ],
+        ].each do |opt|
+          run_test(opt + %w{ foo }) do |opts|
+            assert_file_filter_eq val, opts, :size, :negative, SizeLimitFilter, :max_size
+          end
+        end
+      end
+    end
+
+    def test_text_highlight
+      [ 'red', 'blue', 'cyan', 'bold blue', 'blue bold' ].each do |color|
+        [ 
+         [ '--text-color="' + color + '"' ],
+         [ '--text-color=' + color ],
+        ].each do |opt|
+          run_test(opt + [ 'foo' ],
+                   :match => { :text_colors => [ str_to_color_codes(color) ] })
+        end
+      end
+    end
+    
+    def test_file_color
+      [ 'red', 'blue', 'cyan', 'bold blue', 'blue bold' ].each do |color|
+        [ 
+         [ '--file-color',    color ],
+         [ '--file-color="' + color + '"' ],
+         [ '--file-color='  + color ],
+        ].each do |opt|
+          run_test(opt + [ 'foo' ],
+                   :colors => { :file_name_color => str_to_color_codes(color) })
+        end
+      end
+    end
+
+    def test_file_expression
+      res = %w{ foo bar baz \w\s+\d\S\W }
+      
+      t = Tempfile.new "tc_options"
+      res.each do |re|
+        t.puts re
+      end
+      t.close
+
+      pt = Pathname.new t.path
+
+      orexpr   = nil
+      res.each do |re| 
+        refo = RegexpExpression.new Regexp.new(re), 0
+        if orexpr
+          orexpr.ops << refo
+        else
+          orexpr = InclusiveOrExpression.new refo
+        end
+      end
+      
+      begin
+        [
+         [ '-f',        t.path       ],
+         [ '--file="' + t.path + '"' ],
+         [ '--file='  + t.path       ],
+         [ '--file',    t.path       ],
+        ].each do |opt|
+          run_test(opt, :match => { :expr => orexpr })
+        end
+      ensure
+        if pt.exist?
+          pt.delete
+        end
+      end
+    end
+
+    def test_or_expression
+      pats = %w{ foo bar }
+
+      re0, re1 = pats.collect { |pat| RegexpExpression.new(Regexp.new(pat), 0) }
+      
+      orexpr = InclusiveOrExpression.new re0, re1
+      
+      [ 
+       [ '-o', *pats ],
+      ].each do |opt|
+        run_test(opt, :match => { :expr => orexpr })
+      end
+    end
+    
+    def test_and_expression
+      pats = %w{ foo bar }
+
+      re0, re1 = pats.collect { |pat| RegexpExpression.new(Regexp.new(pat), 0) }
+      
+      exp = AndExpression.new 0, re0, re1
+      
+      [ 
+       [ '-a', 0, *pats ],
+      ].each do |opt|
+        run_test(opt, :match => { :expr => exp })
+      end
+    end
+  end
+end
+