summaryrefslogtreecommitdiff
path: root/lib/Text/TabsWrap/t/Jacobson.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Text/TabsWrap/t/Jacobson.t')
-rw-r--r--lib/Text/TabsWrap/t/Jacobson.t24
1 files changed, 0 insertions, 24 deletions
diff --git a/lib/Text/TabsWrap/t/Jacobson.t b/lib/Text/TabsWrap/t/Jacobson.t
deleted file mode 100644
index d2727e4629..0000000000
--- a/lib/Text/TabsWrap/t/Jacobson.t
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl -I.
-
-# From: Dan Jacobson <jidanni at jidanni dot org>
-
-use Text::Wrap qw(wrap $columns $huge $break);
-
-print "1..1\n";
-
-$huge='overflow';
-$Text::Wrap::columns=9;
-$break="(?<=[,.])";
-eval {
-$a=$a=wrap('','',
-"mmmm,n,ooo,ppp.qqqq.rrrrr,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n");
-};
-
-if ($@) {
- my $e = $@;
- $e =~ s/^/# /gm;
- print $e;
-}
-print $@ ? "not ok 1\n" : "ok 1\n";
-
-