IO-Compress-2.101/t/cz-14gzopen.t

55     ok my $fil = gzopen($name, "wb") ;
71     ok $fil = gzopen($name, "rb") ;
102     ok my $fil = gzopen($name, "wb") ;
116     ok $fil = gzopen($name, "rb") ;
144     ok my $f = gzopen($file, "wb") ;
157     ok $f = gzopen($file, "rb") ;
193     ok my $fil = gzopen($name, "wb") ;
198     ok $fil = gzopen($name, "rb") ;
228     ok my $fil = gzopen($name, "wb"), " gzopen ok" ;
233     ok $fil = gzopen($name, "rb"), "  gzopen" ;
260     ok my $fil = gzopen($name, "wb"), "  gzopen" ;
265     ok $fil = gzopen($name, "rb"), "  gzopen" ;
296     ok $fil = gzopen($name, "wb"), ' gzopen for write ok' ;
302     ok $fil = gzopen($name, "rb"), '  gzopen for read ok' ;
320     title "Pass gzopen a filehandle - use IO::File" ;
331     ok $fil = gzopen($f, "wb") ;
338     ok $fil = gzopen($name, "rb") ;
353     title "Pass gzopen a filehandle - use open" ;
363     ok $fil = gzopen(*F, "wb") ;
370     ok $fil = gzopen(*F, "rb") ;
390     title "Pass gzopen a filehandle - use $stdin" ;
403     my $fil = gzopen($stdout, "wb") ;
417     ok $fil = gzopen($stdin, "rb") ;
435     title 'test parameters for gzopen';
441     eval ' $fil = gzopen()  ' ;
442     like $@, mkEvalErr('Not enough arguments .*? Compress::Zlib::gzopen'),
443         '  gzopen with missing mode fails' ;
446     $fil = gzopen($name, "xy") ;
447     ok ! defined $fil, '  gzopen with unknown mode fails' ;
449     $fil = gzopen($name, "ab") ;
450     ok $fil, '  gzopen with mode "ab" is ok' ;
452     $fil = gzopen($name, "wb6") ;
453     ok $fil, '  gzopen with mode "wb6" is ok' ;
455     $fil = gzopen($name, "wbf") ;
456     ok $fil, '  gzopen with mode "wbf" is ok' ;
458     $fil = gzopen($name, "wbh") ;
459     ok $fil, '  gzopen with mode "wbh" is ok' ;
467     ok $fil = gzopen($name, "wb"), '  gzopen for writing' ;
479     ok $fil = gzopen($name, "wb"), "  gzopen for writing" ;
483     ok $fil = gzopen($name, "rb"), "  gzopen for reading" ;
505         my $fil = gzopen($name, "wb") ;
506         ok !$fil, "  gzopen returns undef" ;
527         my $fil = gzopen($name, "rb") ;
528         ok !$fil, "  gzopen returns undef" ;
543     my $iow = gzopen($name, "w");
557     my $io = gzopen($name, "r");
585     my $a = gzopen($name, "w");
599     my $u = gzopen($name, "r");
615     my $a = gzopen($name, "w");
619     my $u = gzopen($name, "r");
637     my $a = gzopen($name, "w");
647         my $u = gzopen($name, "r");
661     ok my $a = gzopen($name, "w");
674     ok my $a = gzopen($name, "w");