Compress-Raw-Zlib/t/02zlib.t

38     use_ok('Compress::Raw::Zlib', 2) ;
42 my $Zlib_ver = Compress::Raw::Zlib::zlib_version ;
55     is Compress::Raw::Zlib::zlib_version, ZLIB_VERSION,
56         "ZLIB_VERSION matches Compress::Raw::Zlib::zlib_version" ;
62     eval { new Compress::Raw::Zlib::Deflate(-Level) };
63 … like $@,  mkErr("^Compress::Raw::Zlib::Deflate::new: Expected even number of parameters, got 1") ;
65     eval { new Compress::Raw::Zlib::Inflate(-Level) };
66     like $@, mkErr("^Compress::Raw::Zlib::Inflate::new: Expected even number of parameters, got 1");
68     eval { new Compress::Raw::Zlib::Deflate(-Joe => 1) };
69     like $@, mkErr('^Compress::Raw::Zlib::Deflate::new: unknown key value\(s\) Joe');
71     eval { new Compress::Raw::Zlib::Inflate(-Joe => 1) };
72     like $@, mkErr('^Compress::Raw::Zlib::Inflate::new: unknown key value\(s\) Joe');
74     eval { new Compress::Raw::Zlib::Deflate(-Bufsize => 0) };
75     like $@, mkErr("^Compress::Raw::Zlib::Deflate::new: Bufsize must be >= 1, you specified 0");
77     eval { new Compress::Raw::Zlib::Inflate(-Bufsize => 0) };
78     like $@, mkErr("^Compress::Raw::Zlib::Inflate::new: Bufsize must be >= 1, you specified 0");
80     eval { new Compress::Raw::Zlib::Deflate(-Bufsize => -1) };
81 …like $@, mkErr("^Compress::Raw::Zlib::Deflate::new: Parameter 'Bufsize' must be an unsigned int, g…
83     eval { new Compress::Raw::Zlib::Inflate(-Bufsize => -1) };
84 …like $@, mkErr("^Compress::Raw::Zlib::Inflate::new: Parameter 'Bufsize' must be an unsigned int, g…
86     eval { new Compress::Raw::Zlib::Deflate(-Bufsize => "xxx") };
87 …like $@, mkErr("^Compress::Raw::Zlib::Deflate::new: Parameter 'Bufsize' must be an unsigned int, g…
89     eval { new Compress::Raw::Zlib::Inflate(-Bufsize => "xxx") };
90 …like $@, mkErr("^Compress::Raw::Zlib::Inflate::new: Parameter 'Bufsize' must be an unsigned int, g…
92     eval { new Compress::Raw::Zlib::Inflate(-Bufsize => 1, 2) };
93     like $@, mkErr("^Compress::Raw::Zlib::Inflate::new: Expected even number of parameters, got 3");
95     eval { new Compress::Raw::Zlib::Deflate(-Bufsize => 1, 2) };
96     like $@, mkErr("^Compress::Raw::Zlib::Deflate::new: Expected even number of parameters, got 3");
109     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( -Bufsize => 1 ), "Create deflate object" );
110     ok $x, "Compress::Raw::Zlib::Deflate ok" ;
139     ok(($k, $err) = new Compress::Raw::Zlib::Inflate( {-Bufsize => 1}) );
140     ok $k, "Compress::Raw::Zlib::Inflate ok" ;
172     ok  my ($x, $err) = new Compress::Raw::Zlib::Deflate ( -Bufsize => 1, -AppendOutput => 1 ) ;
186     ok(($k, $err) = new Compress::Raw::Zlib::Inflate( {-Bufsize => 1, -AppendOutput =>1}) );
215     ok  my ($x, $err) = new Compress::Raw::Zlib::Deflate ( {-Bufsize => 1, -AppendOutput =>1} ) ;
235     ok(($k, $err) = new Compress::Raw::Zlib::Inflate( {-Bufsize => 1, -AppendOutput =>1}));
263     ok my ($x, $err) = new Compress::Raw::Zlib::Deflate() ;
285     ok(($k, $err) = new Compress::Raw::Zlib::Inflate() );
296     ok (($k, $err) = new Compress::Raw::Zlib::Inflate(-AppendOutput => 1)) ;
320     ok my $x = new Compress::Raw::Zlib::Deflate({-Level => Z_BEST_COMPRESSION,
330     ok my $k = new Compress::Raw::Zlib::Inflate(-Dictionary => $dictionary) ;
344     ok my $x = new Compress::Raw::Zlib::Deflate(-Level => Z_BEST_COMPRESSION ) ;
351     ok my $k = new Compress::Raw::Zlib::Inflate( -ConsumeInput => $consume) ;
389        new Compress::Raw::Zlib::Deflate ( -Bufsize => 1,
413     ok(($k, $err) = new Compress::Raw::Zlib::Inflate(
448     ok(($x, $err) = new Compress::Raw::Zlib::Deflate(AppendOutput => 1)) ;
467     ok(($k, $err) = new Compress::Raw::Zlib::Inflate()) ;
503     ok(($k, $err) = new Compress::Raw::Zlib::Inflate(ConsumeInput => 0)) ;
528     ok(($x, $err) = new Compress::Raw::Zlib::Deflate(
544     like $@, mkErr('^Compress::Raw::Zlib::deflateParams needs Level and\/or Strategy');
547 …like $@, mkErr('^Compress::Raw::Zlib::Inflate::deflateParams: Bufsize must be >= 1, you specified …
550 …  like $@, mkErr('^Compress::Raw::Zlib::deflateStream::deflateParams: unknown key value\(s\) Joe');
598     ok(($k, $err) = new Compress::Raw::Zlib::Inflate()) ;
613     ok my $k = new Compress::Raw::Zlib::Inflate(-ConsumeInput => 1) ;
617 …like $@, mkErr("Compress::Raw::Zlib::Inflate::inflate input parameter cannot be read-only when Con…
630     ok  my $x = new Compress::Raw::Zlib::Deflate(-AppendOutput => 1) ;
641     ok my $k = new Compress::Raw::Zlib::Inflate(-AppendOutput => 1) ;
664     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( -Bufsize => 1 ) );
686     ok(($k, $err) = new Compress::Raw::Zlib::Inflate(-AppendOutput => 1) );
713     ok my $x = new Compress::Raw::Zlib::Deflate ( -AppendOutput => 1 );
723     ok my $k = new Compress::Raw::Zlib::Inflate ( -AppendOutput => 1,
733     ok $k = new Compress::Raw::Zlib::Inflate ( -AppendOutput => 1,
746     # https://github.com/pmqs/Compress-Raw-Zlib/issues/3
753     ok my $x = new Compress::Raw::Zlib::Deflate ( -AppendOutput => 1 );
759     ok my $k = new Compress::Raw::Zlib::Inflate ( -AppendOutput => 1,
782     # https://github.com/pmqs/Compress-Raw-Zlib/issues/3
801     ok my $x = new Compress::Raw::Zlib::Deflate ( -AppendOutput => 1 );
807     ok my $k = new Compress::Raw::Zlib::Inflate ( -AppendOutput => 1,
817     # https://github.com/pmqs/Compress-Raw-Zlib/issues/3
830     ok my $x = new Compress::Raw::Zlib::Deflate ( -AppendOutput => 1 );
836     ok my $k = new Compress::Raw::Zlib::Inflate ( -AppendOutput => 1,
850     Compress::Raw::Zlib::InflateScan->new->resetLastBlockByte(undef);
867     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate (
871     ok $x, "Compress::Raw::Zlib::Deflate ok" ;
880     ($k, $err) = new Compress::Raw::Zlib::Inflate(
884     ok $k, "Compress::Raw::Zlib::Inflate WANT_GZIP ok" ;
892     ($k, $err) = new Compress::Raw::Zlib::Inflate(
895     ok $k, "Compress::Raw::Zlib::Inflate WANT_GZIP_OR_ZLIB ok" ;
918     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate (
922     ok $x, "Compress::Raw::Zlib::Deflate ok" ;
931     ($k, $err) = new Compress::Raw::Zlib::Inflate(
935     ok $k, "Compress::Raw::Zlib::Inflate WANT_GZIP ok" ;
942     ($k, $err) = new Compress::Raw::Zlib::Inflate(
945     ok $k, "Compress::Raw::Zlib::Inflate WANT_GZIP_OR_ZLIB ok" ;
967     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate (
970     ok $x, "Compress::Raw::Zlib::Deflate ok" ;
979     ($k, $err) = new Compress::Raw::Zlib::Inflate(
983     ok $k, "Compress::Raw::Zlib::Inflate WANT_GZIP ok" ;
990     ($k, $err) = new Compress::Raw::Zlib::Inflate(
993     ok $k, "Compress::Raw::Zlib::Inflate WANT_GZIP_OR_ZLIB ok" ;
1004     my $flags = Compress::Raw::Zlib::zlibCompileFlags;
1022     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( ), "Create deflate object" );
1023     isa_ok $x, "Compress::Raw::Zlib::deflateStream" ;
1040     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( ), "Create deflate object" );
1041     isa_ok $x, "Compress::Raw::Zlib::deflateStream" ;
1052     is eval('Compress::Raw::Zlib::crc32("A" x 0x100, 0, 0x100); 0x1234'), 0x1234;
1055     is eval('Compress::Raw::Zlib::crc32("A" x 0x100, 0, 0x101); 0x1234'), undef;
1056     like $@,  mkErr("^Offset out of range in Compress::Raw::Zlib::crc32") ;
1067     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( ), "Create deflate object" );
1068     isa_ok $x, "Compress::Raw::Zlib::deflateStream" ;
1086     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( -Bufsize => 1,
1110     ok(($k, $err) = new Compress::Raw::Zlib::Inflate(-AppendOutput => 1) );
1136     ok( ($x, $err) = new Compress::Raw::Zlib::Deflate ( -Bufsize => 1,
1157     ok(($k, $err) = new Compress::Raw::Zlib::Inflate(-AppendOutput => 1) );