[popfile-commit] engine bayes.pl,1.20,1.21 tests.pl,1.18,1.19

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

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

Modified Files:
	bayes.pl tests.pl 
Log Message:
Add colorization test and improve TestMailParse to bring up to 91% coverage... will get to 100% tomorrow

Index: bayes.pl
===================================================================
RCS file: /cvsroot/popfile/engine/bayes.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** bayes.pl	9 Jul 2003 21:53:19 -0000	1.20
--- bayes.pl	12 Jul 2003 06:17:03 -0000	1.21
***************
*** 44,52 ****
--- 44,58 ----
      $c->load_configuration();
  
+ $b->config_( 'corpus', 'tests/corpus' );
      $b->start();
  
+ $b->{parser__}->{color__} = 1;
+ $b->{parser__}->{bayes__} = $b;
+ 
      my @files   = glob $ARGV[0];
      foreach my $file (@files) {
          print "$file is '" . $b->classify($file) . "'\n";
+         print $b->{parser__}->parse_file($file);
+ 
      }
  

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** tests.pl	11 Jul 2003 21:53:16 -0000	1.18
--- tests.pl	12 Jul 2003 06:17:03 -0000	1.19
***************
*** 173,176 ****
--- 173,177 ----
  	if ( !defined( eval $suite ) ) {
              print "Error in $test: $@";
+             $code = 1;
  	}