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
|
use strict; use warnings;
BEGIN { require './t/lib/ok.pl' }
use Text::Tabs;
my @tests = (split(/\nEND\n/s, <<DONE));
TEST 1 u
x
END
x
END
TEST 2 e
x
END
x
END
TEST 3 e
x
y
z
END
x
y
z
END
TEST 4 u
x
y
z
END
x
y
z
END
TEST 5 u
This Is a test of a line with many embedded tabs
END
This Is a test of a line with many embedded tabs
END
TEST 6 e
This Is a test of a line with many embedded tabs
END
This Is a test of a line with many embedded tabs
END
TEST 7 u
x
END
x
END
TEST 8 e
END
END
TEST 9 u
END
END
TEST 10 u
END
END
TEST 11 u
foobar IN A 140.174.82.12
END
foobar IN A 140.174.82.12
END
DONE
my $numtests = scalar(@tests) / 2;
print "1..$numtests\n";
while (@tests) {
my $in = shift(@tests);
my $out = shift(@tests);
$in =~ s/^TEST\s*(\d+)?\s*(\S+)?\n//;
my $f = $2 eq 'e' ? \&expand : \&unexpand;
my $back = &$f($in);
ok( $back eq $out );
}
|
