xref: /openbsd-src/gnu/usr.bin/perl/cpan/Text-Tabs/t/belg4mit.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
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