glark 1.9.0 → 1.10.0

data/test/glark/app/xor_test.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class ExclusiveOrTestCase < 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",
+                  "   10   -rw-r--r--   1 jpace jpace   64791 2010-12-04 15:24 09-TheClerksTale.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, [ '--xor', '\b6\d{4}\b', 'TheM.*Tale' ], fname
+    end
+  end
+end

data/test/glark/input/directory_test.rb

@@ -0,0 +1,202 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class DirectoryTestCase < AppTestCase
+    def run_directory_list_test args
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [ 
+                  '/proj/org/incava/glark/test/resources/filelist.txt',
+                  '    9 08-The_Sompnours_Tale.txt',
+                  '   12 11-The_Squires_Tale.txt',
+                  '   16 15-The_Shipmans_Tale.txt',
+                  '   22 21-The_Second_Nuns_Tale.txt',
+                  '/proj/org/incava/glark/test/resources/spaces.txt',
+                  '    9 08 The Sompnours Tale.txt',
+                  '   12 11 The Squires Tale.txt',
+                  '   16 15 The Shipmans Tale.txt',
+                  '   22 21 The Second Nuns Tale.txt',
+                  '/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',
+                  '   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, args + [ 'The.*S.*Tale' ], dirname
+    end
+
+    def test_default
+      run_directory_list_test Array.new
+    end
+
+    def test_list
+      run_directory_list_test %w{ --directories=list }
+    end
+
+    def test_recurse_as_option
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/add.rb",
+                  "    5   def initialize x, y",
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "  298 For th' horizon had reft the sun his light",
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  248 Of yeddings he bare utterly the prize.",
+                  "  253 Better than a lazar or a beggere,",
+                  "  256 To have with such lazars acquaintance.",
+                  "  330 Justice he was full often in assize,",
+                  "  605 Of which there was a dozen in that house,",
+                  "/proj/org/incava/glark/test/resources/greet.rb",
+                  "    8   def initialize name",
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "    8 size-limit: 1000",
+                  "/proj/org/incava/glark/test/resources/zfile.txt",
+                  "    1 zaffres",
+                  "    2 zoaea",
+                  "    3 zoaea's",
+                  "    4 zoea",
+                  "    5 zoeas",
+                  "    6 zonulae",
+                  "    7 zooea",
+                  "    8 zooeae",
+                  "    9 zooeal",
+                  "   10 zooeas",
+                  "   11 zooecia",
+                  "   12 zooecium",
+                  "   13 zoogloeae",
+                  "   14 zoogloeal",
+                  "   15 zoogloeas",
+                  "   16 zygaenid",
+                 ]
+      run_app_test expected, [ '--directories=recurse', 'z.*e' ], dirname
+    end
+
+    def run_recurse_ellipses_all_expected dirname
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/prologue.txt",
+                  "   60 Have me excused of my rude speech.",
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "  530 Phoebus wax'd old, and hued like latoun,",
+                  "  560 Neither his collect, nor his expanse years,",
+                  "  567 From the head of that fix'd Aries above,",
+                  "  706 Why should I more examples hereof sayn?",
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  187 He gave not of the text a pulled hen,",
+                  "  192 This ilke text held he not worth an oyster;",
+                  "  291 Betwixte Middleburg and Orewell",
+                  "  292 Well could he in exchange shieldes sell",
+                  "  300 A CLERK there was of Oxenford also,",
+                  "  327 There was also, full rich of excellence.",
+                  "  417 From Bourdeaux-ward, while that the chapmen sleep;",
+                  "  578 His beard as any sow or fox was red,",
+                  "  604 That were of law expert and curious:",
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ 'x.*e\w' ], dirname
+    end
+    
+    def test_recurse_ellipses_no_limit
+      dirname = '/proj/org/incava/glark/test/resources/...'
+      run_recurse_ellipses_all_expected dirname
+    end
+
+    def test_recurse_ellipses_limit_zero
+      dirname = '/proj/org/incava/glark/test/resources/...0'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ 'x.*e\w' ], dirname
+    end
+
+    def test_recurse_ellipses_limit_one
+      dirname = '/proj/org/incava/glark/test/resources/...1'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  187 He gave not of the text a pulled hen,",
+                  "  192 This ilke text held he not worth an oyster;",
+                  "  291 Betwixte Middleburg and Orewell",
+                  "  292 Well could he in exchange shieldes sell",
+                  "  300 A CLERK there was of Oxenford also,",
+                  "  327 There was also, full rich of excellence.",
+                  "  417 From Bourdeaux-ward, while that the chapmen sleep;",
+                  "  578 His beard as any sow or fox was red,",
+                  "  604 That were of law expert and curious:",
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ 'x.*e\w' ], dirname
+    end
+
+    def test_recurse_ellipses_limit_two
+      dirname = '/proj/org/incava/glark/test/resources/...2'
+      run_recurse_ellipses_all_expected dirname
+    end
+
+    def test_skip
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [ ]
+      run_app_test expected, [ '--directories=skip', 'The.*Tale' ], dirname
+    end
+
+    def test_list_no_files_in_directory
+      dirname = '/proj/org/incava/glark/test'
+      expected = [ ]
+      run_app_test expected, [ '--directories=list', 'The.*Tale' ], dirname
+    end
+
+    def test_recurse_from_current_dir
+      origdir = Dir.pwd
+      Dir.chdir '/proj/org/incava/glark/test/resources'
+      dirname = '.'
+      expected = [ 
+                  "filelist.txt",
+                  "   23 22-The_Canons_Yeomans_Tale.txt",
+                  "spaces.txt",
+                  "   23 22 The Canons Yeomans Tale.txt",
+                  "textfile.txt",
+                  "   23   -rw-r--r--   1 jpace jpace   52953 2010-12-04 15:24 22-TheCanonsYeomansTale.txt",
+                 ]
+      run_app_test expected, [ '-r', 'The.*Y.*Tale' ], dirname
+      Dir.chdir origdir
+    end
+
+    def test_list_with_binaries_read_skip_unreadable
+      dirname = '/proj/org/incava/glark/test/resources/...'
+      expected = [ 
+                  '/proj/org/incava/glark/test/resources/filelist.txt',
+                  '   23 22-The_Canons_Yeomans_Tale.txt',
+                  '/proj/org/incava/glark/test/resources/spaces.txt',
+                  '   23 22 The Canons Yeomans Tale.txt',
+                  '/proj/org/incava/glark/test/resources/textfile.txt',
+                  '   23   -rw-r--r--   1 jpace jpace   52953 2010-12-04 15:24 22-TheCanonsYeomansTale.txt',
+                  '/proj/org/incava/glark/test/resources/textfile.txt.gz',
+                  '   23   -rw-r--r--   1 jpace jpace   52953 2010-12-04 15:24 22-TheCanonsYeomansTale.txt',
+                  'filelist.txt (in /proj/org/incava/glark/test/resources/txt.tgz)',
+                  '   23 22-The_Canons_Yeomans_Tale.txt',
+                 ]
+      run_app_test expected, [ '-r', '--binary-files=read', 'The.*Y.*Tale' ], dirname
+    end
+
+    def test_list_with_binaries_list_skip_unreadable
+      dirname = '/proj/org/incava/glark/test/resources/...'
+      expected = [ 
+                  '/proj/org/incava/glark/test/resources/aaa.zip',
+                  '    1 abcfile.txt',
+                  '/proj/org/incava/glark/test/resources/rc.tar',
+                  '    1 rcext.txt',
+                  '    2 rcfile.txt',
+                  '    3 rcgrep.txt',
+                  '    4 rcmatch.txt',
+                  '    5 rcpath.txt',
+                  '/proj/org/incava/glark/test/resources/txt.tgz',
+                  '    1 filelist.txt',
+                  '    2 rcext.txt',
+                 ]
+      run_app_test expected, [ '-r', '--binary-files=list', '^\w+\.txt$' ], dirname
+    end
+  end
+end

