BEGIN {print "1..15\n";}
END {print "not ok 1\n" unless $loaded;}
use Logfile::Rotate;
$loaded = 1;
print "ok 1\n";
use File::Copy;
###############################################################################
# T E S T S T R A I G H T R O T A T I O N
###############################################################################
my $i = 2;
$t1 = sub { print "test 1 @_\n"; };
$t2 = sub { print "test 2 @_\n"; };
my @subs = ($t1, $t2);
$|=1;
while ($sub = pop @subs) {
my $cnt = 3;
my $file_no = 1;
copy('t/rotate.log', 't/rotate.tmp');
print "not "
unless $log = new Logfile::Rotate( File => 't/rotate.tmp',
Count => $cnt ,
Post => $sub,
Gzip => 'no' );
print "ok ",$i++,"\n";
while($cnt-- > 0) {
$log->rotate() or print "not ";
print "ok ",$i++,"\n";
my $f = "t/rotate.tmp." . $file_no++;
print "not "
unless ( -f $f );
print "ok ",$i++,"\n";
copy('t/rotate.log', 't/rotate.tmp');
}
while($file_no-- > 0) {
my $f = "t/rotate.tmp." . $file_no;
unlink $f;
}
unlink('t/rotate.tmp');
}
1;