1use strict; use warnings; 2 3BEGIN { require './t/lib/ok.pl' } 4use Text::Wrap; 5 6print "1..4\n"; 7my ( $in, $out ); 8 9$Text::Tabs::tabstop = 8; 10$in = "\x{300}\t.\n\x{300}\t."; 11$out = "\x{300} .\n\x{300} ."; 12ok( Text::Tabs::expand($in) eq $out ); 13ok( Text::Tabs::unexpand($out) eq $in ); 14 15$in = "\x{300} Taglia Unica\n\x{300} Taglia Unica"; 16$out = "\x{300} Taglia Unica\n\x{300} Taglia Unica"; 17my $got = eval { Text::Wrap::wrap( '', '', $in ) }; 18ok( !$@ ) or diag( $@ ); 19ok( $got eq $out ); 20