Commit | Line | Data |
---|---|---|
58389ed2 | 1 | #!/usr/old/bin/perl5.004_01 -w |
1a3850a5 | 2 | |
3e2ea5df JH |
3 | @tests = (split(/\nEND\n/s, <<DONE)); |
4 | TEST 1 u | |
5 | x | |
6 | END | |
7 | x | |
8 | END | |
9 | TEST 2 e | |
10 | x | |
11 | END | |
12 | x | |
13 | END | |
14 | TEST 3 e | |
15 | x | |
16 | y | |
17 | z | |
18 | END | |
19 | x | |
20 | y | |
21 | z | |
22 | END | |
23 | TEST 4 u | |
24 | x | |
25 | y | |
26 | z | |
27 | END | |
28 | x | |
29 | y | |
30 | z | |
31 | END | |
32 | TEST 5 u | |
33 | This Is a test of a line with many embedded tabs | |
34 | END | |
35 | This Is a test of a line with many embedded tabs | |
36 | END | |
37 | TEST 6 e | |
38 | This Is a test of a line with many embedded tabs | |
39 | END | |
40 | This Is a test of a line with many embedded tabs | |
41 | END | |
42 | TEST 7 u | |
43 | x | |
44 | END | |
45 | x | |
46 | END | |
47 | TEST 8 e | |
48 | ||
49 | ||
50 | ||
1a3850a5 | 51 | |
3e2ea5df JH |
52 | |
53 | END | |
54 | ||
55 | ||
56 | ||
57 | ||
58 | ||
59 | END | |
60 | TEST 9 u | |
61 | ||
62 | END | |
63 | ||
64 | END | |
65 | TEST 10 u | |
66 | ||
67 | ||
68 | ||
69 | ||
70 | ||
71 | END | |
72 | ||
73 | ||
74 | ||
75 | ||
76 | ||
77 | END | |
78 | TEST 11 u | |
79 | foobar IN A 140.174.82.12 | |
80 | ||
81 | END | |
82 | foobar IN A 140.174.82.12 | |
1a3850a5 | 83 | |
3e2ea5df JH |
84 | END |
85 | DONE | |
1a3850a5 | 86 | |
3e2ea5df | 87 | $| = 1; |
1a3850a5 | 88 | |
69e34dac S |
89 | print "1.."; |
90 | print @tests/2; | |
91 | print "\n"; | |
1a3850a5 | 92 | |
3e2ea5df JH |
93 | use Text::Tabs; |
94 | ||
95 | $rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1; | |
96 | ||
97 | $tn = 1; | |
98 | while (@tests) { | |
99 | my $in = shift(@tests); | |
100 | my $out = shift(@tests); | |
1a3850a5 | 101 | |
3e2ea5df | 102 | $in =~ s/^TEST\s*(\d+)?\s*(\S+)?\n//; |
1a3850a5 | 103 | |
3e2ea5df JH |
104 | if ($2 eq 'e') { |
105 | $f = \&expand; | |
106 | $fn = 'expand'; | |
107 | } else { | |
108 | $f = \&unexpand; | |
109 | $fn = 'unexpand'; | |
110 | } | |
1a3850a5 | 111 | |
3e2ea5df JH |
112 | my $back = &$f($in); |
113 | ||
114 | if ($back eq $out) { | |
115 | print "ok $tn\n"; | |
116 | } elsif ($rerun) { | |
117 | my $oi = $in; | |
118 | foreach ($in, $back, $out) { | |
119 | s/\t/^I\t/gs; | |
120 | s/\n/\$\n/gs; | |
121 | } | |
122 | print "------------ input ------------\n"; | |
123 | print $in; | |
124 | print "\$\n------------ $fn -----------\n"; | |
125 | print $back; | |
126 | print "\$\n------------ expected ---------\n"; | |
127 | print $out; | |
128 | print "\$\n-------------------------------\n"; | |
129 | $Text::Tabs::debug = 1; | |
130 | my $back = &$f($in); | |
131 | exit(1); | |
132 | } else { | |
133 | print "not ok $tn\n"; | |
134 | } | |
135 | $tn++; | |
136 | } |