Redo move Text::Tabs/Text::Wrap from lib to ext.

[perl5.git] / ext / Text-Tabs / t / dandv.t

diff --git a/ext/Text-Tabs/t/dandv.t b/ext/Text-Tabs/t/dandv.t
new file mode 100644 (file)
index 0000000..b6ee69a
--- /dev/null
+++ b/ext/Text-Tabs/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");
+