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
|
package Test;
require 5.002;
use strict;
$Test::input_via_stdin = 1;
my @tv = (
# test flags input expected output expected return code
#
['1', '', '', '', 0],
['2', '', "a\na\n", "a\n", 0],
['3', '', "a\na", "a\n", 0],
['4', '', "a\nb", "a\nb\n", 0],
['5', '', "a\na\nb", "a\nb\n", 0],
['6', '', "b\na\na\n", "b\na\n", 0],
['7', '', "a\nb\nc\n", "a\nb\nc\n", 0],
# Make sure that eight bit characters work
['8', '', "ö\nv\n", "ö\nv\n", 0],
# Test output of -u option; only unique lines
['9', '-u', "a\na\n", "", 0],
['10', '-u', "a\nb\n", "a\nb\n", 0],
['11', '-u', "a\nb\na\n", "a\nb\na\n", 0],
['12', '-u', "a\na\n", "", 0],
['13', '-u', "a\na\n", "", 0],
#['5', '-u', "a\na\n", "", 0],
# Test output of -d option; only repeated lines
['20', '-d', "a\na\n", "a\n", 0],
['21', '-d', "a\nb\n", "", 0],
['22', '-d', "a\nb\na\n", "", 0],
['23', '-d', "a\na\nb\n", "a\n", 0],
# Check the key options
# If we skip over fields or characters, is the output deterministic?
['30', '-1', "a a\nb a\n", "a a\n", 0],
['31', '-f 1',"a a\nb a\n", "a a\n", 0],
['32', '-f 1',"a a\nb b\n", "a a\nb b\n", 0],
['33', '-f 1',"a a a\nb a c\n", "a a a\nb a c\n", 0],
['34', '-f 1',"b a\na a\n", "b a\n", 0],
['35', '-f 2',"a a c\nb a c\n", "a a c\n", 0],
# Skip over characters; FIXME: the parsing of +number is broken
#['40', '+1', "aaa\naaa\n", "aaa\n", 0],
#['41', '+1', "baa\naaa\n", "aaa\n", 0],
['42', '-s 1',"aaa\naaa\n", "aaa\n", 0],
['43', '-s 2',"baa\naaa\n", "baa\n", 0],
#['44', '+1 --', "aaa\naaa\n", "aaa\n", 0],
#['45', '+1 --', "baa\naaa\n", "aaa\n", 0],
# Skip over fields and characters
['50', '-f 1 -s 1',"a aaa\nb ab\n", "a aaa\nb ab\n", 0],
['51', '-f 1 -s 1',"a aaa\nb aaa\n", "a aaa\n", 0],
['52', '-s 1 -f 1',"a aaa\nb ab\n", "a aaa\nb ab\n", 0],
['53', '-s 1 -f 1',"a aaa\nb aaa\n", "a aaa\n", 0],
# Only account for a number of characters
['60', '-w 1',"a a\nb a\n", "a a\nb a\n", 0],
['61', '-w 3',"a a\nb a\n", "a a\nb a\n", 0],
['62', '-w 1 -f 1',"a a a\nb a c\n", "a a a\n", 0],
['63', '-f 1 -w 1',"a a a\nb a c\n", "a a a\n", 0],
# The blank after field one is checked too
['64', '-f 1 -w 4',"a a a\nb a c\n", "a a a\nb a c\n", 0],
['65', '-f 1 -w 3',"a a a\nb a c\n", "a a a\n", 0],
# Make sure we don't break if the file contains \0
['90', '', "a\0a\na\n", "a\0a\na\n", 0],
# Check fields seperated by tabs and by spaces
['91', '', "a\ta\na a\n", "a\ta\na a\n", 0],
['92', '-f 1', "a\ta\na a\n", "a\ta\na a\n", 0],
['93', '-f 2', "a\ta a\na a a\n", "a\ta a\n", 0],
['94', '-f 1', "a\ta\na\ta\n", "a\ta\n", 0],
# Check the count option; add tests for other options too
['101', '-c', "a\nb\n", " 1\ta\n 1\tb\n", 0],
['102', '-c', "a\na\n", " 2\ta\n", 0],
# Check the local -D (--all-repeated) option
['110', '-D', "a\na\n", "a\na\n", 0],
['111', '-D -w1',"a a\na b\n", "a a\na b\n", 0],
['112', '-D -c', "a a\na b\n", "", 1],
);
sub test_vector
{
my $t;
foreach $t (@tv)
{
my ($test_name, $flags, $in, $exp, $ret) = @$t;
$Test::input_via{$test_name} = {REDIR => 0, PIPE => 0};
}
return @tv;
}
1;
|
