Commit | Line | Data |
9a09eeb5 |
1 | #!./perl -w |
1a3850a5 |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
93430cb4 |
5 | unshift @INC, '../lib'; |
1a3850a5 |
6 | } |
7 | |
9a09eeb5 |
8 | @tests = (split(/\nEND\n/s, <<DONE)); |
9 | TEST1 |
10 | This |
11 | is |
12 | a |
13 | test |
14 | END |
15 | This |
16 | is |
17 | a |
18 | test |
19 | END |
20 | TEST2 |
21 | This is a test of a very long line. It should be broken up and put onto multiple lines. |
22 | This is a test of a very long line. It should be broken up and put onto multiple lines. |
1a3850a5 |
23 | |
9a09eeb5 |
24 | This is a test of a very long line. It should be broken up and put onto multiple lines. |
25 | END |
26 | This is a test of a very long line. It should be broken up and put onto |
27 | multiple lines. |
28 | This is a test of a very long line. It should be broken up and put onto |
29 | multiple lines. |
30 | |
31 | This is a test of a very long line. It should be broken up and put onto |
32 | multiple lines. |
33 | END |
34 | TEST3 |
35 | This is a test of a very long line. It should be broken up and put onto multiple lines. |
36 | END |
37 | This is a test of a very long line. It should be broken up and put onto |
38 | multiple lines. |
39 | END |
40 | TEST4 |
41 | This is a test of a very long line. It should be broken up and put onto multiple lines. |
1a3850a5 |
42 | |
9a09eeb5 |
43 | END |
44 | This is a test of a very long line. It should be broken up and put onto |
45 | multiple lines. |
1a3850a5 |
46 | |
9a09eeb5 |
47 | END |
48 | TEST5 |
49 | This is a test of a very long line. It should be broken up and put onto multiple This is a test of a very long line. It should be broken up and put |
50 | END |
51 | This is a test of a very long line. It should be broken up and put onto |
52 | multiple This is a test of a very long line. It should be broken up and |
53 | put |
54 | END |
55 | TEST6 |
56 | 11111111 22222222 33333333 44444444 55555555 66666666 77777777 888888888 999999999 aaaaaaaaa bbbbbbbbb ccccccccc ddddddddd eeeeeeeee ffffffff gggggggg hhhhhhhh iiiiiiii jjjjjjjj kkkkkkkk llllllll mmmmmmmmm nnnnnnnnn ooooooooo ppppppppp qqqqqqqqq rrrrrrrrr sssssssss |
57 | END |
58 | 11111111 22222222 33333333 44444444 55555555 66666666 77777777 888888888 |
59 | 999999999 aaaaaaaaa bbbbbbbbb ccccccccc ddddddddd eeeeeeeee ffffffff |
60 | gggggggg hhhhhhhh iiiiiiii jjjjjjjj kkkkkkkk llllllll mmmmmmmmm nnnnnnnnn |
61 | ooooooooo ppppppppp qqqqqqqqq rrrrrrrrr sssssssss |
62 | END |
63 | TEST7 |
64 | c3t1d0s6 c4t1d0s6 c5t1d0s6 c6t1d0s6 c7t1d0s6 c8t1d0s6 c9t1d0s6 c10t1d0s6 c11t1d0s6 c12t1d0s6 c13t1d0s6 c14t1d0s6 c15t1d0s6 c16t1d0s6 c3t1d0s0 c4t1d0s0 c5t1d0s0 c6t1d0s0 c7t1d0s0 c8t1d0s0 c9t1d0s0 c10t1d0s0 c11t1d0s0 c12t1d0s0 c13t1d0s0 c14t1d0s0 c15t1d0s0 c16t1d0s0 |
65 | END |
66 | c3t1d0s6 c4t1d0s6 c5t1d0s6 c6t1d0s6 c7t1d0s6 c8t1d0s6 c9t1d0s6 c10t1d0s6 |
67 | c11t1d0s6 c12t1d0s6 c13t1d0s6 c14t1d0s6 c15t1d0s6 c16t1d0s6 c3t1d0s0 |
68 | c4t1d0s0 c5t1d0s0 c6t1d0s0 c7t1d0s0 c8t1d0s0 c9t1d0s0 c10t1d0s0 c11t1d0s0 |
69 | c12t1d0s0 c13t1d0s0 c14t1d0s0 c15t1d0s0 c16t1d0s0 |
70 | END |
71 | TEST8 |
72 | A test of a very very long word. |
73 | a123456789b123456789c123456789d123456789e123456789f123456789g123456789g1234567 |
74 | END |
75 | A test of a very very long word. |
76 | a123456789b123456789c123456789d123456789e123456789f123456789g123456789g123 |
77 | 4567 |
78 | END |
79 | TEST9 |
80 | A test of a very very long word. a123456789b123456789c123456789d123456789e123456789f123456789g123456789g1234567 |
81 | END |
82 | A test of a very very long word. |
83 | a123456789b123456789c123456789d123456789e123456789f123456789g123456789g123 |
84 | 4567 |
85 | END |
86 | DONE |
1a3850a5 |
87 | |
1a3850a5 |
88 | |
9a09eeb5 |
89 | $| = 1; |
1a3850a5 |
90 | |
555834d1 |
91 | print "1..", @tests/2, "\n"; |
1a3850a5 |
92 | |
9a09eeb5 |
93 | use Text::Wrap; |
1a3850a5 |
94 | |
9a09eeb5 |
95 | $rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1; |
1a3850a5 |
96 | |
9a09eeb5 |
97 | $tn = 1; |
98 | while (@tests) { |
99 | my $in = shift(@tests); |
100 | my $out = shift(@tests); |
1a3850a5 |
101 | |
9a09eeb5 |
102 | $in =~ s/^TEST(\d+)?\n//; |
103 | |
104 | my $back = wrap(' ', ' ', $in); |
105 | |
106 | if ($back eq $out) { |
107 | print "ok $tn\n"; |
108 | } elsif ($rerun) { |
109 | my $oi = $in; |
110 | foreach ($in, $back, $out) { |
111 | s/\t/^I\t/gs; |
112 | s/\n/\$\n/gs; |
113 | } |
114 | print "------------ input ------------\n"; |
115 | print $in; |
116 | print "\n------------ output -----------\n"; |
117 | print $back; |
118 | print "\n------------ expected ---------\n"; |
119 | print $out; |
120 | print "\n-------------------------------\n"; |
121 | $Text::Wrap::debug = 1; |
122 | wrap(' ', ' ', $oi); |
123 | exit(1); |
124 | } else { |
125 | print "not ok $tn\n"; |
126 | } |
127 | $tn++; |
128 | } |