1use strict; use warnings;
2
3BEGIN { require './t/lib/ok.pl' }
4use Text::Wrap;
5
6print "1..1\n";
7
8$Text::Wrap::huge='overflow';
9$Text::Wrap::columns=9;
10$Text::Wrap::break=".(?<=[,.])";
11eval {
12$a=$a=wrap('','',
13"mmmm,n,ooo,ppp.qqqq.rrrrr,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n");
14};
15
16ok( !$@ ) or diag( $@ );
17