[popfile-commit] engine/tests TestProxy.tst,1.5,1.6

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

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

Modified Files:
	TestProxy.tst 
Log Message:
Fix hanging problem with TestProxy

Index: TestProxy.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestProxy.tst,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TestProxy.tst	17 Jul 2003 20:14:17 -0000	1.5
--- TestProxy.tst	21 Jul 2003 19:03:52 -0000	1.6
***************
*** 154,158 ****
  $sp->service_server();
  open TEMP, ">temp.tmp";
! $sp->echo_to_regexp_( $sp->{remote_client__}, \*TEMP, qr/TH/ );
  close TEMP;
  open TEMP, "<temp.tmp";
--- 154,158 ----
  $sp->service_server();
  open TEMP, ">temp.tmp";
! $sp->echo_to_regexp_( $client, \*TEMP, qr/TH/ );
  close TEMP;
  open TEMP, "<temp.tmp";
***************
*** 167,171 ****
  close TEMP;
  
! my $handle = $sp->{remote_client__};
  $line = <$handle>;
  test_assert_regexp( $line, 'after' );
--- 167,171 ----
  close TEMP;
  
! my $handle = $client;
  $line = <$handle>;
  test_assert_regexp( $line, 'after' );
***************
*** 179,183 ****
  $sp->service_server();
  open TEMP, ">temp.tmp";
! $sp->echo_to_dot_( $sp->{remote_client__}, \*TEMP );
  close TEMP;
  open TEMP, "<temp.tmp";
--- 179,183 ----
  $sp->service_server();
  open TEMP, ">temp.tmp";
! $sp->echo_to_dot_( $client, \*TEMP );
  close TEMP;
  open TEMP, "<temp.tmp";
***************
*** 204,205 ****
--- 204,207 ----
  
  $sp->reaper();
+ 
+ select( undef, undef, undef, 0.25 );