aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--MANIFEST2
-rw-r--r--Makefile.PL2
-rw-r--r--Packdrakeng.pm19
-rw-r--r--Packdrakeng/zlib.pm19
-rwxr-xr-xt/01packdrake.t (renamed from t/02packdrake.t)0
-rwxr-xr-xt/01packdrakeng.t143
6 files changed, 0 insertions, 185 deletions
diff --git a/MANIFEST b/MANIFEST
index 8b6157b..8a5a6d2 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -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();