/ 
ack-1.82
River stage two • 25 direct dependents • 29 total dependents
/ t/ack-line.t

Dummy document

There's important stuff in here! EOF

my @files = qw( t/swamp/perl.pod );
my @args = qw( --lines=2 --passthru );

ack_lists_match( [ @args, @files ], \@expected, 'Checking --passthru behaviour with --line' );
}

LINE_1_MULTIPLE_FILES: { my @target_file = ( File::Next::reslash( 't/swamp/c-header.h' ), File::Next::reslash( 't/swamp/c-source.c' ) ); my @expected = split( /\n/, <<"EOF" ); $target_file[0]:1:/* perl.h $target_file[1]:1:/* A Bison parser, made from plural.y EOF

my @files = qw( t/swamp/ );
my @args = qw( --cc --lines=1 );

ack_sets_match( [ @args, @files ], \@expected, 'Looking for first line in multiple files' );
}

LINE_1_CONTEXT: { my @target_file = ( File::Next::reslash( 't/swamp/c-header.h' ), File::Next::reslash( 't/swamp/c-source.c' ) ); my @expected = split( /\n/, <<"EOF" ); $target_file[0]:1:/* perl.h $target_file[0]-2- * $target_file[0]-3- * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, $target_file[0]-4- * 2000, 2001, 2002, 2003, 2004, 2005, 2006, by Larry Wall and others -- $target_file[1]:1:/* A Bison parser, made from plural.y $target_file[1]-2- by GNU Bison version 1.28 */ $target_file[1]-3- $target_file[1]-4-#define YYBISON 1 /* Identify Bison output. */ EOF

my @files = qw( t/swamp/ );
my @args = qw( --cc --lines=1 --after=3 --sort );

ack_lists_match( [ @args, @files ], \@expected, 'Looking for first line in multiple files' );
}