cpan/IO-Zlib/t/import.t

   1 print "1..1\n";
   2
   3 sub ok
   4 {
   5     my ($no, $ok) = @_ ;
   6     print "ok $no\n" if $ok ;
   7     print "not ok $no\n" unless $ok ;
   8 }
   9
  10 # The :gzip tags are tested in external.t.
  11
  12 eval "use IO::Zlib qw(foo bar)";
  13 ok(1, $@ =~ /^IO::Zlib::import: 'foo bar' is illegal /);