1use strict; use warnings; 2 3BEGIN { require './t/lib/ok.pl' } 4use Text::Wrap; 5 6print "1..3\n"; 7 8my $w; $SIG{'__WARN__'} = sub { $w = join '', @_ }; 9 10$Text::Wrap::columns = 4; 11my $x; 12my $ok = eval { $x = wrap('', '123', 'some text'); 1 }; 13ok( $ok, 'no exception thrown' ); 14ok( defined $x && $x eq "some\n123t\n123e\n123x\n123t", 'expected wrapping returned' ); 15ok( defined $w && $w =~ /^Increasing \$Text::Wrap::columns from 4 to 8 to accommodate length of subsequent tab at ${\quotemeta __FILE__} line [0-9]+/, 16 'warning about increase of $columns' ); 17