File: 10.wrapper.t

package info (click to toggle)
libtext-wrapper-perl 1.02-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny, squeeze
  • size: 92 kB
  • ctags: 10
  • sloc: perl: 482; makefile: 39
file content (355 lines) | stat: -rwxr-xr-x 9,390 bytes parent folder | download
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
#! /usr/bin/perl
#---------------------------------------------------------------------
# $Id: 10.wrapper.t 1707 2007-03-21 04:49:29Z cjm $
#---------------------------------------------------------------------

use strict;
use Test::More tests => 5;

BEGIN {
use_ok( 'Text::Wrapper' );
}

my $generate = (@ARGV and $ARGV[0] eq 'print');

#=====================================================================
sub read_data
{
    my $text = '';
    while (<DATA>) {
        return ($1, $text) if /^\*\s*(.*)/;
        $text .= $_;
    }
    die "Unexpected end of file";
} # end read_data

#=====================================================================
# First, read the sample text, remove single line breaks, and condense
# double line breaks into one:

my $text = (read_data)[1];
$text =~ s/\n(?=\S)/ /g;
$text =~ s/\n /\n/g;

#---------------------------------------------------------------------
# Now try each set of parameters and compare it to the expected result:
#   (Or, if invoked as '10.wrapper.t print', print out the actual
#   results and parameters in the required format.)

my ($test,$args,$expect,$w,$result) = 1;
for (;;) {
    ($args,$expect) = read_data;
    last unless $expect;
    $w = Text::Wrapper->new(eval $args);
    $result = $w->wrap($text);
    if ($generate) { print "$result* $args\n" }
    else {
        is($result, $expect, $args);
    }
} # end forever

#---------------------------------------------------------------------
# Here is the sample text followed by the test cases.  Each test case
# is terminated by a line beginning with *, followed by the parameters
# for that test.  The test cases are terminated by an empty case.
# Don't forget to change the count in the use Test::More line.

__DATA__
Fourscore and seven years ago our fathers brought forth on this
continent a new nation, conceived in liberty and dedicated to the
proposition that all men are created equal.

Now we are engaged in a great civil war, testing whether that nation
or any nation so conceived and so dedicated can long endure. We are
met on a great battlefield of that war. We have come to dedicate a
portion of that field as a final resting-place for those who here gave
their lives that that nation might live. It is altogether fitting and
proper that we should do this.

But in a larger sense, we cannot dedicate, we cannot consecrate, we
cannot hallow this ground.  The brave men, living and dead who
struggled here have consecrated it far above our poor power to add or
detract. The world will little note nor long remember what we say
here, but it can never forget what they did here. It is for us the
living rather to be dedicated here to the unfinished work which they
who fought here have thus far so nobly advanced. It is rather for us
to be here dedicated to the great task remaining before us--that from
these honored dead we take increased devotion to that cause for which
they gave the last full measure of devotion--that we here highly
resolve that these dead shall not have died in vain, that this nation
under God shall have a new birth of freedom, and that government of
the people, by the people, for the people shall not perish from the
earth.
*
Fourscore and seven years ago our
fathers brought forth on this continent
a new nation, conceived in liberty and
dedicated to the proposition that all
men are created equal.
Now we are engaged in a great civil war,
testing whether that nation or any
nation so conceived and so dedicated can
long endure. We are met on a great
battlefield of that war. We have come to
dedicate a portion of that field as a
final resting-place for those who here
gave their lives that that nation might
live. It is altogether fitting and
proper that we should do this.
But in a larger sense, we cannot
dedicate, we cannot consecrate, we
cannot hallow this ground.  The brave
men, living and dead who struggled here
have consecrated it far above our poor
power to add or detract. The world will
little note nor long remember what we
say here, but it can never forget what
they did here. It is for us the living
rather to be dedicated here to the
unfinished work which they who fought
here have thus far so nobly advanced. It
is rather for us to be here dedicated to
the great task remaining before us--that
from these honored dead we take
increased devotion to that cause for
which they gave the last full measure of
devotion--that we here highly resolve
that these dead shall not have died in
vain, that this nation under God shall
have a new birth of freedom, and that
government of the people, by the people,
for the people shall not perish from the
earth.
* (columns => 40)
>  Fourscore and seven years ago our fathers
   brought forth on this continent a new nation,
   conceived in liberty and dedicated to the
   proposition that all men are created equal.
