[popfile-commit] engine/tests TestLogger.tst,1.2,1.3

[<ssc...@us...>]

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 );