1use strict; use warnings; 2 3BEGIN { require './t/lib/ok.pl' } 4use Text::Wrap; 5 6print "1..2\n"; 7 8my $w; $SIG{'__WARN__'} = sub { $w = join '', @_ }; 9 10$Text::Wrap::columns = 1; 11my $ok = eval { wrap('', '', <<''); 1 }; 12H4sICNoBwDoAA3NpZwA9jbsNwDAIRHumuC4NklvXTOD0KSJEnwU8fHz4Q8M9i3sGzkS7BBrm 13OkCTwsycb4S3DloZuMIYeXpLFqw5LaMhXC2ymhreVXNWMw9YGuAYdfmAbwomoPSyFJuFn2x8 14Opr8bBBidccAAAA 15 16ok( $ok, 'no exception thrown' ) or diag( $@ ); 17ok( defined $w && $w =~ /^Increasing \$Text::Wrap::columns from 1 to 2 at ${\quotemeta __FILE__} line [0-9]+/, 18 'warning about increase of $columns' ); 19