[popfile-commit] engine/Test SimpleProxy.pm,1.11,1.12

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

Update of /cvsroot/popfile/engine/Test
In directory sc8-pr-cvs1:/tmp/cvs-serv15349/Test

Modified Files:
	SimpleProxy.pm 
Log Message:
BROUGHT TEST SUITE TO 100% AFTER BERKELEYDB CHANGE

HTML.pm:

Small modification to the way that showing an individual bucket works 
so that when it is cleared we show the same page with a zero word 
count and no words.

Bayes.pm:

Mechanism for marking a bucket deleted even though the files in
its directory have not all disappeared.  This is needed because if
a user deletes a bucket while a download is occurring POPFile will
have a connection open to the db which will prevent it from getting
deleted.  Now have a helper delete_bucket_files__ that will do the
delete and add the special delete file as needed.

clear_bucket can't rely on being able to remove the table.db for
the same reasons as the above, so change the way in which it operates.

TestBayes.tst:

Tests to cover upgrading of corpus tables, fork handling and deal
with the fact that the corpus is no longer in flat files.  

TestHTML.tst:

Have to call prefork/forked/postfork when forking.  Test the new
force_fork UI elements.  

TestPOP3.tst:

Have to call prefork/forked/postfork when forking.

TestProxy.tst:

Add code to test the forking/non-forking version of the proxy code.















Index: SimpleProxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Test/SimpleProxy.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** SimpleProxy.pm	31 Jul 2003 16:32:21 -0000	1.11
--- SimpleProxy.pm	15 Sep 2003 14:55:36 -0000	1.12
***************
*** 165,169 ****
  sub child__
  {
!     my ( $self, $client, $download_count, $pipe ) = @_;
  
      $self->log_( "Child started" );
--- 165,169 ----
  sub child__
  {
!     my ( $self, $client, $download_count, $pipe, $ppipe, $pid ) = @_;
  
      $self->log_( "Child started" );
***************
*** 174,177 ****
--- 174,178 ----
      print $pipe "NEWFL:newfile$eol";
      print $pipe "LOGIN:username$eol";
+     $self->yield_( $ppipe, $pid );
  
      # Connect to the simple server that