[perl5.git] / lib / Text / TabsWrap / t / Jacobson2.t

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