BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't' if -d 't';
- @INC = '../lib';
+ @INC = ("../lib", "lib/compress");
}
}
use warnings;
use bytes;
+# TODO -- split out & add zip/bzip2
+
use Test::More ;
use ZlibTestUtils;
title "Fingerprint Truncation";
foreach my $i (1)
{
- my $name = "test.gz" ;
- unlink $name ;
- my $lex = new LexFile $name ;
+ my $lex = new LexFile my $name ;
ok 1, "Length $i" ;
my $part = substr($compressed, 0, $i);
#
foreach my $i (2 .. $header_size -1)
{
- my $name = "test.gz" ;
- unlink $name ;
- my $lex = new LexFile $name ;
+ my $lex = new LexFile my $name ;
ok 1, "Length $i" ;
my $part = substr($compressed, 0, $i);
foreach my $i ($header_size .. length($compressed) - 1 - $trailer_size)
{
- my $name = "test.gz" ;
- unlink $name ;
- my $lex = new LexFile $name ;
+ my $lex = new LexFile my $name ;
ok 1, "Length $i" ;
my $part = substr($compressed, 0, $i);
{
foreach my $lax (0, 1)
{
- my $name = "test.gz" ;
- unlink $name ;
- my $lex = new LexFile $name ;
+ my $lex = new LexFile my $name ;
ok 1, "Length $i, Lax $lax" ;
my $part = substr($compressed, 0, $i);
foreach my $i (0 .. $blocksize)
{
- my $name = "test.gz" ;
- unlink $name ;
- my $lex = new LexFile $name ;
+ my $lex = new LexFile my $name ;
ok 1, "Length $i" ;
my $part = substr($compressed, 0, $i);
ok $gz;
ok ! $gz->error() ;
my $buff = '';
- ok $gz->read($buff) == length $part ;
- ok $buff eq $part ;
+ is $gz->read($buff), length $part ;
+ is $buff, $part ;
ok $gz->eof() ;
$gz->close();
}
foreach my $i ($blocksize+1 .. length($compressed)-1)
{
- my $name = "test.gz" ;
- unlink $name ;
- my $lex = new LexFile $name ;
+ my $lex = new LexFile my $name ;
ok 1, "Length $i" ;
my $part = substr($compressed, 0, $i);