[popfile-commit] engine/tests TestPOP3.tst,1.4,1.5

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

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

Modified Files:
	TestPOP3.tst 
Log Message:
Tests for the CAPA command and a list of TODOs for the completion of the POP3 test suite

Index: TestPOP3.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestPOP3.tst,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TestPOP3.tst	31 Jul 2003 16:32:22 -0000	1.4
--- TestPOP3.tst	31 Jul 2003 22:03:47 -0000	1.5
***************
*** 248,251 ****
--- 248,252 ----
  test_assert( `cp -R corpus.base corpus` == 0 );
  test_assert( `rm -rf corpus/CVS` == 0 );
+ test_assert( `rm -rf messages/*` == 0 );
  
  my $c = new POPFile::Configuration;
***************
*** 454,457 ****
--- 455,461 ----
          # Now get a message that actually exists
  
+         unlink( 'messages/popfile1=1.msg' );
+         unlink( 'messages/popfile1=1.cls' );
+ 
          print $client "RETR 1$eol";
          $result = <$client>;
***************
*** 460,464 ****
          $cam =~ s/msg$/cam/;
  
!         open FILE, "<$cam";
          while ( <FILE> ) {
              my $line = $_;
--- 464,468 ----
          $cam =~ s/msg$/cam/;
  
!         test_assert( open FILE, "<$cam" );
          while ( <FILE> ) {
              my $line = $_;
***************
*** 474,480 ****
          test_assert_equal( $result, ".$eol" );
  
          # TODO check for NEWFL and CLASS messages
  
!         # TODO check that the file was written to the history
  
          # Try an unsuccessful delete
--- 478,510 ----
          test_assert_equal( $result, ".$eol" );
  
+         # This delay is here because Windows was having a little trouble
+         # with the files created by the RETR not existing and I have a little
+         # rest here while Windows wakes from its afternoon nap and writes
+         # the files to disk
+ 
+         select( undef, undef, undef, 0.1 );
+ 
          # TODO check for NEWFL and CLASS messages
  
!         test_assert( -e 'messages/popfile1=1.msg' );
!         test_assert( -e 'messages/popfile1=1.cls' );
! 
!         test_assert( open FILE, "<$messages[0]" );
!         test_assert( open HIST, "<messages/popfile1=1.msg" );
!         while ( ( my $fl = <FILE> ) && ( my $ml = <HIST> ) ) {
!             $fl =~ s/[\r\n]//g;
!             $ml =~ s/[\r\n]//g;
!             test_assert_equal( $fl, $ml );
! 	}
!         test_assert( eof(FILE) );
!         test_assert( eof(HIST) );
!         close FILE;
!         close HIST;
! 
!         my ( $reclassified, $bucket, $usedtobe, $magnet ) = $b->history_read_class( 'popfile1=1.msg' );
!         test_assert( !$reclassified );
!         test_assert_equal( $bucket, 'spam' );
!         test_assert( !defined( $usedtobe ) );
!         test_assert_equal( $magnet, '' );
  
          # Try an unsuccessful delete
***************
*** 490,493 ****
--- 520,541 ----
          test_assert_equal( $result, "+OK Deleted 1$eol" );
  
+         # Check that CAPA command works once we are connected
+ 
+         print $client "CAPA$eol";
+         $result = <$client>;
+         test_assert_equal( $result, "+OK I can handle$eol" );
+         $result = <$client>;
+         test_assert_equal( $result, "AUTH$eol" );
+         $result = <$client>;
+         test_assert_equal( $result, "USER$eol" );
+         $result = <$client>;
+         test_assert_equal( $result, "APOP$eol" );
+         $result = <$client>;
+         test_assert_equal( $result, ".$eol" );
+ 
+         # Check the basic TOP command
+ 
+         # TODO
+ 
          # Check that we echo the remote servers QUIT response
  
***************
*** 497,500 ****
--- 545,556 ----
  
          close $client;
+ 
+         # TODO QUIT straight after connect
+ 
+         # TODO odd command straight after connect gives error
+ 
+         # TODO -pop3_toptoo tests with caching behavior
+ 
+         # TODO SPA/AUTH tests with good and bad remote servers
  
          while ( waitpid( $pid, &WNOHANG ) != $pid ) {