Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
compress	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
000prereq.t	2.37 KB	-r--r--r--	2014-12-27 11:49
001bzip2.t	5.47 KB	-r--r--r--	2014-12-27 11:48
001zlib-generic-deflate.t	327 B	-r--r--r--	2014-12-27 11:48
001zlib-generic-gzip.t	318 B	-r--r--r--	2014-12-27 11:48
001zlib-generic-rawdeflate.t	342 B	-r--r--r--	2014-12-27 11:48
001zlib-generic-zip.t	313 B	-r--r--r--	2014-12-27 11:48
002any-deflate.t	417 B	-r--r--r--	2014-12-27 11:48
002any-gzip.t	408 B	-r--r--r--	2014-12-27 11:48
002any-rawdeflate.t	431 B	-r--r--r--	2014-12-27 11:48
002any-transparent.t	1.4 KB	-r--r--r--	2014-12-27 11:48
002any-zip.t	403 B	-r--r--r--	2014-12-27 11:48
004gziphdr.t	28.65 KB	-r--r--r--	2014-12-27 11:48
005defhdr.t	9.56 KB	-r--r--r--	2014-12-27 11:48
006zip.t	9.76 KB	-r--r--r--	2014-12-27 11:48
01misc.t	12.13 KB	-r--r--r--	2014-12-27 11:48
020isize.t	4.68 KB	-r--r--r--	2014-12-27 11:49
050interop-gzip.t	2.82 KB	-r--r--r--	2014-12-27 11:48
100generic-bzip2.t	325 B	-r--r--r--	2014-12-27 11:48
100generic-deflate.t	340 B	-r--r--r--	2014-12-27 11:48
100generic-gzip.t	327 B	-r--r--r--	2014-12-27 11:48
100generic-rawdeflate.t	344 B	-r--r--r--	2014-12-27 11:48
100generic-zip.t	315 B	-r--r--r--	2014-12-27 11:48
101truncate-bzip2.t	595 B	-r--r--r--	2014-12-27 11:49
101truncate-deflate.t	601 B	-r--r--r--	2014-12-27 11:49
101truncate-gzip.t	598 B	-r--r--r--	2014-12-27 11:49
101truncate-rawdeflate.t	3.16 KB	-r--r--r--	2014-12-27 11:49
101truncate-zip.t	588 B	-r--r--r--	2014-12-27 11:49
102tied-bzip2.t	322 B	-r--r--r--	2014-12-27 11:48
102tied-deflate.t	326 B	-r--r--r--	2014-12-27 11:48
102tied-gzip.t	317 B	-r--r--r--	2014-12-27 11:48
102tied-rawdeflate.t	341 B	-r--r--r--	2014-12-27 11:48
102tied-zip.t	312 B	-r--r--r--	2014-12-27 11:48
103newtied-bzip2.t	325 B	-r--r--r--	2014-12-27 11:48
103newtied-deflate.t	329 B	-r--r--r--	2014-12-27 11:48
103newtied-gzip.t	320 B	-r--r--r--	2014-12-27 11:48
103newtied-rawdeflate.t	344 B	-r--r--r--	2014-12-27 11:48
103newtied-zip.t	315 B	-r--r--r--	2014-12-27 11:48
104destroy-bzip2.t	325 B	-r--r--r--	2014-12-27 11:48
104destroy-deflate.t	329 B	-r--r--r--	2014-12-27 11:48
104destroy-gzip.t	320 B	-r--r--r--	2014-12-27 11:48
104destroy-rawdeflate.t	344 B	-r--r--r--	2014-12-27 11:48
104destroy-zip.t	315 B	-r--r--r--	2014-12-27 11:48
105oneshot-bzip2.t	326 B	-r--r--r--	2014-12-27 11:48
105oneshot-deflate.t	329 B	-r--r--r--	2014-12-27 11:48
105oneshot-gzip-only.t	3.3 KB	-r--r--r--	2014-12-27 11:48
105oneshot-gzip.t	321 B	-r--r--r--	2014-12-27 11:48
105oneshot-rawdeflate.t	344 B	-r--r--r--	2014-12-27 11:48
105oneshot-zip-bzip2-only.t	4.29 KB	-r--r--r--	2014-12-27 11:48
105oneshot-zip-only.t	6.83 KB	-r--r--r--	2014-12-27 11:48
105oneshot-zip-store-only.t	2.3 KB	-r--r--r--	2014-12-27 11:49
105oneshot-zip.t	315 B	-r--r--r--	2014-12-27 11:48
106prime-bzip2.t	323 B	-r--r--r--	2014-12-27 11:48
106prime-deflate.t	327 B	-r--r--r--	2014-12-27 11:48
106prime-gzip.t	318 B	-r--r--r--	2014-12-27 11:48
106prime-rawdeflate.t	342 B	-r--r--r--	2014-12-27 11:48
106prime-zip.t	313 B	-r--r--r--	2014-12-27 11:48
107multi-bzip2.t	323 B	-r--r--r--	2014-12-27 11:48
107multi-deflate.t	327 B	-r--r--r--	2014-12-27 11:48
107multi-gzip.t	318 B	-r--r--r--	2014-12-27 11:48
107multi-rawdeflate.t	342 B	-r--r--r--	2014-12-27 11:48
107multi-zip.t	313 B	-r--r--r--	2014-12-27 11:48
108anyunc-bzip2.t	422 B	-r--r--r--	2014-12-27 11:48
108anyunc-deflate.t	426 B	-r--r--r--	2014-12-27 11:48
108anyunc-gzip.t	417 B	-r--r--r--	2014-12-27 11:48
108anyunc-rawdeflate.t	441 B	-r--r--r--	2014-12-27 11:48
108anyunc-transparent.t	1.42 KB	-r--r--r--	2014-12-27 11:48
108anyunc-zip.t	408 B	-r--r--r--	2014-12-27 11:48
109merge-deflate.t	327 B	-r--r--r--	2014-12-27 11:48
109merge-gzip.t	318 B	-r--r--r--	2014-12-27 11:48
109merge-rawdeflate.t	342 B	-r--r--r--	2014-12-27 11:48
109merge-zip.t	365 B	-r--r--r--	2014-12-27 11:48
110encode-bzip2.t	324 B	-r--r--r--	2014-12-27 11:48
110encode-deflate.t	330 B	-r--r--r--	2014-12-27 11:48
110encode-gzip.t	319 B	-r--r--r--	2014-12-27 11:48
110encode-rawdeflate.t	345 B	-r--r--r--	2014-12-27 11:48
110encode-zip.t	314 B	-r--r--r--	2014-12-27 11:48
111const-deflate.t	2.39 KB	-r--r--r--	2014-12-27 11:48
999pod.t	261 B	-r--r--r--	2014-12-27 11:48
cz-01version.t	994 B	-r--r--r--	2014-12-27 11:48
cz-03zlib-v1.t	28.5 KB	-r--r--r--	2014-12-27 11:48
cz-06gzsetp.t	3.73 KB	-r--r--r--	2014-12-27 11:48
cz-08encoding.t	3.34 KB	-r--r--r--	2014-12-27 11:48
cz-14gzopen.t	16.02 KB	-r--r--r--	2014-12-27 11:48
globmapper.t	8.13 KB	-r--r--r--	2014-12-27 11:48

