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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
#!perl
use warnings;
use strict;
use Test::More tests => 18;
use lib 't';
use Util;
prep_environment();
LINE_1: {
my @expected = (
'Well, my daddy left home when I was three',
);
my @files = qw( t/text/boy-named-sue.txt );
my @args = qw( --lines=1 --text );
ack_sets_match( [ @args, @files ], \@expected, 'Looking for line 1' );
}
LINE_1_AND_5: {
my @expected = (
'Well, my daddy left home when I was three',
'But the meanest thing that he ever did',
);
my @files = qw( t/text/boy-named-sue.txt );
my @args = qw( --lines=1 --lines=5 --text );
ack_sets_match( [ @args, @files ], \@expected, 'Looking for lines 1 and 5' );
}
LINE_1_COMMA_5: {
my @expected = (
'Well, my daddy left home when I was three',
'But the meanest thing that he ever did',
);
my @files = qw( t/text/boy-named-sue.txt );
my @args = ( '--lines=1,5', '--text' );
ack_sets_match( [ @args, @files ], \@expected, 'Looking for lines 1, 5' );
}
LINE_1_TO_5: {
my @expected = split( /\n/, <<"EOF" );
Well, my daddy left home when I was three
And he didn't leave very much for my Ma and me
'cept an old guitar and an empty bottle of booze.
Now, I don't blame him 'cause he run and hid
But the meanest thing that he ever did
EOF
my @files = qw( t/text/boy-named-sue.txt );
my @args = qw( --lines=1-5 --text );
ack_sets_match( [ @args, @files ], \@expected, 'Looking for lines 1 to 5' );
}
LINE_1_TO_5_CONTEXT: {
my @expected = split( /\n/, <<"EOF" );
Well, my daddy left home when I was three
And he didn't leave very much for my Ma and me
'cept an old guitar and an empty bottle of booze.
Now, I don't blame him 'cause he run and hid
But the meanest thing that he ever did
EOF
my @files = qw( t/text/boy-named-sue.txt );
my @args = qw( --lines=3 -C --text );
ack_lists_match( [ @files, @args ], \@expected, 'Looking for line 3 with two lines of context' );
}
LINE_1_AND_5_AND_NON_EXISTENT: {
my @expected = (
'Well, my daddy left home when I was three',
'But the meanest thing that he ever did',
);
my @files = qw( t/text/boy-named-sue.txt );
my @args = ( '--lines=1,5,1000', '--text' );
ack_sets_match( [ @args, @files ], \@expected, 'Looking for non existent line' );
}
LINE_AND_PASSTHRU: {
# TODO: check if this is really what --passthru is supposed to do
# atm this gives back the whole document
my @expected = split( /\n/, <<"EOF" );
=head1 Dummy document
=head2 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' );
}
|