>  Now we are engaged in a great civil war,
   testing whether that nation or any nation so
   conceived and so dedicated can long endure. We
   are met on a great battlefield of that war. We
   have come to dedicate a portion of that field
   as a final resting-place for those who here
   gave their lives that that nation might live.
   It is altogether fitting and proper that we
   should do this.
>  But in a larger sense, we cannot dedicate, we
   cannot consecrate, we cannot hallow this
   ground.  The brave men, living and dead who
   struggled here have consecrated it far above
   our poor power to add or detract. The world
   will little note nor long remember what we say
   here, but it can never forget what they did
   here. It is for us the living rather to be
   dedicated here to the unfinished work which
   they who fought here have thus far so nobly
   advanced. It is rather for us to be here
   dedicated to the great task remaining before
   us--that from these honored dead we take
   increased devotion to that cause for which
   they gave the last full measure of devotion--
   that we here highly resolve that these dead
   shall not have died in vain, that this nation
   under God shall have a new birth of freedom,
   and that government of the people, by the
   people, for the people shall not perish from
   the earth.
* (par_start => '>  ', body_start => '   ', columns => 49)
>    Fourscore and seven years ago our fathers brought forth on this
 | continent a new nation, conceived in liberty and dedicated to the
 | proposition that all men are created equal.
>    Now we are engaged in a great civil war, testing whether that
 | nation or any nation so conceived and so dedicated can long endure.
 | We are met on a great battlefield of that war. We have come to
 | dedicate a portion of that field as a final resting-place for those
 | who here gave their lives that that nation might live. It is
 | altogether fitting and proper that we should do this.
>    But in a larger sense, we cannot dedicate, we cannot consecrate,
 | we cannot hallow this ground.  The brave men, living and dead who
 | struggled here have consecrated it far above our poor power to add
 | or detract. The world will little note nor long remember what we
 | say here, but it can never forget what they did here. It is for us
 | the living rather to be dedicated here to the unfinished work which
 | they who fought here have thus far so nobly advanced. It is rather
 | for us to be here dedicated to the great task remaining before us--
 | that from these honored dead we take increased devotion to that
 | cause for which they gave the last full measure of devotion--that
 | we here highly resolve that these dead shall not have died in vain,
 | that this nation under God shall have a new birth of freedom, and
 | that government of the people, by the people, for the people shall
 | not perish from the earth.
* (par_start => '>    ', body_start => ' | ')
Fourscore
and seven
years ago
our
fathers
brought
forth on
this
continent
a new
nation,
conceived
in liberty
and
dedicated
to the
proposition
that all
men are
created
equal.
Now we are
engaged in
a great
civil war,
testing
whether
that
nation or
any nation
so
conceived
and so
dedicated
can long
endure. We
are met on
a great
battlefield
of that
war. We
have come
to
dedicate a
portion of
that field
as a final
resting-
place for
those who
here gave
their
lives that
that
nation
might
live. It
is
altogether
fitting
and proper
that we
should do
this.
But in a
larger
sense, we
cannot
dedicate,
we cannot
consecrate,
we cannot
hallow
this
ground.
The brave
men,
living and
dead who
struggled
here have
consecrated
it far
above our
poor power
to add or
detract.
The world
will
little
note nor
long
remember
what we
say here,
but it can
never
forget
what they
did here.
It is for
us the
living
rather to
be
dedicated
here to
the
unfinished
work which
they who
fought
here have
thus far
so nobly
advanced.
It is
rather for
us to be
here
dedicated
to the
great task
remaining
before
us--that
from these
honored
dead we
take
increased
devotion
to that
cause for
which they
gave the
last full
measure of
devotion--
that we
here
highly
resolve
that these
dead shall
not have
died in
vain, that
this
nation
under God
shall have
a new
birth of
freedom,
and that
government
of the
people, by
the
people,
for the
people
shall not
perish
from the
earth.
* (columns => 10)
* This line marks the end of the test cases

Local Variables:
  tmtrack-file-task: "Text::Wrapper: test.pl"
End: