Commit | Line | Data |
1a3850a5 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | |
8 | print "1..5\n"; |
9 | |
10 | use Text::Wrap qw(wrap $columns); |
11 | |
12 | $columns = 30; |
13 | |
14 | $text = <<'EOT'; |
15 | Text::Wrap is a very simple paragraph formatter. It formats a |
16 | single paragraph at a time by breaking lines at word boundries. |
17 | Indentation is controlled for the first line ($initial_tab) and |
18 | all subsquent lines ($subsequent_tab) independently. $Text::Wrap::columns |
19 | should be set to the full width of your output device. |
20 | EOT |
21 | |
22 | $text =~ s/\n/ /g; |
23 | $_ = wrap "| ", "|", $text; |
24 | |
25 | #print "$_\n"; |
26 | |
27 | print "not " unless /^\| Text::Wrap is/; # start is ok |
28 | print "ok 1\n"; |
29 | |
30 | print "not " if /^.{31,}$/m; # no line longer than 30 chars |
31 | print "ok 2\n"; |
32 | |
33 | print "not " unless /^\|\w/m; # other lines start with |
34 | print "ok 3\n"; |
35 | |
36 | print "not " unless /\bsubsquent\b/; # look for a random word |
37 | print "ok 4\n"; |
38 | |
39 | print "not " unless /\bdevice\./; # look for last word |
40 | print "ok 5\n"; |