Rename

BEGIN {
    if ($ENV{PERL_CORE}) {
        chdir 't' if -d 't';
        @INC = ("../lib", "lib/compress");
    }
}

use lib qw(t t/compress);

use strict;
use warnings;
use bytes;

use Test::More ;
use CompTestUtils;

BEGIN 
{ 
    # use Test::NoWarnings, if available
    my $extra = 0 ;
    $extra = 1
        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };

plan tests => 841 + $extra ;
};

use IO::Compress::Bzip2     qw($Bzip2Error) ;
use IO::Uncompress::Bunzip2 qw($Bunzip2Error) ;

my $CompressClass   = 'IO::Compress::Bzip2';
my $UncompressClass = getInverse($CompressClass);
my $Error           = getErrorRef($CompressClass);
my $UnError         = getErrorRef($UncompressClass);

sub myBZreadFile
{
    my $filename = shift ;
    my $init = shift ;

my $fil = new $UncompressClass $filename,
                                    -Strict   => 1,
                                    -Append   => 1
                                    ;

my $data = '';
    $data = $init if defined $init ;
    1 while $fil->read($data) > 0;

$fil->close ;
    return $data ;
}

{

title "Testing $CompressClass Errors";

my $buffer ;

for my $value (undef, -1, 'fred')
    {
        my $stringValue = defined $value ? $value : 'undef';
        title "BlockSize100K => $stringValue";
        my $err = "Parameter 'BlockSize100K' must be an unsigned int, got '$stringValue'";
        my $bz ;
        eval { $bz = new IO::Compress::Bzip2(\$buffer, BlockSize100K => $value) };
        like $@,  mkErr("IO::Compress::Bzip2: $err"),
            "  value $stringValue is bad";
        is $Bzip2Error, "IO::Compress::Bzip2: $err",
            "  value $stringValue is bad";
        ok ! $bz, "  no bz object";
    }

for my $value (0, 10, 99999)
    {
        my $stringValue = defined $value ? $value : 'undef';
        title "BlockSize100K => $stringValue";
        my $err = "Parameter 'BlockSize100K' not between 1 and 9, got $stringValue";
        my $bz ;
        eval { $bz = new IO::Compress::Bzip2(\$buffer, BlockSize100K => $value) };
        like $@,  mkErr("IO::Compress::Bzip2: $err"),
            "  value $stringValue is bad";
        is $Bzip2Error,  "IO::Compress::Bzip2: $err",
            "  value $stringValue is bad";
        ok ! $bz, "  no bz object";
    }

for my $value (undef, -1, 'fred')
    {
        my $stringValue = defined $value ? $value : 'undef';
        title "WorkFactor => $stringValue";
        my $err = "Parameter 'WorkFactor' must be an unsigned int, got '$stringValue'";
        my $bz ;
        eval { $bz = new IO::Compress::Bzip2(\$buffer, WorkFactor => $value) };
        like $@,  mkErr("IO::Compress::Bzip2: $err"),
            "  value $stringValue is bad";
        is $Bzip2Error, "IO::Compress::Bzip2: $err",
            "  value $stringValue is bad";
        ok ! $bz, "  no bz object";
    }

for my $value (251, 99999)
    {
        my $stringValue = defined $value ? $value : 'undef';
        title "WorkFactor => $stringValue";
        my $err = "Parameter 'WorkFactor' not between 0 and 250, got $stringValue";
        my $bz ;
        eval { $bz = new IO::Compress::Bzip2(\$buffer, WorkFactor => $value) };
        like $@,  mkErr("IO::Compress::Bzip2: $err"),
            "  value $stringValue is bad";
        is $Bzip2Error,  "IO::Compress::Bzip2: $err",
            "  value $stringValue is bad";
        ok ! $bz, "  no bz object";
    }

}

