MANIFEST

@@ -30,11 +30,11 @@ lib/App/Ack/Docs/FAQ.pm lib/App/Ack/Docs/Cookbook.pm  squash-test-pager  t/Barfly.pm t/FilterTest.pm t/Util.pm+t/test-pager  t/00-load.t t/ack-1.t

t/ack-pager.t

@@ -41,7 +41,7 @@ HERE }  PAGER: {-    my @args = qw(--nocolor --pager=./test-pager --sort-files -i nevermore t/text);+    my @args = qw(--nocolor --pager=t/test-pager --sort-files -i nevermore t/text);      my @expected = line_split( <<'HERE' ); t/text/raven.txt@@ -66,7 +66,7 @@ HERE PAGER_WITH_OPTS: {     my @args = (         '--nocolor',-        '--pager=./test-pager --skip=2',    # --skip is an argument passed to test-pager+        '--pager=t/test-pager --skip=2',    # --skip is an argument passed to test-pager         '--sort-files',         '-i',         'nevermore',@@ -90,7 +90,7 @@ HERE FORCE_NO_PAGER: {     my @args = (         '--nocolor',-        '--pager=./test-pager --skip=2',    # --skip is an argument passed to test-pager+        '--pager=t/test-pager --skip=2',    # --skip is an argument passed to test-pager         '--nopager',         '--sort-files',         '-i',@@ -119,7 +119,7 @@ HERE }  PAGER_ENV: {-    local $ENV{'ACK_PAGER'} = './test-pager --skip=2';+    local $ENV{'ACK_PAGER'} = 't/test-pager --skip=2';     local $TODO             = q{Setting ACK_PAGER in tests won't work for the time being};      my @args = qw( --nocolor --sort-files -i nevermore t/text );@@ -139,7 +139,7 @@ HERE }  PAGER_ENV_OVERRIDE: {-    local $ENV{'ACK_PAGER'} = './test-pager --skip=2';+    local $ENV{'ACK_PAGER'} = 't/test-pager --skip=2';      my @args = qw( --nocolor --nopager --sort-files -i nevermore t/text ); @@ -168,7 +168,7 @@ PAGER_ACKRC: {     my @args = qw( --nocolor --sort-files -i nevermore t/text );      my $ackrc = <<'HERE';---pager=./test-pager --skip=2+--pager=t/test-pager --skip=2 HERE      my @expected = line_split( <<'HERE' );@@ -192,7 +192,7 @@ PAGER_ACKRC_OVERRIDE: {     my @args = qw( --nocolor --nopager --sort-files -i nevermore t/text );      my $ackrc = <<'HERE';---pager=./test-pager --skip=2+--pager=t/test-pager --skip=2 HERE      my @expected = line_split( <<'HERE' );@@ -218,7 +218,7 @@ HERE }  PAGER_NOENV: {-    local $ENV{'ACK_PAGER'} = './test-pager --skip=2';+    local $ENV{'ACK_PAGER'} = 't/test-pager --skip=2';      my @args = qw( --nocolor --noenv --sort-files -i nevermore t/text ); 

t/config-loader.t

@@ -156,17 +156,17 @@ test_loader( subtest 'ACK_PAGER' => sub {     plan tests => 3; -    local $ENV{'ACK_PAGER'} = './test-pager --skip=2';+    local $ENV{'ACK_PAGER'} = 't/test-pager --skip=2';      test_loader(         argv             => [],-        expected_opts    => { %defaults, pager => './test-pager --skip=2' },+        expected_opts    => { %defaults, pager => 't/test-pager --skip=2' },         'ACK_PAGER should set the default pager',     );      test_loader(-        argv             => ['--pager=./test-pager'],-        expected_opts    => { %defaults, pager => './test-pager' },+        argv             => ['--pager=t/test-pager'],+        expected_opts    => { %defaults, pager => 't/test-pager' },         '--pager should override ACK_PAGER',     ); @@ -181,17 +181,17 @@ subtest 'ACK_PAGER' => sub { subtest 'ACK_PAGER_COLOR' => sub {     plan tests => 6; -    local $ENV{'ACK_PAGER_COLOR'} = './test-pager --skip=2';+    local $ENV{'ACK_PAGER_COLOR'} = 't/test-pager --skip=2';      test_loader(         argv             => [],-        expected_opts    => { %defaults, pager => './test-pager --skip=2' },+        expected_opts    => { %defaults, pager => 't/test-pager --skip=2' },         'ACK_PAGER_COLOR should set the default pager',     );      test_loader(-        argv             => ['--pager=./test-pager'],-        expected_opts    => { %defaults, pager => './test-pager' },+        argv             => ['--pager=t/test-pager'],+        expected_opts    => { %defaults, pager => 't/test-pager' },         '--pager should override ACK_PAGER_COLOR',     ); @@ -201,17 +201,17 @@ subtest 'ACK_PAGER_COLOR' => sub {         '--nopager should suppress ACK_PAGER_COLOR',     ); -    local $ENV{'ACK_PAGER'} = './test-pager --skip=3';+    local $ENV{'ACK_PAGER'} = 't/test-pager --skip=3';      test_loader(         argv             => [],-        expected_opts    => { %defaults, pager => './test-pager --skip=2' },+        expected_opts    => { %defaults, pager => 't/test-pager --skip=2' },         'ACK_PAGER_COLOR should override ACK_PAGER',     );      test_loader(-        argv             => ['--pager=./test-pager'],-        expected_opts    => { %defaults, pager => './test-pager' },+        argv             => ['--pager=t/test-pager'],+        expected_opts    => { %defaults, pager => 't/test-pager' },         '--pager should override ACK_PAGER_COLOR and ACK_PAGER',     ); @@ -226,7 +226,7 @@ subtest 'ACK_PAGER_COLOR' => sub { subtest 'PAGER' => sub {     plan tests => 3; -    local $ENV{'PAGER'} = './test-pager';+    local $ENV{'PAGER'} = 't/test-pager';      test_loader(         argv             => [],@@ -236,13 +236,13 @@ subtest 'PAGER' => sub {      test_loader(         argv             => ['--pager'],-        expected_opts    => { %defaults, pager => './test-pager' },+        expected_opts    => { %defaults, pager => 't/test-pager' },         'PAGER is used if --pager is specified with no argument',     );      test_loader(-        argv             => ['--pager=./test-pager --skip=2'],-        expected_opts    => { %defaults, pager => './test-pager --skip=2' },+        argv             => ['--pager=t/test-pager --skip=2'],+        expected_opts    => { %defaults, pager => 't/test-pager --skip=2' },         'PAGER is not used if --pager is specified with an argument',     ); };

t/test-pager

new file mode 100755@@ -0,0 +1,19 @@+#!/usr/bin/env perl++use strict;+use warnings;++use Getopt::Long;++my $skip;++GetOptions(+    'skip=i' => \$skip,+);++while (<>) {+    if ( defined $skip && $. % $skip == 0 ) {+        next;+    }+    print;+}

test-pager

deleted file mode 100755@@ -1,19 +0,0 @@-#!/usr/bin/env perl--use strict;-use warnings;--use Getopt::Long;--my $skip;--GetOptions(-    'skip=i' => \$skip,-);--while (<>) {-    if ( defined $skip && $. % $skip == 0 ) {-        next;-    }-    print;-}