[popfile-commit] engine tests.pl,1.50,1.51

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

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

Modified Files:
	tests.pl 
Log Message:
Change Log

1. Added new subroutine

  Classifier/Bayes.pm
    is_admin_session    check if the session is admin's

2. Use db_()->quote instead of hardcoded single quotes ("'")

  Classifier/Bayes.pm

3. Fixed almost of the test scripts to pass

  Classifier/Bayes.pm
  Classifier/MailParse.pm

  POPFile/History.pm

  Proxy/POP3.pm

  UI/HTML.pm
  UI/HTTP.pm

  tests/TestBayes.tst
  tests/TestBayesScript.tst
  tests/TestConfiguration.tst
  tests/TestHTML.script
  tests/TestHTML.tst
  tests/TestHistory.tst
  tests/TestMailParse.tst
  tests/TestMailParse015.clr
  tests/TestMailParse019.clr
  tests/TestNihongo002.wrd
  tests/TestNihongo008.wrd
  tests/TestNihongo016.wrd
  tests/TestNihongo017.wrd
  tests/TestNihongo021.qrn

4. Added new tests for the new subroutines

  tests/TestBayes.tst
    get_user_id_from_session
    get_user_name_from_session
    create_user (with cloning)
    initialize_users_password
    change_users_password
    get_user_name_from_id
    is_admin_session

5. Added new tests for the Japanese parsers (internal/MeCab)

  tests/TestMailParse.tst

6. make test now outputs the test results in STDERR instead of STDOUT
7. Snip long results

  tests.pl 


Current state of the test suite:

    TestBayesScript                 PASS
    TestBayes                       PASS
    TestConfiguration               PASS *
    TestHistory                     PASS *
    TestHTML                        PASS *
    TestHTTP                        PASS
    TestIMAP               not tested yet
    TestInsertScript                PASS
    TestLogger                      PASS
    TestMailParse                   PASS
    TestModule                      PASS
    TestMQ                          PASS
    TestMutex                       PASS
    TestPipeScript                  PASS
    TestPOP3                fail (horribly)
    TestProxy                       PASS
    TestWordMangle                  PASS
    TestXMLRPC                      PASS (but child process does not terminate)

    * :  needs to add tests for multi user support

TODO

1. multi user mode tests are needed

  tests/TestConfiguration
  tests/TestHistory
  tests/HTML

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** tests.pl	6 Feb 2006 15:09:54 -0000	1.50
--- tests.pl	5 Apr 2008 16:50:44 -0000	1.51
***************
*** 111,115 ****
                  }
                  $test_failures += 1;
!             print "Test fail at $file:$line ($test) ($context)\n";
          } else {
  #            print "Test pass at $file:$line ($test) ($context)\n";
--- 111,116 ----
                  }
                  $test_failures += 1;
!             print "Test fail at $file:$line ($test)";
!             print " ($context)\n" if ( defined($context) );
          } else {
  #            print "Test pass at $file:$line ($test) ($context)\n";
***************
*** 168,172 ****
      $expected = '' unless (defined($expected));
  
!     if ( !( $expected =~ /[^0-9]/ ) && !( $test =~ /[^0-9]/ )) {
  
          # This int() and is so that we don't get bitten by odd
--- 169,174 ----
      $expected = '' unless (defined($expected));
  
!     if ( ( $expected ne '' ) && ( $test ne '' ) &&
!          !( $expected =~ /[^0-9]/ ) && !( $test =~ /[^0-9]/ ) ) {
  
          # This int() and is so that we don't get bitten by odd
***************
*** 184,187 ****
--- 186,194 ----
      $expected =~ s/\012/0x0A/;
  
+     # snip long result
+ 
+     $test = substr( $test, 0, 100 ) . '...' if ( length( $test ) > 100 );
+     $test = substr( $expected, 0, 100 ) . '...' if ( length( $expected ) > 100 );
+ 
      test_report( $result, "expecting [$expected] and got [$test]", $file, $line, $context );
  
***************
*** 212,215 ****
--- 219,227 ----
      my $result = ( $test =~ /$expected/m );
  
+     # snip long result
+ 
+     $test = substr( $test, 0, 100 ) . '...' if ( length( $test ) > 100 );
+     $test = substr( $expected, 0, 100 ) . '...' if ( length( $expected ) > 100 );
+ 
      test_report( $result, "expecting to match [$expected] and got [$test]", $file, $line, $context );
  
***************
*** 284,301 ****
  
          if ( !defined( $ran ) ) {
!             print "Error in $test: $@";
              $code = 1;
          }
  
          if ( $test_failures > $current_error_count ) {
!                 print "failed (" . ( $test_count - $current_test_count ) . " ok, " . ( $test_failures - $current_error_count ) . " failed)\n";
!                 print $fail_messages . "\n";
                  $code = 1;
          } else {
!                 print "ok (" . ( $test_count - $current_test_count ) . " ok)";
          }
      }
  }
  
! print "\n\n$test_count tests, " . ( $test_count - $test_failures ) . " ok, $test_failures failed\n\n";
  exit $code;
--- 296,314 ----
  
          if ( !defined( $ran ) ) {
!             print STDERR "Error in $test: $@";
              $code = 1;
          }
  
          if ( $test_failures > $current_error_count ) {
!                 print STDERR "failed (" . ( $test_count - $current_test_count ) . " ok, " . ( $test_failures - $current_error_count ) . " failed)\n";
!                 print STDERR $fail_messages . "\n";
                  $code = 1;
          } else {
!                 print STDERR "ok (" . ( $test_count - $current_test_count ) . " ok)";
          }
      }
  }
  
! print STDERR "\n\n$test_count tests, " . ( $test_count - $test_failures ) . " ok, $test_failures failed\n\n";
! print "\n";
  exit $code;