data/test/glark/input/dirname_test.rb

@@ -0,0 +1,69 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class DirNameTestCase < AppTestCase
+    def test_skip_svn
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "   10 That well unnethes durst this knight for dread,",
+                  "  149 Why have ye wrought this work unreasonable?",
+                  "  366 Let I this woeful creature lie;",
+                 ]
+      run_app_test expected, [ '--directories=recurse', 'this.*rea' ], dirname
+    end
+
+    def test_match_basename
+      dirnames = [ '/proj/org/incava/glark/test/resources/canterbury', '/proj/org/incava/glark/test/glark' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  187 He gave not of the text a pulled hen,",
+                  "  192 This ilke text held he not worth an oyster;",
+                  "  291 Betwixte Middleburg and Orewell",
+                 ]
+      run_app_test expected, [ '-r', '--match-dirname=canterbury', 'xt.*e' ], *dirnames
+    end
+
+    def test_not_basename
+      dirnames = [ '/proj/org/incava/glark/test' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "   80 That is betwixt a husband and his wife?",
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  187 He gave not of the text a pulled hen,",
+                  "  192 This ilke text held he not worth an oyster;",
+                  "  291 Betwixte Middleburg and Orewell",
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ '-r', '--skip-dirname=glark', 'xt.*e' ], *dirnames
+    end
+
+    def test_match_pathname
+      dirnames = [ '/proj/org/incava/glark/test/glark', '/proj/org/incava/glark/test/resources' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ '-r', '--match-dirpath', '^.*es$', 'xt.*e' ], *dirnames
+    end
+
+    def test_not_pathname
+      dirnames = [ '/proj/org/incava/glark/test/glark', '/proj/org/incava/glark/test/resources' ]
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "   80 That is betwixt a husband and his wife?",
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  187 He gave not of the text a pulled hen,",
+                  "  192 This ilke text held he not worth an oyster;",
+                  "  291 Betwixte Middleburg and Orewell",
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ '-r', '--skip-dirpath', 'test/glark', 'xt.*e' ], *dirnames
+    end
+  end
+end

