diff options
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | Makefile.PL | 2 | ||||
| -rw-r--r-- | Packdrakeng.pm | 19 | ||||
| -rw-r--r-- | Packdrakeng/zlib.pm | 19 | ||||
| -rwxr-xr-x | t/01packdrake.t (renamed from t/02packdrake.t) | 0 | ||||
| -rwxr-xr-x | t/01packdrakeng.t | 143 |
6 files changed, 0 insertions, 185 deletions
@@ -8,8 +8,6 @@ genhdlist Makefile.PL MANIFEST packdrake -Packdrakeng.pm -Packdrakeng/zlib.pm packdrake.pm parsehdlist.c rpm2cpio.pl diff --git a/Makefile.PL b/Makefile.PL index 056e597..5c48422 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -53,8 +53,6 @@ WriteMakefile( pm_to_blib => 'buildc', }, PM => { - 'Packdrakeng.pm' => '$(INST_LIBDIR)/Packdrakeng.pm', - 'Packdrakeng/zlib.pm' => '$(INST_LIBDIR)/Packdrakeng/zlib.pm', 'packdrake.pm' => '$(INST_LIBDIR)/packdrake.pm', 'Distribconf.pm' => '$(INST_LIBDIR)/Distribconf.pm', 'Distribconf/Build.pm' => '$(INST_LIBDIR)/Distribconf/Build.pm', diff --git a/Packdrakeng.pm b/Packdrakeng.pm deleted file mode 100644 index 57b4ca8..0000000 --- a/Packdrakeng.pm +++ /dev/null @@ -1,19 +0,0 @@ -package Packdrakeng; - -(our $VERSION) = q($Id$) =~ /(\d+\.\d+)/; - -use MDV::Packdrakeng; - -*Packdrakeng:: = *MDV::Packdrakeng::; -warn "Warning: Packdrakeng is deprecated, use MDV::Packdrakeng instead.\n"; -1; - -=head1 NAME - -Packdrakeng - Compatibility wrapper around MDV::Packdrakeng - -=head1 DESCRIPTION - -Don't use this module. Use MDV::Packdrakeng instead. - -=cut diff --git a/Packdrakeng/zlib.pm b/Packdrakeng/zlib.pm deleted file mode 100644 index 576652a..0000000 --- a/Packdrakeng/zlib.pm +++ /dev/null @@ -1,19 +0,0 @@ -package Packdrakeng::zlib; - -(our $VERSION) = q($Id$) =~ /(\d+\.\d+)/; - -use MDV::Packdrakeng::zlib; - -*Packdrakeng::zlib:: = *MDV::Packdrakeng::zlib::; -warn "Warning: Packdrakeng::zlib is deprecated, use MDV::Packdrakeng::zlib instead.\n"; -1; - -=head1 NAME - -Packdrakeng::zlib - Compatibility wrapper around MDV::Packdrakeng::zlib - -=head1 DESCRIPTION - -Don't use this module. Use MDV::Packdrakeng::zlib instead. - -=cut diff --git a/t/02packdrake.t b/t/01packdrake.t index 1d0aebf..1d0aebf 100755 --- a/t/02packdrake.t +++ b/t/01packdrake.t diff --git a/t/01packdrakeng.t b/t/01packdrakeng.t deleted file mode 100755 index 52d3c12..0000000 --- a/t/01packdrakeng.t +++ /dev/null @@ -1,143 +0,0 @@ -#!/usr/bin/perl - -# $Id$ - -use strict; -use Test::More tests => 41; -use Digest::MD5; - -BEGIN { use_ok('Packdrakeng'); } - --d "test" || mkdir "test" or die "Can't create directory test"; - -my $coin = q{ - ___________ -< Coin coin > - ----------- - \ ,~~. - \ __( o ) - `--'==( ___/) - ( ( . / - \ '-' / - ~'`~'`~'`~'`~ -}; - -sub clean_test_files { - -d "test" or return; - system("rm -fr $_") foreach (glob("test/*")); -} - -sub create_test_files { - my ($number) = @_; - my %created; - foreach my $n (1 .. $number||10) { - my $size = int(rand(1024)); - system("dd if=/dev/urandom of=test/$size bs=1024 count=$size >/dev/null 2>&1"); - open(my $h, "test/$size"); - $created{"test/$size"} = Digest::MD5->new->addfile($h)->hexdigest; - close $h; - } - return %created; -} - -sub check_files { - my %files = @_; - my $ok = 1; - foreach my $f (keys %files) { - open(my $h, $f) or die "Can't read $f: $!"; - Digest::MD5->new->addfile($h)->hexdigest ne $files{$f} and do { - diag "$f differ"; - $ok = 0; - }; - close $h; - } - $ok -} - -# Test series, packing, unpacking - -sub test_packing { - my ($pack_param, $listfiles) = @_; - - ok(my $pack = Packdrakeng->new(%$pack_param), "Creating an archive"); - $pack or return; - ok($pack->add(undef, keys %$listfiles), "packing files"); - $pack = undef; # closing the archive. - - clean_test_files(); - - ok($pack = Packdrakeng->open(%$pack_param), "Re-opening the archive"); - $pack or die; - ok($pack->extract('.', keys(%$listfiles)), "extracting files"); - ok(check_files(%$listfiles), "Checking md5sum for extracted files"); - - $pack = undef; -} - -# Testing simple additional function -clean_test_files(); - -{ - my ($handle, $filename) = Packdrakeng::tempfile(); - ok($handle && $filename, "can create temp file"); - ok(-f $filename, "Temp file exists"); - ok(print($handle $coin), "can write into file"); - close($handle); - unlink($filename); - - ok(Packdrakeng::mkpath('test/parent/child'), "can create dir like mkdir -p"); - ok(-d 'test/parent/child', "the dir really exists"); -} - -# Single test: -{ - clean_test_files(); - - ok(my $pack = Packdrakeng->new(archive => "packtest.cz"), "Create a new archive"); - open(my $fh, "+> test/test") or die "Can't open test file $!"; - syswrite($fh, $coin); - sysseek($fh, 0, 0); - ok($pack->add_virtual('f', "coin", $fh), "Adding data from file"); - close($fh); - unlink("test/test"); - - ok($pack->add_virtual('d', "dir"), "Adding a dir"); - ok($pack->add_virtual('l', "symlink", "dest"), "Adding a symlink"); - $pack = undef; - - ok($pack = Packdrakeng->open(archive => "packtest.cz"), "Opening the archive"); - my ($type, $info); - ($type, $info) = $pack->infofile("noexist"); - ok(!defined($type), "get info from an non existed file"); - ($type, $info) = $pack->infofile("dir"); - ok($type eq 'd', "Get info from a dir"); - ($type, $info) = $pack->infofile("symlink"); - ok($type eq 'l' && $info eq 'dest', "Get info from a dir"); - ($type, $info) = $pack->infofile("coin"); - ok($type eq 'f' && $info eq length($coin), "Get info from a file"); - ok($pack->extract("test", "dir"), "Extracting dir"); - ok(-d "test/dir", "dir successfully restored"); - ok($pack->extract("test", "symlink"), "Extracting symlink"); - ok(readlink("test/symlink") eq "dest", "symlink successfully restored"); - - open($fh, "+> test/test") or die "Can't open file $!"; - ok($pack->extract_virtual($fh, "coin"), "Extracting data"); - sysseek($fh, 0, 0); - sysread($fh, my $data, 1000); - close($fh); - ok($data eq $coin, "Data is correct"); -} - -clean_test_files(); - -test_packing({ archive => "packtest-cat.cz", compress => 'cat', uncompress => 'cat', noargs => 1 }, { create_test_files(30) }); -clean_test_files(); - -test_packing({ archive => "packtest-gzipi.cz" }, { create_test_files(30) }); -clean_test_files(); - -test_packing({ archive => "packtest-gzip.cz", compress => "gzip", extern => 1}, { create_test_files(30) }); -clean_test_files(); - -test_packing({ archive => "packtest-bzip2.cz", compress => "bzip2", extern => 1}, { create_test_files(30) }); -clean_test_files(); |