Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: bfc515ed96
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (13 sloc) 0.623 kb
use strict;
use warnings;
use File::Spec::Functions 'catfile';
use Test::More tests => 6;
my $script = catfile('bin', 'grok');
my $index_short = qx/$^X $script -i/;
my $index_long = qx/$^X $script --index/;
like($index_short, qr/^S02/m, 'Found Synopsis 2 in index (-i)');
like($index_long, qr/^S02/m, 'Found Synopsis 2 in index (--index)');
like($index_short, qr/^say\b/m, 'Found say() in index (-i)');
like($index_long, qr/^say\b/m, 'Found say() in index (--index)');
like($index_short, qr/^sleep\b/m, 'Found sleep() in index (-i)');
like($index_long, qr/^sleep\b/m, 'Found sleep() in index (--index)');
Jump to Line
Something went wrong with that request. Please try again.