blob: 1bce9ed9e8771d8901599711ef29ad57cc93c101 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl -I.
use Text::Wrap qw(wrap $columns $huge $break);
print "1..1\n";
$huge='overflow';
$Text::Wrap::columns=9;
$break=".(?<=[,.])";
eval {
$a=$a=wrap('','',
"mmmm,n,ooo,ppp.qqqq.rrrrr.adsljasdf\nlasjdflajsdflajsdfljasdfl\nlasjdflasjdflasf,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n");
};
if ($@) {
my $e = $@;
$e =~ s/^/# /gm;
print $e;
}
print $@ ? "not ok 1\n" : "ok 1\n";
|
