summaryrefslogtreecommitdiff
path: root/cpan/IO-Compress/t/cz-14gzopen.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/IO-Compress/t/cz-14gzopen.t')
-rw-r--r--cpan/IO-Compress/t/cz-14gzopen.t17
1 files changed, 2 insertions, 15 deletions
diff --git a/cpan/IO-Compress/t/cz-14gzopen.t b/cpan/IO-Compress/t/cz-14gzopen.t
index d5f0ea0c04..0918ce5482 100644
--- a/cpan/IO-Compress/t/cz-14gzopen.t
+++ b/cpan/IO-Compress/t/cz-14gzopen.t
@@ -20,7 +20,7 @@ BEGIN {
$extra = 1
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- plan tests => 264 + $extra ;
+ plan tests => 260 + $extra ;
use_ok('Compress::Zlib', 2) ;
use_ok('IO::Compress::Gzip::Constants') ;
@@ -651,20 +651,7 @@ foreach my $stdio ( ['-', '-'], [*STDIN, *STDOUT])
}
{
- title 'gzflush called twice with Z_SYNC_FLUSH - no compression';
-
- my $lex = new LexFile my $name ;
-
- ok my $a = gzopen($name, "w");
-
- is $a->gzflush(Z_SYNC_FLUSH), Z_OK, "gzflush returns Z_OK";
- is $a->gzflush(Z_SYNC_FLUSH), Z_OK, "gzflush returns Z_OK";
-}
-
-
-
-{
- title 'gzflush called twice - after compression';
+ title 'gzflush called twice';
my $lex = new LexFile my $name ;