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;
}
|
