[popfile-commit] engine/tests IMAP_test_server.pl, 1.7, 1.8 TestBayes.tst, 1.67, 1.68 TestIMAP.tst, 1.14, 1.15

[naoki i. <am...@us...>]

Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13909/tests

Modified Files:
	IMAP_test_server.pl TestBayes.tst TestIMAP.tst 
Log Message:
Fixed some tests to pass

Index: TestIMAP.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestIMAP.tst,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** TestIMAP.tst	28 Apr 2008 11:48:59 -0000	1.14
--- TestIMAP.tst	28 Apr 2008 12:05:57 -0000	1.15
***************
*** 1,5 ****
  # ---------------------------------------------------------------------------------------------
  #
! # Tests for POP3.pm
  #
  # Copyright (c) 2003-2006 John Graham-Cumming
--- 1,5 ----
  # ---------------------------------------------------------------------------------------------
  #
! # Tests for IMAP.pm
  #
  # Copyright (c) 2003-2006 John Graham-Cumming

Index: IMAP_test_server.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests/IMAP_test_server.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** IMAP_test_server.pl	14 Apr 2008 10:09:09 -0000	1.7
--- IMAP_test_server.pl	28 Apr 2008 12:05:57 -0000	1.8
***************
*** 463,468 ****
      my $new_uid = $uidnext{ $folder };
      uid_next( $folder, $uidnext{ $folder }+1 );
!     debug( "Trying to copy TestMailParse$msg.msg to $spool/$folder/$new_uid" );
!     copy "TestMailParse$msg.msg", "$spool/$folder/$new_uid";
  }
  
--- 463,468 ----
      my $new_uid = $uidnext{ $folder };
      uid_next( $folder, $uidnext{ $folder }+1 );
!     debug( "Trying to copy TestMails/TestMailParse$msg.msg to $spool/$folder/$new_uid" );
!     copy "TestMails/TestMailParse$msg.msg", "$spool/$folder/$new_uid";
  }
  

Index: TestBayes.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestBayes.tst,v
retrieving revision 1.67
retrieving revision 1.68
diff -C2 -d -r1.67 -r1.68
*** TestBayes.tst	28 Apr 2008 11:48:59 -0000	1.67
--- TestBayes.tst	28 Apr 2008 12:05:57 -0000	1.68
***************
*** 1391,1395 ****
      $b->clear_magnets( $session );
      $b->create_magnet( $session, 'gomi', 'subject', chr(0xbe) . chr(0xb5) . chr(0xc2) . chr(0xfa) );
!     test_assert_equal( $b->classify( $session, 'TestNihongo021.msg' ), 'gomi' );
  
      test_assert_equal( $b->magnet_count( $session ), 1 );
--- 1391,1395 ----
      $b->clear_magnets( $session );
      $b->create_magnet( $session, 'gomi', 'subject', chr(0xbe) . chr(0xb5) . chr(0xc2) . chr(0xfa) );
!     test_assert_equal( $b->classify( $session, 'TestMails/TestNihongo021.msg' ), 'gomi' );
  
      test_assert_equal( $b->magnet_count( $session ), 1 );
***************
*** 1412,1416 ****
      my %words;
  
!     open WORDS, "<TestNihongo021.wrd";
      while ( <WORDS> ) {
          if ( /(.+) (\d+)/ ) {
--- 1412,1416 ----
      my %words;
  
!     open WORDS, "<TestMails/TestNihongo021.wrd";
      while ( <WORDS> ) {
          if ( /(.+) (\d+)/ ) {
***************
*** 1420,1424 ****
      close WORDS;
  
!     test_assert( $b->add_message_to_bucket( $session, 'gomi', 'TestNihongo021.msg' ) );
  
      foreach my $word (keys %words) {
--- 1420,1424 ----
      close WORDS;
  
!     test_assert( $b->add_message_to_bucket( $session, 'gomi', 'TestMails/TestNihongo021.msg' ) );
  
      foreach my $word (keys %words) {
***************
*** 1439,1443 ****
  
      open CLIENT, ">temp.tmp";
!     open MAIL, "<TestNihongo021.msg";
      my ( $class, $slot ) = $b->classify_and_modify( $session, \*MAIL, \*CLIENT, 0, '', 0, 1 );
      close CLIENT;
--- 1439,1443 ----
  
      open CLIENT, ">temp.tmp";
!     open MAIL, "<TestMails/TestNihongo021.msg";
      my ( $class, $slot ) = $b->classify_and_modify( $session, \*MAIL, \*CLIENT, 0, '', 0, 1 );
      close CLIENT;
***************
*** 1448,1452 ****
  
      open TEMP, "<temp.tmp";
!     open MAIL, "<TestNihongo021.qrn";
      while ( !eof( MAIL ) && !eof( TEMP ) ) {
          my $temp = <TEMP>;
--- 1448,1452 ----
  
      open TEMP, "<temp.tmp";
!     open MAIL, "<TestMails/TestNihongo021.qrn";
      while ( !eof( MAIL ) && !eof( TEMP ) ) {
          my $temp = <TEMP>;
***************
*** 1461,1465 ****
      # remove_message_from_bucket
  
!     test_assert( $b->remove_message_from_bucket( $session, 'gomi', 'TestNihongo021.msg' ) );
      test_assert_equal( $b->get_bucket_word_count( $session, 'gomi' ), 0 );
  
--- 1461,1465 ----
      # remove_message_from_bucket
  
!     test_assert( $b->remove_message_from_bucket( $session, 'gomi', 'TestMails/TestNihongo021.msg' ) );
      test_assert_equal( $b->get_bucket_word_count( $session, 'gomi' ), 0 );