diff options
Diffstat (limited to 'lib/Text/TabsWrap/t/Jacobson.t')
-rw-r--r-- | lib/Text/TabsWrap/t/Jacobson.t | 24 |
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"; - - |