lib/Text/TabsWrap/t/belg4mit.t

   1 #!/usr/bin/perl -I.
   2
   3 use Text::Wrap;
   4
   5 print "1..1\n";
   6
   7 $Text::Wrap::columns = 1;
   8 eval { wrap('', '', 'H4sICNoBwDoAA3NpZwA9jbsNwDAIRHumuC4NklvXTOD0KSJEnwU8fHz4Q8M9i3sGzkS7BBrm
   9 OkCTwsycb4S3DloZuMIYeXpLFqw5LaMhXC2ymhreVXNWMw9YGuAYdfmAbwomoPSyFJuFn2x8
  10 Opr8bBBidccAAAA'); };
  11
  12 if ($@) {
  13         my $e = $@;
  14         $e =~ s/^/# /gm;
  15         print $e;
  16 }
  17 print $@ ? "not ok 1\n" : "ok 1\n";
  18