summaryrefslogtreecommitdiff
path: root/archivers/p5-Compress-Bzip2/patches/patch-aa
diff options
context:
space:
mode:
Diffstat (limited to 'archivers/p5-Compress-Bzip2/patches/patch-aa')
-rw-r--r--archivers/p5-Compress-Bzip2/patches/patch-aa67
1 files changed, 0 insertions, 67 deletions
diff --git a/archivers/p5-Compress-Bzip2/patches/patch-aa b/archivers/p5-Compress-Bzip2/patches/patch-aa
deleted file mode 100644
index 295a5fcd929..00000000000
--- a/archivers/p5-Compress-Bzip2/patches/patch-aa
+++ /dev/null
@@ -1,67 +0,0 @@
-$NetBSD: patch-aa,v 1.2 2004/12/05 16:29:15 he Exp $
-
---- t/test.t.orig Tue Feb 16 15:24:51 1999
-+++ t/test.t
-@@ -1,45 +1,26 @@
--#! /usr/bin/env perl
--##
--## vi:ts=4
--##
--##---------------------------------------------------------------------------##
--##
--
-+use Test::More tests => 4;
- use Compress::Bzip2;
-
- my $SourceString;
- my $TargetString;
- my $TargetOutString;
--my $InputFile;
--my $OutputFile;
--
--if ($ARGV[0] ne '') { $InputFile=$ARGV[0]; }
--else { $InputFile='test.t'; }
--
--$OutputFile=">".$InputFile.".dek";
--
--if (-e $InputFile) {
-- open(INPUT, $InputFile);
-- while(<INPUT>) {
-- $SourceString.=$_;
-- }
-- print "\n\nDie Datei wurde eingelesen.\n";
-- print "Die OrginalDatei hat die Groesse: ".length($SourceString)."\n\n";
--
-- $TargetString=Compress::Bzip2::compress($SourceString);
-
-- print "Bzip-Com: ".length($TargetString)."\n";
--
-- $TargetOutString=Compress::Bzip2::decompress($TargetString);
--
--
-- print "Bzip-Dec: ".length($TargetOutString)."\n";
--
-- open(OUTPUT, $OutputFile);
-- print OUTPUT $TargetOutString;
-+my $inputFile;
-
-+if (-d 't') {
-+ $InputFile='t/test.t';
-+} else {
-+ $InputFile='test.t';
- }
--else {
-- print "Datei ".$InputFile." konnte nicht geoeffnet werden.";
-+
-+open(INPUT, $InputFile);
-+while(<INPUT>) {
-+ $SourceString.=$_;
- }
--#Ende
-+ok(length($SourceString), 'test file');
-+$TargetString=Compress::Bzip2::compress($SourceString);
-+ok($TargetString, 'compression');
-+# print "Bzip-Com ".length($TargetString)."\n";
-+$TargetOutString=Compress::Bzip2::decompress($TargetString);
-+ok($TargetOutString, 'decompression');
-+ok(length($TargetOutString) eq length($SourceString), 'compress/decompress');