cpan/Text-Tabs/t/dandv.t


1
2
3
4
5
6
7
8
9

no strict; no warnings;

use Text::Wrap;
use Test::More tests => 2;
$Text::Wrap::columns = 4;
eval { $x = Text::Wrap::wrap('', '123', 'some text'); };
is($@, '');
is($x, "some\n123t\n123e\n123x\n123t");