[popfile-commit] engine/tests TestLogger.tst,1.5,1.6 TestModule.tst,1.6,1.7

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv31121/tests

Modified Files:
	TestLogger.tst TestModule.tst 
Log Message:
Make TICKD messages get sent every 6 hours; update test suite and use TICKD to delete log files

Index: TestLogger.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestLogger.tst,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TestLogger.tst	8 Sep 2003 18:03:58 -0000	1.5
--- TestLogger.tst	15 Oct 2003 16:53:15 -0000	1.6
***************
*** 116,120 ****
  
  # Check that we get a tick when a day passes
! $l->{today__} -= 86400;
  $l->service();
  
--- 116,120 ----
  
  # Check that we get a tick when a day passes
! $l->{last_tickd__} -= 86400;
  $l->service();
  
***************
*** 127,134 ****
--- 127,136 ----
  `date --set='2 days'`;
  $l->service();
+ $mq->service();
  my $exists = ( -e $file );
  test_assert( $exists, "checking that debug file was deleted" );
  `date --set='1 day'`;
  $l->service();
+ $mq->service();
  $exists = ( -e $file );
  test_assert( !$exists, "checking that debug file was deleted" );

Index: TestModule.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestModule.tst,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** TestModule.tst	13 Oct 2003 20:23:41 -0000	1.6
--- TestModule.tst	15 Oct 2003 16:53:15 -0000	1.7
***************
*** 88,91 ****
--- 88,92 ----
  
  my $l = new POPFile::Logger;
+ $l->mq( $mq );
  $m->logger( $l );
  $l->configuration( $c );