Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
IO-Zlib
/
t
/
import.t
blob: 336d80a943b0370e844563507fd0e323d3955483 [
file
] [
log
] [
blame
]
print
"1..1\n"
;
sub
ok
{
my
(
$no
,
$ok
)
=
@_
;
print
"ok $no\n"
if
$ok
;
print
"not ok $no\n"
unless
$ok
;
}
# The :gzip tags are tested in external.t.
eval
"use IO::Zlib qw(foo bar)"
;
ok
(
1
,
$@
=~
/^IO::Zlib::import: 'foo bar' is illegal /
);