diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/Text/TabsWrap/t/dandv.t')
| -rwxr-xr-x | gnu/usr.bin/perl/lib/Text/TabsWrap/t/dandv.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/Text/TabsWrap/t/dandv.t b/gnu/usr.bin/perl/lib/Text/TabsWrap/t/dandv.t new file mode 100755 index 00000000000..b6ee69ada14 --- /dev/null +++ b/gnu/usr.bin/perl/lib/Text/TabsWrap/t/dandv.t @@ -0,0 +1,8 @@ + +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"); + |