|
From: <ssc...@us...> - 2003-07-15 02:11:04
|
Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv16780a
Modified Files:
TestLogger.tst
Log Message:
add test for size limitation of last ten
Index: TestLogger.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestLogger.tst,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TestLogger.tst 13 Jul 2003 02:40:35 -0000 1.2
--- TestLogger.tst 15 Jul 2003 02:11:02 -0000 1.3
***************
*** 64,67 ****
--- 64,92 ----
test_assert_regexp( $last_ten[1], 'test2' );
+ # test size limiting on last ten
+ $l->debug( 'test3' );
+ $l->debug( 'test4' );
+ $l->debug( 'test5' );
+ $l->debug( 'test6' );
+ $l->debug( 'test7' );
+ $l->debug( 'test8' );
+ $l->debug( 'test9' );
+ $l->debug( 'test10' );
+ $l->debug( 'test11' );
+
+ @last_ten = $l->last_ten();
+
+ test_assert_equal( $#last_ten, 9 );
+ test_assert_regexp( $last_ten[0], 'test2' );
+ test_assert_regexp( $last_ten[1], 'test3' );
+ test_assert_regexp( $last_ten[2], 'test4' );
+ test_assert_regexp( $last_ten[3], 'test5' );
+ test_assert_regexp( $last_ten[4], 'test6' );
+ test_assert_regexp( $last_ten[5], 'test7' );
+ test_assert_regexp( $last_ten[6], 'test8' );
+ test_assert_regexp( $last_ten[7], 'test9' );
+ test_assert_regexp( $last_ten[8], 'test10' );
+ test_assert_regexp( $last_ten[9], 'test11' );
+
# Check the time function is working to generate times to the nearest day
test_assert_equal( $l->{today__}, int( time / 86400 ) * 86400 );
***************
*** 85,93 ****
# file gets deleted, this relies on the GNU date program
my $file = $l->debug_filename();
! `date --set='2 days'`;
$l->service();
my $exists = ( -e $file );
test_assert( $exists, "checking that debug file was deleted" );
! `date --set='1 day'`;
$l->service();
$exists = ( -e $file );
--- 110,118 ----
# file gets deleted, this relies on the GNU date program
my $file = $l->debug_filename();
! `date --set='2 days'`;
$l->service();
my $exists = ( -e $file );
test_assert( $exists, "checking that debug file was deleted" );
! `date --set='1 day'`;
$l->service();
$exists = ( -e $file );
|