1use strict; use warnings; 2 3BEGIN { require './t/lib/ok.pl' } 4use Text::Wrap; 5 6print "1..1\n"; 7 8$Text::Wrap::columns = 1; 9eval { wrap('', '', ''); }; 10 11ok( !$@ ); 12 13