Upgrade Text::Tabs+Text::Wrap to version 2009.0305
[perl.git] / lib / Text / TabsWrap / t / wrap.t
1 #!/usr/bin/perl
2
3 @tests = (split(/\nEND\n/s, <<'DONE'));
4 TEST1
5 This 
6 is
7 a
8 test
9 END
10    This 
11  is
12  a
13  test
14 END
15 TEST2
16 This is a test of a very long line.  It should be broken up and put onto multiple lines.
17 This is a test of a very long line.  It should be broken up and put onto multiple lines.
18
19 This is a test of a very long line.  It should be broken up and put onto multiple lines.
20 END
21    This is a test of a very long line.  It should be broken up and put onto
22  multiple lines.
23  This is a test of a very long line.  It should be broken up and put onto
24  multiple lines.
25  
26  This is a test of a very long line.  It should be broken up and put onto
27  multiple lines.
28 END
29 TEST3
30 This is a test of a very long line.  It should be broken up and put onto multiple lines.
31 END
32    This is a test of a very long line.  It should be broken up and put onto
33  multiple lines.
34 END
35 TEST4
36 This is a test of a very long line.  It should be broken up and put onto multiple lines.
37
38 END
39    This is a test of a very long line.  It should be broken up and put onto
40  multiple lines.
41
42 END
43 TEST5
44 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
45 END
46    This is a test of a very long line. It should be broken up and put onto
47  multiple This is a test of a very long line. It should be broken up and
48  put
49 END
50 TEST6
51 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
52 END
53    11111111 22222222 33333333 44444444 55555555 66666666 77777777 888888888
54  999999999 aaaaaaaaa bbbbbbbbb ccccccccc ddddddddd eeeeeeeee ffffffff
55  gggggggg hhhhhhhh iiiiiiii jjjjjjjj kkkkkkkk llllllll mmmmmmmmm nnnnnnnnn
56  ooooooooo ppppppppp qqqqqqqqq rrrrrrrrr sssssssss
57 END
58 TEST7
59 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
60 END
61    c3t1d0s6 c4t1d0s6 c5t1d0s6 c6t1d0s6 c7t1d0s6 c8t1d0s6 c9t1d0s6 c10t1d0s6
62  c11t1d0s6 c12t1d0s6 c13t1d0s6 c14t1d0s6 c15t1d0s6 c16t1d0s6 c3t1d0s0
63  c4t1d0s0 c5t1d0s0 c6t1d0s0 c7t1d0s0 c8t1d0s0 c9t1d0s0 c10t1d0s0 c11t1d0s0
64  c12t1d0s0 c13t1d0s0 c14t1d0s0 c15t1d0s0 c16t1d0s0
65 END
66 TEST8
67 A test of a very very long word.
68 a123456789b123456789c123456789d123456789e123456789f123456789g123456789g1234567
69 END
70    A test of a very very long word.
71  a123456789b123456789c123456789d123456789e123456789f123456789g123456789g123
72  4567
73 END
74 TEST9
75 A test of a very very long word.  a123456789b123456789c123456789d123456789e123456789f123456789g123456789g1234567
76 END
77    A test of a very very long word. 
78  a123456789b123456789c123456789d123456789e123456789f123456789g123456789g123
79  4567
80 END
81 TEST10
82 my mother once said
83 "never eat paste my darling"
84 would that I heeded
85 END
86    my mother once said
87  "never eat paste my darling"
88  would that I heeded
89 END
90 TEST11
91 This_is_a_word_that_is_too_long_to_wrap_we_want_to_make_sure_that_the_program_does_not_crash_and_burn
92 END
93    This_is_a_word_that_is_too_long_to_wrap_we_want_to_make_sure_that_the_pr
94  ogram_does_not_crash_and_burn
95 END
96 TEST12
97 This
98
99 Has
100
101 Blank
102
103 Lines
104
105 END
106    This
107  
108  Has
109  
110  Blank
111  
112  Lines
113
114 END
115 TEST13 break=\d
116 I saw 3 ships come sailing in
117 END
118    I saw 3 ships come sailing in
119 END
120 TEST14 break=\d
121 the.quick.brown.fox.jumps.over.the.9.lazy.dogs.for.no.good.reason.whatsoever.apparently
122 END
123    the.quick.brown.fox.jumps.over.the.
124  .lazy.dogs.for.no.good.reason.whatsoever.apparently
125 END
126 DONE
127
128
129 $| = 1;
130
131 print "1..", 2 +@tests, "\n";
132
133 use Text::Wrap;
134
135 $rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
136
137 $tn = 1;
138
139 @st = @tests;
140 while (@st) {
141         my $in = shift(@st);
142         my $out = shift(@st);
143
144         $in =~ s/^TEST(\d+)( break=(.*))?\n//
145             or die "bad TEST header line: $in\n";
146         local $Text::Wrap::break = $3 if defined $3;
147
148         my $back = wrap('   ', ' ', $in);
149
150         if ($back eq $out) {
151                 print "ok $tn\n";
152         } elsif ($rerun) {
153                 my $oi = $in;
154                 foreach ($in, $back, $out) {
155                         s/\t/^I\t/gs;
156                         s/\n/\$\n/gs;
157                 }
158                 print "------------ input ------------\n";
159                 print $in;
160                 print "\n------------ output -----------\n";
161                 print $back;
162                 print "\n------------ expected ---------\n";
163                 print $out;
164                 print "\n-------------------------------\n";
165                 $Text::Wrap::debug = 1;
166                 wrap('   ', ' ', $oi);
167                 exit(1);
168         } else {
169                 print "not ok $tn\n";
170         }
171         $tn++;
172
173 }
174
175 @st = @tests;
176 while(@st) {
177         my $in = shift(@st);
178         my $out = shift(@st);
179
180         $in =~ s/^TEST(\d+)( break=(.*))?\n//
181             or die "bad TEST header line: $in\n";
182         local $Text::Wrap::break = $3 if defined $3;
183
184         my @in = split("\n", $in, -1);
185         @in = ((map { "$_\n" } @in[0..$#in-1]), $in[-1]);
186         
187         my $back = wrap('   ', ' ', @in);
188
189         if ($back eq $out) {
190                 print "ok $tn\n";
191         } elsif ($rerun) {
192                 my $oi = $in;
193                 foreach ($in, $back, $out) {
194                         s/\t/^I\t/gs;
195                         s/\n/\$\n/gs;
196                 }
197                 print "------------ input2 ------------\n";
198                 print $in;
199                 print "\n------------ output2 -----------\n";
200                 print $back;
201                 print "\n------------ expected2 ---------\n";
202                 print $out;
203                 print "\n-------------------------------\n";
204                 $Text::Wrap::debug = 1;
205                 wrap('   ', ' ', $oi);
206                 exit(1);
207         } else {
208                 print "not ok $tn\n";
209         }
210         $tn++;
211 }
212
213 $Text::Wrap::huge = 'overflow';
214
215 my $tw = 'This_is_a_word_that_is_too_long_to_wrap_we_want_to_make_sure_that_the_program_does_not_crash_and_burn';
216 my $w = wrap('zzz','yyy',$tw);
217 print (($w eq "zzz$tw") ? "ok $tn\n" : "not ok $tn");
218 $tn++;
219
220 {
221     local $Text::Wrap::columns = 10;
222     local $Text::Wrap::huge = "wrap";
223     print ((wrap("verylongindent", "", "foo") eq "verylongindent\nfoo") ? "ok $tn\n" : "not ok $tn");
224     $tn++;
225 }