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