{
    title "Testing $UncompressClass Errors";

my $buffer ;

for my $value (-1, 'fred')
    {
        my $stringValue = defined $value ? $value : 'undef';
        title "Small => $stringValue";
        my $err = "Parameter 'Small' must be an int, got '$stringValue'";
        my $bz ;
        eval { $bz = new IO::Uncompress::Bunzip2(\$buffer, Small => $value) };
        like $@,  mkErr("IO::Uncompress::Bunzip2: $err"),
            "  value $stringValue is bad";
        is $Bunzip2Error, "IO::Uncompress::Bunzip2: $err",
            "  value $stringValue is bad";
        ok ! $bz, "  no bz object";
    }

}

{
    title "Testing $CompressClass and $UncompressClass";

my $hello = <<EOM ;
hello world
this is a test
EOM

for my $value ( 1 .. 9 )
    {
        title "$CompressClass - BlockSize100K => $value";
        my $lex = new LexFile my $name ;
        my $bz ;
        $bz = new IO::Compress::Bzip2($name, BlockSize100K => $value)
            or diag $IO::Compress::Bzip2::Bzip2Error ;
        ok $bz, "  bz object ok";
        $bz->write($hello);
        $bz->close($hello);

is myBZreadFile($name), $hello, "  got expected content";
    }

for my $value ( 0 .. 250 )
    {
        title "$CompressClass - WorkFactor => $value";
        my $lex = new LexFile my $name ;
        my $bz ;
        $bz = new IO::Compress::Bzip2($name, WorkFactor => $value);
        ok $bz, "  bz object ok";
        $bz->write($hello);
        $bz->close($hello);

is myBZreadFile($name), $hello, "  got expected content";
    }

for my $value ( 0 .. 1 )
    {
        title "$UncompressClass - Small => $value";
        my $lex = new LexFile my $name ;
        my $bz ;
        $bz = new IO::Compress::Bzip2($name);
        ok $bz, "  bz object ok";
        $bz->write($hello);
        $bz->close($hello);

my $fil = new $UncompressClass $name,
                                       Append  => 1,
                                       Small   => $value ;

my $data = '';
        1 while $fil->read($data) > 0;

$fil->close ;

is $data, $hello, " got expected";
    }
}