[popfile-commit] engine/Test SimpleProxy.pm,1.5,1.6

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

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

Modified Files:
	SimpleProxy.pm 
Log Message:
Add tests for Proxy::Proxy::flush_extra_ and Proxy::Proxy receipt and posting of messages from child on pipe

Index: SimpleProxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Test/SimpleProxy.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** SimpleProxy.pm	26 Jul 2003 15:40:19 -0000	1.5
--- SimpleProxy.pm	26 Jul 2003 16:14:08 -0000	1.6
***************
*** 59,63 ****
      if ( defined( $self->{remote_server__} ) ) {
          close $self->{remote_server__};
!         close $self->{remote_client__};
          undef $self->{remote_server__};
          undef $self->{remote_selector__};
--- 59,63 ----
      if ( defined( $self->{remote_server__} ) ) {
          close $self->{remote_server__};
!         close $self->{remote_client__} if ( defined( $self->{remote_client__} ) );
          undef $self->{remote_server__};
          undef $self->{remote_selector__};
***************
*** 150,153 ****
--- 150,159 ----
  
      $self->log_( "Child started" );
+ 
+     # Used to test that we get pipe messages
+ 
+     print $pipe "CLASS:classification$eol";
+     print $pipe "NEWFL:newfile$eol";
+     print $pipe "LOGIN:username$eol";
  
      # Connect to the simple server that