import perl 5.10.1

2 files changed, 21 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");
+
diff --git a/gnu/usr.bin/perl/lib/Text/TabsWrap/t/wrap_separator2.t b/gnu/usr.bin/perl/lib/Text/TabsWrap/t/wrap_separator2.t
new file mode 100755
index 00000000000..b31864fff5b
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/Text/TabsWrap/t/wrap_separator2.t
@@ -0,0 +1,13 @@
+#!/usr/local/bin/perl -w
+#Author: Dan Dascalescu
+use strict;
+use Test::More tests => 1;
+
+use Text::Wrap;
+
+local $Text::Wrap::columns = 15;
+local $Text::Wrap::separator2 = '[N]';
+
+is(wrap('','','some long text here that should be wrapped on at least three lines'),
+"some long text[N]here that[N]should be[N]wrapped on at[N]least three[N]lines",
+'If you just to preserve existing newlines but add new breaks with something else, set $Text::Wrap::separator2 instead.');