diff options
Diffstat (limited to 'cpan/IO-Compress/t/cz-14gzopen.t')
-rw-r--r-- | cpan/IO-Compress/t/cz-14gzopen.t | 17 |
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 ; |