File: needs-line-scan.t

package info (click to toggle)
ack 2.24-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,704 kB
  • sloc: perl: 8,590; ansic: 21; fortran: 11; makefile: 5; sh: 5
file content (26 lines) | stat: -rw-r--r-- 428 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!perl -T

use warnings;
use strict;

use Test::More tests => 2;

use lib 't';
use Util;

prep_environment();

# The "bongo" match is after the 100,000-byte cutoff.
NEEDS_LINE_SCAN: {
    my @expected = line_split( <<'HERE' );
my $bongo = 'yada yada';
HERE

    my @files = qw( t/swamp );
    my @args = qw( bongo -w -h );

    ack_lists_match( [ @args, @files ], \@expected, 'Looking for Lenore!' );
}

done_testing();
exit 0;