1*256a93a4Safresh1use strict; use warnings; 2e9ce3842Safresh1 3*256a93a4Safresh1BEGIN { require './t/lib/ok.pl' } 4e9ce3842Safresh1use Text::Wrap; 5*256a93a4Safresh1 6*256a93a4Safresh1print "1..2\n"; 7e9ce3842Safresh1 8e9ce3842Safresh1my $r; 9e9ce3842Safresh1my $s = q{xx xxxxxxxx xxxxxxxxx xx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx=xxxxxxxxxxxxxxxxxxxxxxxx}; 10e9ce3842Safresh1 11e9ce3842Safresh1eval { $r = wrap("", "", $s) }; 12e9ce3842Safresh1ok(! $@, $@); 13*256a93a4Safresh1ok($r eq "xx xxxxxxxx xxxxxxxxx xx 14e9ce3842Safresh1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 15e9ce3842Safresh1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 16e9ce3842Safresh1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx=xxxxxxxxxxxxx 17e9ce3842Safresh1xxxxxxxxxxx", "match"); 18