3cbaa614d8d45152b3396c05fad55e368f97353c
[perl.git] / ext / IO-Zlib / t / import.t
1 BEGIN {
2     if( $ENV{PERL_CORE} ) {
3         @INC = '../lib';
4         chdir 't';
5     }
6 }
7
8 print "1..1\n";
9
10 sub ok
11 {
12     my ($no, $ok) = @_ ;
13     print "ok $no\n" if $ok ;
14     print "not ok $no\n" unless $ok ;
15 }
16
17 # The :gzip tags are tested in external.t.
18
19 eval "use IO::Zlib qw(foo bar)";
20 ok(1, $@ =~ /^IO::Zlib::import: 'foo bar' is illegal /);