t/tools/pgegrep.t

   1 #! perl
   2 # Copyright (C) 2009, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/tools/pgegrep.t - test the script tools/utils/pgegrep
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/tools/pgegrep.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the features of of the C<pgegrep> utility.
  16
  17 =cut
  18
  19 use strict;
  20 use warnings;
  21 use lib qw( . lib ../lib ../../lib );
  22
  23 use Fatal qw{open close};
  24 use Test::More;
  25 use Parrot::Test tests => 10;
  26 use Parrot::Config;
  27 use File::Spec   ();
  28
  29 my $testdata = File::Spec->catfile(qw{. t tools testdata });
  30 my $testdata_escaped = $testdata;
  31 $testdata_escaped =~ s!\\!\\\\!g;
  32
  33 sub pgegrep_output_like {
  34     my ($options, $snippet, $desc)  = @_;
  35
  36     my $PARROT  = ".$PConfig{slash}$PConfig{test_prog}";
  37     my $pgegrep = File::Spec->catfile( qw{. tools util pgegrep} );
  38     my $out     = `$PARROT $pgegrep $options`;
  39
  40     like( $out, $snippet, $desc );
  41
  42     return;
  43 }
  44
  45 pgegrep_output_like(
  46     '-V',
  47     qr!\Qpgegrep v0.0.1\E!,
  48     'pge reports correct version'
  49 );
  50
  51 pgegrep_output_like(
  52     "cat $testdata",
  53     qr!keyboardcat!,
  54     'basic sanity of matching a literal'
  55 );
  56
  57 pgegrep_output_like(
  58     "-n cat $testdata",
  59     qr!1:keyboardcat!,
  60     'matching a literal with line number'
  61 );
  62
  63 pgegrep_output_like(
  64     "--line-number cat $testdata",
  65     qr!1:keyboardcat!,
  66     'matching a literal with line number with long option'
  67 );
  68
  69 pgegrep_output_like(
  70     "-H cat $testdata",
  71     qr!$testdata_escaped:keyboardcat!,
  72     'matching a literal with file name'
  73 );
  74
  75 pgegrep_output_like(
  76     "--with-filename cat $testdata",
  77     qr!$testdata_escaped:keyboardcat!,
  78     'matching a literal with file name with long option'
  79 );
  80
  81
  82 pgegrep_output_like(
  83     "-v cat $testdata",
  84     qr!saxophonegiraffe!,
  85     'test inversion of match'
  86 );
  87
  88 pgegrep_output_like(
  89     "--invert-match cat $testdata",
  90     qr!saxophonegiraffe!,
  91     'test inversion of match with long option'
  92 );
  93
  94 pgegrep_output_like(
  95     "-l cat $testdata",
  96     qr!$testdata_escaped!,
  97     'find files that match'
  98 );
  99
 100 pgegrep_output_like(
 101     "--files-with-matches cat $testdata",
 102     qr!$testdata_escaped!,
 103     'find files that match with long option'
 104 );
 105
 106 # Local Variables:
 107 #   mode: cperl
 108 #   cperl-indent-level: 4
 109 #   fill-column: 100
 110 # End:
 111 # vim: expandtab shiftwidth=4: