summaryrefslogtreecommitdiff
path: root/cpan/IO-Compress/t/004gziphdr.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/IO-Compress/t/004gziphdr.t')
-rw-r--r--cpan/IO-Compress/t/004gziphdr.t247
1 files changed, 123 insertions, 124 deletions
diff --git a/cpan/IO-Compress/t/004gziphdr.t b/cpan/IO-Compress/t/004gziphdr.t
index 27a9013546..0ed4099ebe 100644
--- a/cpan/IO-Compress/t/004gziphdr.t
+++ b/cpan/IO-Compress/t/004gziphdr.t
@@ -37,7 +37,7 @@ BEGIN {
my $ThisOS_code = $Compress::Raw::Zlib::gzip_os_code;
-my $lex = new LexFile my $name ;
+my $lex = LexFile->new( my $name );
{
title "Check Defaults";
@@ -63,12 +63,12 @@ my $lex = new LexFile my $name ;
title "Check name can be different from filename" ;
# Check Name can be different from filename
# Comment and Extra can be set
- # Can specify a zero Time
+ # Can specify a zero Time
my $comment = "This is a Comment" ;
my $extra = "A little something extra" ;
my $aname = "a new name" ;
- my $hdr = readHeaderInfo $name,
+ my $hdr = readHeaderInfo $name,
-Strict => 0,
-Name => $aname,
-Comment => $comment,
@@ -92,7 +92,7 @@ my $lex = new LexFile my $name ;
# Check Time defaults to now
# and that can have empty name, comment and extrafield
my $before = time ;
- my $hdr = readHeaderInfo $name,
+ my $hdr = readHeaderInfo $name,
-TextFlag => 1,
-Name => "",
-Comment => "",
@@ -121,7 +121,7 @@ my $lex = new LexFile my $name ;
title "can have null extrafield" ;
my $before = time ;
- my $hdr = readHeaderInfo $name,
+ my $hdr = readHeaderInfo $name,
-strict => 0,
-Name => "a",
-Comment => "b",
@@ -144,7 +144,7 @@ my $lex = new LexFile my $name ;
{
title "can have undef name, comment, time and extrafield" ;
- my $hdr = readHeaderInfo $name,
+ my $hdr = readHeaderInfo $name,
-Name => undef,
-Comment => undef,
-ExtraField => undef,
@@ -167,9 +167,9 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
my $v = pack "h*", $value;
my $comment = "my${v}comment$v";
- my $hdr = readHeaderInfo $name,
+ my $hdr = readHeaderInfo $name,
Time => 0,
- -TextFlag => 1,
+ -TextFlag => 1,
-Name => "",
-Comment => $comment,
-ExtraField => "";
@@ -249,14 +249,14 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
for my $code ( -1, undef, '', 'fred' )
{
my $code_name = defined $code ? "'$code'" : "'undef'";
- eval { new IO::Compress::Gzip $name, -OS_Code => $code } ;
+ eval { IO::Compress::Gzip->new( $name, -OS_Code => $code ) } ;
like $@, mkErr("^IO::Compress::Gzip: Parameter 'OS_Code' must be an unsigned int, got $code_name"),
" Trap OS Code $code_name";
}
for my $code ( qw( 256 ) )
{
- eval { ok ! new IO::Compress::Gzip($name, OS_Code => $code) };
+ eval { ok ! IO::Compress::Gzip->new($name, OS_Code => $code) };
like $@, mkErr("OS_Code must be between 0 and 255, got '$code'"),
" Trap OS Code $code";
like $GzipError, "/OS_Code must be between 0 and 255, got '$code'/",
@@ -285,34 +285,34 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
[1, ['Xx' => '','AB' => 'Fred'] => [['Xx' => ''],['AB'=>'Fred']] ],
[1, ['Xx' => '','Xx' => 'Fred'] => [['Xx' => ''],['Xx'=>'Fred']] ],
[1, ['Xx' => '',
- 'Xx' => 'Fred',
+ 'Xx' => 'Fred',
'Xx' => 'Fred'] => [['Xx' => ''],['Xx'=>'Fred'],
['Xx'=>'Fred']] ],
[1, [ ['Xx' => 'a'],
['AB' => 'Fred'] ] => [['Xx' => 'a'],['AB'=>'Fred']] ],
- [0, {'AB' => 'Fred',
- 'Pq' => 'r',
+ [0, {'AB' => 'Fred',
+ 'Pq' => 'r',
"\x01\x02" => "\x03"} => [['AB'=>'Fred'],
- ['Pq'=>'r'],
+ ['Pq'=>'r'],
["\x01\x02"=>"\x03"]] ],
- [1, ['AB' => 'z' x GZIP_FEXTRA_SUBFIELD_MAX_SIZE] =>
+ [1, ['AB' => 'z' x GZIP_FEXTRA_SUBFIELD_MAX_SIZE] =>
[['AB'=>'z' x GZIP_FEXTRA_SUBFIELD_MAX_SIZE]] ],
);
foreach my $test (@tests) {
my ($order, $input, $result) = @$test ;
- ok my $x = new IO::Compress::Gzip $name,
+ ok my $x = IO::Compress::Gzip->new( $name,
-ExtraField => $input,
- -HeaderCRC => 1
+ -HeaderCRC => 1 )
or diag "GzipError is $GzipError" ; ;
my $string = "abcd" ;
ok $x->write($string) ;
ok $x->close ;
#is GZreadFile($name), $string ;
- ok $x = new IO::Uncompress::Gunzip $name,
+ ok $x = IO::Uncompress::Gunzip->new( $name,
#-Strict => 1,
- -ParseExtra => 1
+ -ParseExtra => 1 )
or diag "GunzipError is $GunzipError" ; ;
my $hdr = $x->getHeaderInfo();
ok $hdr;
@@ -331,7 +331,7 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
eq_array $extra, $result;
} else {
eq_set $extra, $result;
- }
+ }
}
}
@@ -351,7 +351,7 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
[ [ ['ab'=>'x'],{"a" => "fred"} ] => "Not list of lists"],
[ [ ["aa"] ] => "SubField must have two parts"],
[ [ ["aa", "b", "c"] ] => "SubField must have two parts"],
- [ [ ["ab" => 'x' x (GZIP_FEXTRA_SUBFIELD_MAX_SIZE + 1) ] ]
+ [ [ ["ab" => 'x' x (GZIP_FEXTRA_SUBFIELD_MAX_SIZE + 1) ] ]
=> "SubField Data too long"],
[ { 'abc', 1 } => "SubField ID not two chars long"],
@@ -359,15 +359,15 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
[ { "ab", \1 } => "SubField Data is a reference"],
);
-
+
foreach my $test (@tests) {
my ($input, $string) = @$test ;
my $buffer ;
my $x ;
- eval { $x = new IO::Compress::Gzip \$buffer, -ExtraField => $input; };
- like $@, mkErr("$prefix$string");
- like $GzipError, "/$prefix$string/";
+ eval { $x = IO::Compress::Gzip->new( \$buffer, -ExtraField => $input ); };
+ like $@, mkErr("$prefix$string");
+ like $GzipError, "/$prefix$string/";
ok ! $x ;
}
@@ -378,19 +378,19 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
# Corrupt ExtraField
my @tests = (
- ["Sub-field truncated",
+ ["Sub-field truncated",
"Error with ExtraField Parameter: Truncated in FEXTRA Body Section",
"Header Error: Truncated in FEXTRA Body Section",
['a', undef, undef] ],
- ["Length of field incorrect",
+ ["Length of field incorrect",
"Error with ExtraField Parameter: Truncated in FEXTRA Body Section",
"Header Error: Truncated in FEXTRA Body Section",
["ab", 255, "abc"] ],
- ["Length of 2nd field incorrect",
+ ["Length of 2nd field incorrect",
"Error with ExtraField Parameter: Truncated in FEXTRA Body Section",
"Header Error: Truncated in FEXTRA Body Section",
["ab", 3, "abc"], ["de", 7, "x"] ],
- ["Length of 2nd field incorrect",
+ ["Length of 2nd field incorrect",
"Error with ExtraField Parameter: SubField ID 2nd byte is 0x00",
"Header Error: SubField ID 2nd byte is 0x00",
["a\x00", 3, "abc"], ["de", 7, "x"] ],
@@ -418,31 +418,31 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
my $buffer ;
my $x ;
- eval {$x = new IO::Compress::Gzip \$buffer, -ExtraField => $input, Strict => 1; };
- like $@, mkErr("$gzip_error"), " $name";
- like $GzipError, "/$gzip_error/", " $name";
+ eval {$x = IO::Compress::Gzip->new( \$buffer, -ExtraField => $input, Strict => 1 ); };
+ like $@, mkErr("$gzip_error"), " $name";
+ like $GzipError, "/$gzip_error/", " $name";
ok ! $x, " IO::Compress::Gzip fails";
- like $GzipError, "/$gzip_error/", " $name";
+ like $GzipError, "/$gzip_error/", " $name";
- foreach my $check (0, 1)
+ foreach my $check (0, 1)
{
- ok $x = new IO::Compress::Gzip \$buffer,
- ExtraField => $input,
- Strict => 0
+ ok $x = IO::Compress::Gzip->new( \$buffer,
+ ExtraField => $input,
+ Strict => 0 )
or diag "GzipError is $GzipError" ;
my $string = "abcd" ;
$x->write($string) ;
$x->close ;
is anyUncompress(\$buffer), $string ;
- $x = new IO::Uncompress::Gunzip \$buffer,
+ $x = IO::Uncompress::Gunzip->new( \$buffer,
Strict => 0,
Transparent => 0,
- ParseExtra => $check;
+ ParseExtra => $check );
if ($check) {
ok ! $x ;
- like $GunzipError, "/^$gunzip_error/";
+ like $GunzipError, "/^$gunzip_error/";
}
else {
ok $x ;
@@ -456,13 +456,13 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
{
title 'Check Minimal';
- ok my $x = new IO::Compress::Gzip $name, -Minimal => 1;
+ ok my $x = IO::Compress::Gzip->new( $name, -Minimal => 1 );
my $string = "abcd" ;
ok $x->write($string) ;
ok $x->close ;
#is GZreadFile($name), $string ;
- ok $x = new IO::Uncompress::Gunzip $name ;
+ ok $x = IO::Uncompress::Gunzip->new( $name );
my $hdr = $x->getHeaderInfo();
ok $hdr;
ok $hdr->{Time} == 0;
@@ -482,11 +482,11 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
title "Check Minimal + no compressed data";
# This is the smallest possible gzip file (20 bytes)
- ok my $x = new IO::Compress::Gzip $name, -Minimal => 1;
+ ok my $x = IO::Compress::Gzip->new( $name, -Minimal => 1 );
isa_ok $x, "IO::Compress::Gzip";
ok $x->close, "closed" ;
- ok $x = new IO::Uncompress::Gunzip $name, -Append => 0 ;
+ ok $x = IO::Uncompress::Gunzip->new( $name, -Append => 0 );
isa_ok $x, "IO::Uncompress::Gunzip";
my $data ;
my $status = 1;
@@ -528,7 +528,7 @@ some text
EOM
my $good = '';
- ok my $x = new IO::Compress::Gzip \$good, -HeaderCRC => 1 ;
+ ok my $x = IO::Compress::Gzip->new( \$good, -HeaderCRC => 1 );
ok $x->write($string) ;
ok $x->close ;
@@ -537,7 +537,7 @@ EOM
my $buffer = $good ;
substr($buffer, 0, 1) = 'x' ;
- ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0 ;
+ ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
ok $GunzipError =~ /Header Error: Bad Magic/;
}
@@ -546,7 +546,7 @@ EOM
my $buffer = $good ;
substr($buffer, 1, 1) = "\xFF" ;
- ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0 ;
+ ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
ok $GunzipError =~ /Header Error: Bad Magic/;
#print "$GunzipError\n";
}
@@ -556,7 +556,7 @@ EOM
my $buffer = $good ;
substr($buffer, 2, 1) = 'x' ;
- ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0 ;
+ ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
like $GunzipError, '/Header Error: Not Deflate \(CM is \d+\)/';
}
@@ -565,7 +565,7 @@ EOM
my $buffer = $good ;
substr($buffer, 3, 1) = "\xff";
- ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0 ;
+ ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
like $GunzipError, '/Header Error: Use of Reserved Bits in FLG field./';
}
@@ -574,7 +574,7 @@ EOM
my $buffer = $good ;
substr($buffer, 10, 1) = chr((ord(substr($buffer, 10, 1)) + 1) & 0xFF);
- ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0, Strict => 1
+ ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0, Strict => 1 )
or print "# $GunzipError\n";
like $GunzipError, '/Header Error: CRC16 mismatch/'
#or diag "buffer length " . length($buffer);
@@ -587,10 +587,10 @@ EOM
my $x ;
my $store = "x" x GZIP_FEXTRA_MAX_SIZE ;
{
- my $z = new IO::Compress::Gzip(\$x, ExtraField => $store, Strict => 0) ;
+ my $z = IO::Compress::Gzip->new(\$x, ExtraField => $store, Strict => 0) ;
ok $z, "Created IO::Compress::Gzip object" ;
}
- my $gunz = new IO::Uncompress::Gunzip \$x, Strict => 0;
+ my $gunz = IO::Uncompress::Gunzip->new( \$x, Strict => 0 );
ok $gunz, "Created IO::Uncompress::Gunzip object" ;
my $hdr = $gunz->getHeaderInfo();
ok $hdr;
@@ -601,7 +601,7 @@ EOM
{
title "Header Corruption - ExtraField too big";
my $x;
- eval { new IO::Compress::Gzip(\$x, -ExtraField => "x" x (GZIP_FEXTRA_MAX_SIZE + 1)) ;};
+ eval { IO::Compress::Gzip->new(\$x, -ExtraField => "x" x (GZIP_FEXTRA_MAX_SIZE + 1)) ;};
like $@, mkErr('Error with ExtraField Parameter: Too Large');
like $GzipError, '/Error with ExtraField Parameter: Too Large/';
}
@@ -610,24 +610,24 @@ EOM
title "Header Corruption - Create Name with Illegal Chars";
my $x;
- eval { new IO::Compress::Gzip \$x, -Name => "fred\x02" };
+ eval { IO::Compress::Gzip->new( \$x, -Name => "fred\x02" ) };
like $@, mkErr('Non ISO 8859-1 Character found in Name');
like $GzipError, '/Non ISO 8859-1 Character found in Name/';
- ok my $gz = new IO::Compress::Gzip \$x,
+ ok my $gz = IO::Compress::Gzip->new( \$x,
-Strict => 0,
- -Name => "fred\x02" ;
- ok $gz->close();
+ -Name => "fred\x02" );
+ ok $gz->close();
- ok ! new IO::Uncompress::Gunzip \$x,
+ ok ! IO::Uncompress::Gunzip->new( \$x,
-Transparent => 0,
- -Strict => 1;
+ -Strict => 1 );
- like $GunzipError, '/Header Error: Non ISO 8859-1 Character found in Name/';
- ok my $gunzip = new IO::Uncompress::Gunzip \$x,
- -Strict => 0;
+ like $GunzipError, '/Header Error: Non ISO 8859-1 Character found in Name/';
+ ok my $gunzip = IO::Uncompress::Gunzip->new( \$x,
+ -Strict => 0 );
- my $hdr = $gunzip->getHeaderInfo() ;
+ my $hdr = $gunzip->getHeaderInfo() ;
is $hdr->{Name}, "fred\x02";
@@ -636,47 +636,47 @@ EOM
{
title "Header Corruption - Null Chars in Name";
my $x;
- eval { new IO::Compress::Gzip \$x, -Name => "\x00" };
+ eval { IO::Compress::Gzip->new( \$x, -Name => "\x00" ) };
like $@, mkErr('Null Character found in Name');
like $GzipError, '/Null Character found in Name/';
- eval { new IO::Compress::Gzip \$x, -Name => "abc\x00" };
+ eval { IO::Compress::Gzip->new( \$x, -Name => "abc\x00" ) };
like $@, mkErr('Null Character found in Name');
like $GzipError, '/Null Character found in Name/';
- ok my $gz = new IO::Compress::Gzip \$x,
+ ok my $gz = IO::Compress::Gzip->new( \$x,
-Strict => 0,
- -Name => "abc\x00de" ;
- ok $gz->close() ;
- ok my $gunzip = new IO::Uncompress::Gunzip \$x,
- -Strict => 0;
+ -Name => "abc\x00de" );
+ ok $gz->close() ;
+ ok my $gunzip = IO::Uncompress::Gunzip->new( \$x,
+ -Strict => 0 );
- my $hdr = $gunzip->getHeaderInfo() ;
+ my $hdr = $gunzip->getHeaderInfo() ;
is $hdr->{Name}, "abc";
-
+
}
{
title "Header Corruption - Create Comment with Illegal Chars";
my $x;
- eval { new IO::Compress::Gzip \$x, -Comment => "fred\x02" };
+ eval { IO::Compress::Gzip->new( \$x, -Comment => "fred\x02" ) };
like $@, mkErr('Non ISO 8859-1 Character found in Comment');
like $GzipError, '/Non ISO 8859-1 Character found in Comment/';
- ok my $gz = new IO::Compress::Gzip \$x,
+ ok my $gz = IO::Compress::Gzip->new( \$x,
-Strict => 0,
- -Comment => "fred\x02" ;
- ok $gz->close();
+ -Comment => "fred\x02" );
+ ok $gz->close();
- ok ! new IO::Uncompress::Gunzip \$x, Strict => 1,
- -Transparent => 0;
+ ok ! IO::Uncompress::Gunzip->new( \$x, Strict => 1,
+ -Transparent => 0 );
like $GunzipError, '/Header Error: Non ISO 8859-1 Character found in Comment/';
- ok my $gunzip = new IO::Uncompress::Gunzip \$x, Strict => 0;
+ ok my $gunzip = IO::Uncompress::Gunzip->new( \$x, Strict => 0 );
- my $hdr = $gunzip->getHeaderInfo() ;
+ my $hdr = $gunzip->getHeaderInfo() ;
is $hdr->{Comment}, "fred\x02";
@@ -685,25 +685,25 @@ EOM
{
title "Header Corruption - Null Char in Comment";
my $x;
- eval { new IO::Compress::Gzip \$x, -Comment => "\x00" };
+ eval { IO::Compress::Gzip->new( \$x, -Comment => "\x00" ) };
like $@, mkErr('Null Character found in Comment');
like $GzipError, '/Null Character found in Comment/';
- eval { new IO::Compress::Gzip \$x, -Comment => "abc\x00" } ;
+ eval { IO::Compress::Gzip->new( \$x, -Comment => "abc\x00" ) } ;
like $@, mkErr('Null Character found in Comment');
like $GzipError, '/Null Character found in Comment/';
- ok my $gz = new IO::Compress::Gzip \$x,
+ ok my $gz = IO::Compress::Gzip->new( \$x,
-Strict => 0,
- -Comment => "abc\x00de" ;
- ok $gz->close() ;
- ok my $gunzip = new IO::Uncompress::Gunzip \$x,
- -Strict => 0;
+ -Comment => "abc\x00de" );
+ ok $gz->close() ;
+ ok my $gunzip = IO::Uncompress::Gunzip->new( \$x,
+ -Strict => 0 );
- my $hdr = $gunzip->getHeaderInfo() ;
+ my $hdr = $gunzip->getHeaderInfo() ;
is $hdr->{Comment}, "abc";
-
+
}
@@ -715,18 +715,18 @@ some text
EOM
my $truncated ;
- ok my $x = new IO::Compress::Gzip \$truncated, -HeaderCRC => 1, Strict => 0,
- -ExtraField => "hello" x 10 ;
+ ok my $x = IO::Compress::Gzip->new( \$truncated, -HeaderCRC => 1, Strict => 0,
+ -ExtraField => "hello" x 10 );
ok $x->write($string) ;
ok $x->close ;
substr($truncated, $index) = '' ;
- #my $lex = new LexFile my $name ;
+ #my $lex = LexFile->new( my $name );
#writeFile($name, $truncated) ;
- #my $g = new IO::Uncompress::Gunzip $name, -Transparent => 0;
- my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0;
- ok ! $g
+ #my $g = IO::Uncompress::Gunzip->new( $name, -Transparent => 0 );
+ my $g = IO::Uncompress::Gunzip->new( \$truncated, -Transparent => 0 );
+ ok ! $g
or print "# $g\n" ;
like($GunzipError, '/^Header Error: Truncated in FEXTRA/');
@@ -744,14 +744,14 @@ some text
EOM
my $truncated ;
- ok my $x = new IO::Compress::Gzip \$truncated, -Name => $Name;
+ ok my $x = IO::Compress::Gzip->new( \$truncated, -Name => $Name );
ok $x->write($string) ;
ok $x->close ;
substr($truncated, $index) = '' ;
- my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0;
- ok ! $g
+ my $g = IO::Uncompress::Gunzip->new( \$truncated, -Transparent => 0 );
+ ok ! $g
or print "# $g\n" ;
like $GunzipError, '/^Header Error: Truncated in FNAME Section/';
@@ -767,17 +767,17 @@ some text
EOM
my $truncated ;
- ok my $x = new IO::Compress::Gzip \$truncated, -Comment => $Comment;
+ ok my $x = IO::Compress::Gzip->new( \$truncated, -Comment => $Comment );
ok $x->write($string) ;
ok $x->close ;
substr($truncated, $index) = '' ;
- #my $lex = new LexFile my $name ;
+ #my $lex = LexFile->new( my $name );
#writeFile($name, $truncated) ;
- #my $g = new IO::Uncompress::Gunzip $name, -Transparent => 0;
- my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0;
- ok ! $g
+ #my $g = IO::Uncompress::Gunzip->new( $name, -Transparent => 0 );
+ my $g = IO::Uncompress::Gunzip->new( \$truncated, -Transparent => 0 );
+ ok ! $g
or print "# $g\n" ;
like $GunzipError, '/^Header Error: Truncated in FCOMMENT Section/';
@@ -792,17 +792,16 @@ some text
EOM
my $truncated ;
- ok my $x = new IO::Compress::Gzip \$truncated, -HeaderCRC => 1;
+ ok my $x = IO::Compress::Gzip->new( \$truncated, -HeaderCRC => 1 );
ok $x->write($string) ;
ok $x->close ;
substr($truncated, $index) = '' ;
- my $lex = new LexFile my $name ;
+ my $lex = LexFile->new( my $name );
writeFile($name, $truncated) ;
- my $g = new IO::Uncompress::Gunzip $name, -Transparent => 0;
- #my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0;
- ok ! $g
+ my $g = IO::Uncompress::Gunzip->new( $name, -Transparent => 0 );
+ ok ! $g
or print "# $g\n" ;
like $GunzipError, '/^Header Error: Truncated in FHCRC Section/';
@@ -820,19 +819,19 @@ EOM
my $good ;
{
- ok my $x = new IO::Compress::Gzip \$good ;
+ ok my $x = IO::Compress::Gzip->new( \$good );
ok $x->write($string) ;
ok $x->close ;
}
writeFile($name, $good) ;
- ok my $gunz = new IO::Uncompress::Gunzip $name,
+ ok my $gunz = IO::Uncompress::Gunzip->new( $name,
-Append => 1,
- -Strict => 1;
+ -Strict => 1 );
my $uncomp ;
1 while $gunz->read($uncomp) > 0 ;
ok $gunz->close() ;
- ok $uncomp eq $string
+ ok $uncomp eq $string
or print "# got [$uncomp] wanted [$string]\n";;
foreach my $trim (-8 .. -1)
@@ -848,7 +847,7 @@ EOM
foreach my $strict (0, 1)
{
- ok my $gunz = new IO::Uncompress::Gunzip $name, Append => 1, -Strict => $strict ;
+ ok my $gunz = IO::Uncompress::Gunzip->new( $name, Append => 1, -Strict => $strict );
my $uncomp ;
my $status = 1;
$status = $gunz->read($uncomp) while $status > 0;
@@ -860,7 +859,7 @@ EOM
else
{
is $status, 0, "status 0";
- ok ! $GunzipError, "no error"
+ ok ! $GunzipError, "no error"
or diag "$GunzipError";
my $expected = substr($buffer, - $got);
is $gunz->trailingData(), $expected_trailing, "trailing data";
@@ -881,9 +880,9 @@ EOM
foreach my $strict (0, 1)
{
- ok my $gunz = new IO::Uncompress::Gunzip $name,
+ ok my $gunz = IO::Uncompress::Gunzip->new( $name,
Append => 1,
- -Strict => $strict ;
+ -Strict => $strict );
my $uncomp ;
my $status = 1;
$status = $gunz->read($uncomp) while $status > 0;
@@ -916,9 +915,9 @@ EOM
foreach my $strict (0, 1)
{
- ok my $gunz = new IO::Uncompress::Gunzip $name,
+ ok my $gunz = IO::Uncompress::Gunzip->new( $name,
-Append => 1,
- -Strict => $strict ;
+ -Strict => $strict );
my $uncomp ;
my $status = 1;
$status = $gunz->read($uncomp) while $status > 0;
@@ -951,9 +950,9 @@ EOM
foreach my $strict (0, 1)
{
- ok my $gunz = new IO::Uncompress::Gunzip $name,
+ ok my $gunz = IO::Uncompress::Gunzip->new( $name,
-Append => 1,
- -Strict => $strict ;
+ -Strict => $strict );
my $uncomp ;
my $status = 1;
$status = $gunz->read($uncomp) while $status > 0;
@@ -980,11 +979,11 @@ EOM
'SubField ID not two chars long' ;
my $buffer ;
my $x ;
- eval { $x = new IO::Compress::Gzip \$buffer,
- -ExtraField => [ at => 'mouse', bad => 'dog'] ;
+ eval { $x = IO::Compress::Gzip->new( \$buffer,
+ -ExtraField => [ at => 'mouse', bad => 'dog'] );
};
- like $@, mkErr("$error");
- like $GzipError, "/$error/";
+ like $@, mkErr("$error");
+ like $GzipError, "/$error/";
ok ! $x ;
}
}
View Lorry Controller Status