1use strict; use warnings;
2
3BEGIN { require './t/lib/ok.pl' }
4use Text::Wrap;
5
6print "1..3\n";
7
8$Text::Wrap::huge = 'overflow';
9my $in = "\x{300}" x 1_000_000;
10my $out = eval { wrap('', '', $in) };
11ok( !$@ ) or diag( $@ );
12ok( $in eq $out );
13ok( length($in) == length($out) );
14