Convert ack-i to YAML

Author: petdance

MANIFEST

@@ -47,8 +47,7 @@ t/ack-group.t
 t/ack-h.yaml
 t/ack-help-types.t
 t/ack-help.t
-t/ack-i.barfly
-t/ack-i.t
+t/ack-i.yaml
 t/ack-ignore-dir.t
 t/ack-ignore-file.t
 t/ack-k.yaml

t/Util.pm

@@ -1341,6 +1341,7 @@ sub _validate_test {
         indent-stdout
         name
         ordered
+        stdin
         stderr
         stdout
     );

t/ack-i.barfly

@@ -0,0 +1,125 @@
+---
+name: Straight -i
+args:
+  - APPLE t/swamp/groceries/fruit t/swamp/groceries/junk t/swamp/groceries/meat -i
+  - APPLE t/swamp/groceries/fruit t/swamp/groceries/junk t/swamp/groceries/meat --ignore-case
+ordered: true
+stdout: |
+  t/swamp/groceries/fruit:1:apple
+  t/swamp/groceries/junk:1:apple fritters
+
+---
+name: No -i or -I
+args:
+  - foo
+  - foo -I
+  - foo --no-smart-case
+ordered: true
+stdin: |
+  Football
+  foo bar
+  foOtball
+  bluhblah
+  football
+stdout: |
+  foo bar
+  football
+
+---
+name: Normal -i
+args:
+  - foo -i
+  - foo --ignore-case
+  - Foo -i
+  - Foo --ignore-case
+ordered: true
+stdin: |
+  Football
+  foo bar
+  pickles
+  foOtball
+  bluhblah
+  football
+stdout: |
+  Football
+  foo bar
+  foOtball
+  football
+
+---
+name: Smartcase invoked
+args:
+  - foo --smart-case
+  - foo -S
+ordered: true
+stdin: |
+  football
+  foo bar
+  Football
+  foOtball
+stdout: |
+  football
+  foo bar
+  Football
+  foOtball
+
+---
+name: Smartcase invoked because of the case of the search string
+args:
+  - Foo --smart-case
+  - Foo -S
+ordered: true
+stdin: |
+  football
+  foo bar
+  Football
+  foOtball
+stdout: |
+  Football
+
+---
+name: -i overrides --smart-case
+args:
+  - Foo --smart-case -i
+  - foo --smart-case -i
+  - Foo -S -i
+  - foo -S -i
+ordered: true
+stdin: |
+  football
+  foo bar
+  Football
+  foOtball
+stdout: |
+  football
+  foo bar
+  Football
+  foOtball
+
+---
+name: -I overrides -i
+args:
+  - Foo -i -I
+  - Foo --ignore-case -I
+ordered: true
+stdin: |
+  Football
+  football
+  foo bar
+  foOtball
+stdout: |
+  Football
+
+---
+name: -I overrides --smart-case
+args:
+  - Foo --smart-case -I
+  - Foo -S -I
+ordered: true
+stdin: |
+  Football
+  football
+  foo bar
+  foOtball
+stdout: |
+  Football

t/ack-i.t

@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 15;
+use Test::More tests => 16;
 
 use lib 't';
 use Util;
@@ -18,7 +18,17 @@ MAIN: {
             my @tests = read_tests( $file );
 
             for my $test ( @tests ) {
+                my $tempfilename;
+                if ( my $stdin = $test->{stdin} ) {
+                    my $fh = File::Temp->new( UNLINK => 0 ); # We'll delete it ourselves.
+                    $tempfilename = $fh->filename;
+                    print {$fh} $stdin;
+                    close $fh;
+                }
                 for my $args ( @{$test->{args}} ) {
+                    if ( $tempfilename ) {
+                        $args = [ @{$args}, $tempfilename ];
+                    }
                     subtest $test->{name} . ' ' . join( ', ', @{$args} ) => sub {
                         if ( $test->{ordered} ) {
                             ack_lists_match( $args, $test->{stdout}, $test->{name} );
@@ -29,6 +39,9 @@ MAIN: {
                         is( get_rc(), $test->{exitcode} );
                     }
                 }
+                if ( $tempfilename ) {
+                    unlink( $tempfilename );
+                }
             }
         };
     }