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