|
Packit |
d03632 |
BEGIN {
|
|
Packit |
d03632 |
if ($ENV{PERL_CORE}) {
|
|
Packit |
d03632 |
chdir 't' if -d 't';
|
|
Packit |
d03632 |
@INC = ("../lib", "lib/compress");
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
use lib qw(t t/compress);
|
|
Packit |
d03632 |
use strict;
|
|
Packit |
d03632 |
use warnings;
|
|
Packit |
d03632 |
use bytes;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
use Test::More ;
|
|
Packit |
d03632 |
use CompTestUtils;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
BEGIN
|
|
Packit |
d03632 |
{
|
|
Packit |
d03632 |
plan(skip_all => "lvalue sub tests need Perl ??")
|
|
Packit |
d03632 |
if $] < 5.006 ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
# use Test::NoWarnings, if available
|
|
Packit |
d03632 |
my $extra = 0 ;
|
|
Packit |
d03632 |
$extra = 1
|
|
Packit |
d03632 |
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
plan tests => 10 + $extra ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
use_ok('Compress::Raw::Zlib', 2) ;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
my $hello = <
|
|
Packit |
d03632 |
hello world
|
|
Packit |
d03632 |
this is a test
|
|
Packit |
d03632 |
EOM
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
my $len = length $hello ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
# Check zlib_version and ZLIB_VERSION are the same.
|
|
Packit |
d03632 |
SKIP: {
|
|
Packit |
d03632 |
skip "TEST_SKIP_VERSION_CHECK is set", 1
|
|
Packit |
d03632 |
if $ENV{TEST_SKIP_VERSION_CHECK};
|
|
Packit |
d03632 |
is Compress::Raw::Zlib::zlib_version, ZLIB_VERSION,
|
|
Packit |
d03632 |
"ZLIB_VERSION matches Compress::Raw::Zlib::zlib_version" ;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
{
|
|
Packit |
d03632 |
title 'deflate/inflate with lvalue sub';
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
my $hello = "I am a HAL 9000 computer" ;
|
|
Packit |
d03632 |
my $data = $hello ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
my($X, $Z);
|
|
Packit |
d03632 |
sub getData : lvalue { $data }
|
|
Packit |
d03632 |
sub getX : lvalue { $X }
|
|
Packit |
d03632 |
sub getZ : lvalue { $Z }
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
ok my $x = new Compress::Raw::Zlib::Deflate ( -AppendOutput => 1 );
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
cmp_ok $x->deflate(getData, getX), '==', Z_OK ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
cmp_ok $x->flush(getX), '==', Z_OK ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
my $append = "Appended" ;
|
|
Packit |
d03632 |
$X .= $append ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
ok my $k = new Compress::Raw::Zlib::Inflate ( -AppendOutput => 1 ) ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
cmp_ok $k->inflate(getX, getZ), '==', Z_STREAM_END ; ;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
ok $hello eq $Z ;
|
|
Packit |
d03632 |
is $X, $append;
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
|