data/test/glark/input/exclude_matching_test.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class ExcludeMatchingTestCase < AppTestCase
+    def test_simple
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  187 He gave not of the text a pulled hen,",
+                  "  192 This ilke text held he not worth an oyster;",
+                  "/proj/org/incava/glark/test/resources/rcfile.txt",
+                  "   10 text-color-3: underline magenta",
+                 ]
+      run_app_test expected, [ '-r', '--exclude-matching', 'text' ], dirname
+    end
+  end
+end

data/test/glark/input/ext_test.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+
+module Glark
+  class ExtTestCase < AppTestCase
+    def test_match_single
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/add.rb",
+                  "    5   def initialize x, y",
+                  "/proj/org/incava/glark/test/resources/greet.rb",
+                  "    8   def initialize name",
+                  "    9     puts \"hello, \" + name",
+                  "   13 Greet.new ARGV.shift || \"world\"",
+                 ]
+      run_app_test expected, [ '-r', '--match-ext', 'rb', 't.*e' ], dirname
+    end
+
+    def test_not_single
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/prologue.txt",
+                  "   60 Have me excused of my rude speech.",
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "  184 And this was on the sixth morrow of May,",
+                  "  560 Neither his collect, nor his expanse years,",
+                  "  706 Why should I more examples hereof sayn?",
+                  "  813 Than to depart the love betwixt you two.",
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  192 This ilke text held he not worth an oyster;",
+                 ]
+      run_app_test expected, [ '-r', '--skip-ext', 'rb', 'x.*y' ], dirname
+    end
+
+    def test_match_multiple
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/add.rb",
+                  "    5   def initialize x, y",
+                  "    6     puts x.to_s + \" + \" + y.to_s + \" = \" + (x.to_i + y.to_i).to_s",
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/prologue.txt",
+                  "   60 Have me excused of my rude speech.",
+                  "/proj/org/incava/glark/test/resources/canterbury/franklin/tale.txt",
+                  "  184 And this was on the sixth morrow of May,",
+                  "  560 Neither his collect, nor his expanse years,",
+                  "  706 Why should I more examples hereof sayn?",
+                  "  813 Than to depart the love betwixt you two.",
+                  "/proj/org/incava/glark/test/resources/canterbury/prologue.txt",
+                  "  192 This ilke text held he not worth an oyster;",
+                 ]
+      run_app_test expected, [ '-r', '--match-ext', 'rb', '--match-ext', 'txt', 'x.*y' ], dirname
+    end
+
+    def test_not_multiple
+      dirname = '/proj/org/incava/glark/test/resources'
+      expected = [
+                  "/proj/org/incava/glark/test/resources/cat.pl",
+                  "    6 print <>;",
+                 ]
+      run_app_test expected, [ '-r', '--skip-ext', 'rb', '--not-ext', 'txt', 'p.*t' ], dirname
+    end
+  end
+end

