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