
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;