data/test/glark/input/filter/criteria_test.rb

@@ -0,0 +1,91 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'glark/app/tc'
+require 'glark/util/io/filter/criteria'
+require 'glark/input/filter/filter'
+
+module Glark
+  class CriteriaTestCase < AppTestCase
+    def test_positive_one_match
+      crit = Criteria.new
+      crit.add :name, :positive, BaseNameFilter.new('foo.txt')
+      
+      assert crit.match?(Pathname.new '/path/to/foo.txt')
+    end
+
+    def test_positive_one_nomatch
+      crit = Criteria.new
+      crit.add :name, :positive, BaseNameFilter.new('foo.txt')
+      
+      assert !crit.match?(Pathname.new '/path/to/bar.txt')
+    end
+
+    def test_negative_one_match
+      crit = Criteria.new
+      crit.add :name, :negative, BaseNameFilter.new('foo.txt')
+      
+      assert !crit.match?(Pathname.new '/path/to/foo.txt')
+    end
+
+    def test_negative_one_nomatch
+      crit = Criteria.new
+      crit.add :name, :negative, BaseNameFilter.new('foo.txt')
+      
+      assert crit.match?(Pathname.new '/path/to/bar.txt')
+    end
+
+    def test_positive_two_match
+      crit = Criteria.new
+      crit.add :name, :positive, BaseNameFilter.new(%r{foo.*})
+      crit.add :ext, :positive, ExtFilter.new('txt')
+      
+      assert crit.match?(Pathname.new '/path/to/foo.txt')
+    end
+
+    def test_positive_two_nomatch
+      crit = Criteria.new
+      crit.add :name, :positive, BaseNameFilter.new(%r{foo.*})
+      crit.add :ext, :positive, ExtFilter.new('rb')
+      
+      assert crit.match?(Pathname.new '/path/to/foo.rb')
+    end
+
+    def test_positive_negative_match
+      crit = Criteria.new
+      crit.add :name, :positive, BaseNameFilter.new(%r{foo.*})
+      crit.add :ext, :negative, ExtFilter.new('txt')
+      
+      assert crit.match?(Pathname.new '/path/to/foo.rb')
+    end
+
+    def test_positive_negative_nomatch
+      crit = Criteria.new
+      crit.add :name, :positive, BaseNameFilter.new(%r{foo.*})
+      crit.add :ext, :negative, ExtFilter.new('rb')
+      
+      assert !crit.match?(Pathname.new '/path/to/foo.rb')
+    end
+
+    def test_find_by_class
+      fl = Criteria.new
+      bnf = BaseNameFilter.new '.svn'
+      fl.add :name, :negative, bnf
+      assert_equal bnf.object_id, fl.find_by_class(:name, :negative, BaseNameFilter).object_id
+    end
+
+    def test_add
+      fl = Criteria.new
+      svnbnf = BaseNameFilter.new '.svn'
+      fl.add :name, :negative, svnbnf
+      bldbnf = BaseNameFilter.new 'build'
+      fl.add :name, :negative, bldbnf
+
+      slf = SizeLimitFilter.new 1000
+      fl.add :size, :negative, slf
+
+      extf = ExtFilter.new 'rb'
+      fl.add :ext, :positive, extf
+    end
+  end
+end