[perl5.git] / lib / Text / TabsWrap / t / dandv.t


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");
Commit	Line	Data
69e34dac S	1
	2	use Text::Wrap;
	3	use Test::More tests => 2;
	4	$Text::Wrap::columns = 4;
	5	eval { $x = Text::Wrap::wrap('', '123', 'some text'); };
	6	is($@, '');
	7	is($x, "some\n123t\n123e\n123x\n123t");
	8