Initial commit.
This commit is contained in:
依瑪貓
22
t/00-signature.t
Executable file
22
t/00-signature.t
Executable file
@ -0,0 +1,22 @@
|
||||
#!/usr/bin/perl
|
||||
use strict;
|
||||
print "1..1\n";
|
||||
|
||||
if (!-s 'SIGNATURE') {
|
||||
print "ok 1 # skip No signature file found\n";
|
||||
}
|
||||
elsif (!eval { require Module::Signature; 1 }) {
|
||||
print "ok 1 # skip ",
|
||||
"Next time around, consider install Module::Signature, ",
|
||||
"so you can verify the integrity of this distribution.\n";
|
||||
}
|
||||
elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
|
||||
print "ok 1 # skip Cannot connect to the keyserver\n";
|
||||
}
|
||||
else {
|
||||
(Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
|
||||
or print "not ";
|
||||
print "ok 1 # Valid signature\n";
|
||||
}
|
||||
|
||||
__END__
|
||||
145
t/01-exhaust.t
Executable file
145
t/01-exhaust.t
Executable file
@ -0,0 +1,145 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test all the possible combination of options
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
#
|
||||
# This program is free software: you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation, either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
use warnings;
|
||||
use diagnostics;
|
||||
use Test;
|
||||
|
||||
BEGIN { plan tests => 2160 }
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use File::Path qw(mkpath rmtree);
|
||||
use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
$tno = 0;
|
||||
|
||||
# 1-2160: All possible option combinations
|
||||
# Test each log file format
|
||||
foreach my $fmt (@LOGFMTS) {
|
||||
# Test each source log file type
|
||||
foreach my $st (@SRCTYPES) {
|
||||
# Test each result file type
|
||||
foreach my $rt (@RESTYPES) {
|
||||
# Test each keep type
|
||||
foreach my $kt (@KEEPTYPES) {
|
||||
# Test each override type
|
||||
foreach my $ot (@OVERTYPES) {
|
||||
$_ = eval {
|
||||
return if $$st{"skip"} || $$rt{"skip"};
|
||||
my ($title, $cmd, $retno, $out, $err, $vardump, $logfile);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($fs, $cs, %cem, @mle, $mt, %cof);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = join ", ", ($$fmt{"title"}, $$st{"title"},
|
||||
$$rt{"title"}, $$kt{"title"}, $$ot{"title"});
|
||||
$logfile = randword;
|
||||
$fs = catfile($WORKDIR, $logfile . $$st{"suf"});
|
||||
($cs, $vardump, %cem) = &{$$fmt{"sub"}}($fs);
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
@mle = sort keys %cem;
|
||||
$mt = pop @mle if $$kt{"tm"};
|
||||
if ($$ot{"mkex"}) {
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$WORKDIR, "$logfile.%s" . $$rt{"suf"}, @mle;
|
||||
} else {
|
||||
%cof = map { "$logfile.$_" . $$rt{"suf"} => "" }
|
||||
@mle;
|
||||
}
|
||||
@fle = qw();
|
||||
push @fle, basename($fs) if !$$kt{"del"};
|
||||
push @fle, "$logfile.vardump";
|
||||
if ($$ot{"ok"}) {
|
||||
push @fle, map "$logfile.$_" . $$rt{"suf"}, @mle;
|
||||
} else {
|
||||
push @fle, "$logfile.tmp-arclog" if $$kt{"tmp"};
|
||||
push @fle, grep $cof{$_} ne "", keys %cof;
|
||||
}
|
||||
prsrvsrc $WORKDIR;
|
||||
if (!$$kt{"stdin"}) {
|
||||
@_ = ($arclog, qw(-d -d -d), @{$$kt{"opts"}},
|
||||
@{$$ot{"opts"}}, @{$$rt{"opts"}}, $fs);
|
||||
$cmd = join " ", @_;
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
} else {
|
||||
@_ = ($arclog, qw(-d -d -d), @{$$kt{"opts"}},
|
||||
@{$$ot{"opts"}}, @{$$rt{"opts"}}, "-",
|
||||
catfile($WORKDIR, $logfile));
|
||||
$cmd = join(" ", @_) . " < " . $fs;
|
||||
($retno, $out, $err) = runcmd frread $fs, @_;
|
||||
}
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
if (!$$kt{"del"}) {
|
||||
$fr = $fs;
|
||||
$frb = basename($fr);
|
||||
$cef{$frb} = !$$kt{"tmp"}? $cs:
|
||||
!$$ot{"ok"}? "":
|
||||
$$kt{"tm"}? $cem{$mt}: "";
|
||||
$tef{$frb} = $$st{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
if (!$$ot{"ok"} && $$kt{"tmp"}) {
|
||||
$frb = "$logfile.tmp-arclog";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
$frb = "$logfile.vardump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
foreach my $m (@mle) {
|
||||
$frb = "$logfile.$m" . $$rt{"suf"};
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
$cef{$frb} = &{$$ot{"ce"}}($cof{$frb}, $cem{$m});
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err"
|
||||
unless $$ot{"ok"}? $retno == 0: $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nVariables: $vardump\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nVariables: $vardump\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr}
|
||||
|| ($tef{$fr} eq TYPE_BZIP2 && -z catfile($WORKDIR, $fr));
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nVariables: $vardump\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
skip($$st{"skip"} || $$rt{"skip"}, $_, 1, $@);
|
||||
cleanup $_ || $$st{"skip"} || $$rt{"skip"}, $WORKDIR, ++$tno;
|
||||
die unless $_ || $$st{"skip"} || $$rt{"skip"};
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
266
t/02-several.t
Executable file
266
t/02-several.t
Executable file
@ -0,0 +1,266 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test archiving several log files at once
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
#
|
||||
# This program is free software: you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation, either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
use warnings;
|
||||
use diagnostics;
|
||||
use Test;
|
||||
|
||||
BEGIN { plan tests => 16 }
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use File::Path qw(mkpath rmtree);
|
||||
use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
$tno = 0;
|
||||
|
||||
# 1-16: Archiving several log files at once
|
||||
foreach my $rt (@RESTYPES) {
|
||||
my $skip;
|
||||
$skip = 0;
|
||||
# 1: Source log files listed as the arguments
|
||||
$_ = eval {
|
||||
if ( ($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$rt{"type"} eq TYPE_BZIP2 && nobzip2)) {
|
||||
$skip = 1;
|
||||
return;
|
||||
}
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $mt);
|
||||
my (@st, $fmt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$title = join ", ", "several log files", "all listed as arguments",
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
%_ = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
$mt = pop @mle;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map "$oprfb.$_" . $$rt{"suf"}, @mle;
|
||||
prsrvsrc $WORKDIR;
|
||||
@_ = ($arclog, qw(-d -d -d -o a), @{$$rt{"opts"}}, @fs, $opref);
|
||||
$cmd = join(" ", @_);
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = (${$cem[$k]}{$mt}, ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
$cef{$frb} = $cof{$frb}
|
||||
. join "", map(exists $$_{$m}? $$_{$m}: "", @cem);
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno == 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
skip($skip, $_, 1, $@);
|
||||
cleanup $_ || $skip, $WORKDIR, ++$tno;
|
||||
|
||||
# 2-4: One of the source log files is read from STDIN
|
||||
# The file type at STDIN
|
||||
foreach my $ststdin (@SRCTYPES) {
|
||||
$skip = 0;
|
||||
$_ = eval {
|
||||
if ( ($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$rt{"type"} eq TYPE_BZIP2 && nobzip2)
|
||||
|| ($$ststdin{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$ststdin{"type"} eq TYPE_BZIP2 && nobzip2)) {
|
||||
$skip = 1;
|
||||
return;
|
||||
}
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $stdin);
|
||||
my (@st, $fmt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$title = join ", ", "several log files", "one read from STDIN",
|
||||
"STDIN " . $$ststdin{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
%_ = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
}
|
||||
# Choose the STDIN from the matching compression
|
||||
@_ = grep ${$_{$_}}{"type"} eq $$ststdin{"type"}, (0...$num-1);
|
||||
$stdin = $_[int rand @_];
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map "$oprfb.$_" . $$rt{"suf"}, @mle;
|
||||
prsrvsrc $WORKDIR;
|
||||
@_ = @fs;
|
||||
$_[$stdin] = "-";
|
||||
@_ = ($arclog, qw(-d -d -d -k a -o a), @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_) . " < " . $fs[$stdin];
|
||||
($retno, $out, $err) = runcmd frread $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
$cef{$frb} = $cof{$frb}
|
||||
. join "", map(exists $$_{$m}? $$_{$m}: "", @cem);
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno == 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
skip($skip, $_, 1, $@);
|
||||
cleanup $_ || $skip, $WORKDIR, ++$tno;
|
||||
}
|
||||
}
|
||||
256
t/03-fallback.t
Executable file
256
t/03-fallback.t
Executable file
@ -0,0 +1,256 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test fallback behavior
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
#
|
||||
# This program is free software: you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation, either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
use warnings;
|
||||
use diagnostics;
|
||||
use Test;
|
||||
|
||||
BEGIN { plan tests => 5 }
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use File::Path qw(mkpath rmtree);
|
||||
use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
$tno = 0;
|
||||
|
||||
# 1-4: STDIN keep fall back
|
||||
foreach my $kt (@KEEPTYPES) {
|
||||
next if $$kt{"stdin"} || $$kt{"title"} eq "keep all";
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $stdin);
|
||||
my (@st, $fmt, $rt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
# A random available compression
|
||||
do {
|
||||
$rt = $RESTYPES[int rand @RESTYPES];
|
||||
} until !($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !($$rt{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$title = join ", ", "STDIN keep fall back", $$kt{"title"},
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
$stdin = int rand $num;
|
||||
%_ = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map "$oprfb.$_" . $$rt{"suf"}, @mle;
|
||||
prsrvsrc $WORKDIR;
|
||||
@_ = @fs;
|
||||
$_[$stdin] = "-";
|
||||
@_ = ($arclog, qw(-d -d -d -o a), @{$$kt{"opts"}}, @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_) . " < " . $fs[$stdin];
|
||||
($retno, $out, $err) = runcmd frread $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
$cef{$frb} = $cof{$frb}
|
||||
. join "", map(exists $$_{$m}? $$_{$m}: "", @cem);
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno == 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
}
|
||||
|
||||
# 5: STDIN override ask fall back
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $stdin);
|
||||
my (@st, $fmt, $rt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
# A random available compression
|
||||
do {
|
||||
$rt = $RESTYPES[int rand @RESTYPES];
|
||||
} until !($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !($$rt{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$title = join ", ", "STDIN override ask fall back",
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
$stdin = int rand $num;
|
||||
%_ = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, grep $cof{$_} ne "", keys %cof;
|
||||
prsrvsrc $WORKDIR;
|
||||
@_ = @fs;
|
||||
$_[$stdin] = "-";
|
||||
@_ = ($arclog, qw(-d -d -d -o ask), @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_) . " < " . $fs[$stdin];
|
||||
($retno, $out, $err) = runcmd frread $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cof{$frb}, $$rt{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
308
t/04-errors.t
Executable file
308
t/04-errors.t
Executable file
@ -0,0 +1,308 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test the errors that should be captured.
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
#
|
||||
# This program is free software: you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation, either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
use warnings;
|
||||
use diagnostics;
|
||||
use Test;
|
||||
|
||||
BEGIN { plan tests => 23 }
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use File::Path qw(mkpath rmtree);
|
||||
use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
$tno = 0;
|
||||
|
||||
# 1: STDIN alone
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, $vardump, $logfile);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($fs, $cs, %cem);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = "STDIN alone";
|
||||
$logfile = randword;
|
||||
$fs = catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %cem) = mkrndlog_apache $fs;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
@fle = qw();
|
||||
push @fle, basename($fs);
|
||||
push @fle, "$logfile.vardump";
|
||||
prsrvsrc $WORKDIR;
|
||||
@_ = ($arclog, qw(-d -d -d -c n), "-");
|
||||
$cmd = join(" ", @_) . " < " . $fs;
|
||||
($retno, $out, $err) = runcmd frread $fs, @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
$fr = $fs;
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$frb = "$logfile.vardump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
|
||||
# 2: STDOUT as output prefix
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, $vardump, $logfile);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($fs, $cs, %cem);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = "STDOUT as output prefix";
|
||||
$logfile = randword;
|
||||
$fs = catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %cem) = mkrndlog_apache $fs;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
@fle = qw();
|
||||
push @fle, basename($fs);
|
||||
push @fle, "$logfile.vardump";
|
||||
prsrvsrc $WORKDIR;
|
||||
@_ = ($arclog, qw(-d -d -d -c n), $logfile, "-");
|
||||
$cmd = join " ", @_;
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
$fr = $fs;
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$frb = "$logfile.vardump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
|
||||
# 3: A same log file is specified more than once
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $mt);
|
||||
my (@st, $fmt, $rt, $dup);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$rt = $RESTYPES[int rand @RESTYPES];
|
||||
$title = join ",", "A same log file is specified more than once",
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
%_ = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
$mt = pop @mle;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map basename($_), grep $cof{$_} ne "", keys %cof;
|
||||
prsrvsrc $WORKDIR;
|
||||
$dup = $fs[int rand @fs];
|
||||
$_ = int rand(@fs + 1);
|
||||
@_ = (@fs[0...$_-1], $dup, @fs[$_...$#fs]);
|
||||
@_ = ($arclog, qw(-d -d -d -o a), @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_);
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
next if $cof{$frb} eq "";
|
||||
($cef{$frb}, $tef{$frb}) = ($cof{$frb}, $$rt{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
|
||||
# 4-23: Mixing different formats
|
||||
for (my $i = 0; $i < @LOGFMTS; $i++) {
|
||||
for (my $j = 0; $j < @LOGFMTS; $j++) {
|
||||
next if $i == $j;
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, $swan, @fs, @cs, $opref, $oprfb);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = join ",", "Mixing formats", ${$LOGFMTS[$i]}{"title"},
|
||||
${$LOGFMTS[$j]}{"title"};
|
||||
# 3-5 log files
|
||||
$num = 3 + int rand 3;
|
||||
$swan = 1 + int rand($num - 1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@vardump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
if ($k != $swan) {
|
||||
($cs, $vardump, %_) = &{${$LOGFMTS[$i]}{"sub"}}($fs[$k]);
|
||||
} else {
|
||||
($cs, $vardump, %_) = &{${$LOGFMTS[$j]}{"sub"}}($fs[$k]);
|
||||
}
|
||||
push @cs, $cs;
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
}
|
||||
prsrvsrc $WORKDIR;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
@_ = ($arclog, qw(-d -d -d -c n), @fs, $opref);
|
||||
$cmd = join " ", @_;
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$frb = "$frb.vardump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
die unless $_;
|
||||
}
|
||||
}
|
||||
5
t/99-pod.t
Executable file
5
t/99-pod.t
Executable file
@ -0,0 +1,5 @@
|
||||
#!/usr/bin/perl
|
||||
use Test::More;
|
||||
eval "use Test::Pod 1.00";
|
||||
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
|
||||
all_pod_files_ok();
|
||||
1178
t/_helper.pm
Normal file
1178
t/_helper.pm
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user