1print "1..1\n";
2
3sub 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
12eval "use IO::Zlib qw(foo bar)";
13ok(1, $@ =~ /^IO::Zlib::import: 'foo bar' is illegal /);
14