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

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

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

Modified Files:
	TestBayes.tst 
Log Message:
Make the UI pluggable; make SMTP, NNTP and POP3 modules register and handle their own configuration UI; factor the HTTP code out of the UI and into own class; implement XML-RPC interface; make test suite allow selection of tests to run; change the way POPFile reports its startup; make the version string work

Index: TestBayes.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestBayes.tst,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TestBayes.tst	20 Feb 2003 21:36:42 -0000	1.4
--- TestBayes.tst	25 Mar 2003 05:24:58 -0000	1.5
***************
*** 13,29 ****
  my $c = new POPFile::Configuration;
  my $b = new Classifier::Bayes;
! $b->{configuration} = $c;
  $b->initialize();
! $b->{configuration}->{configuration}{corpus} = 'tests/corpus';
  $b->start();
  
  # getting and setting values
! test_assert_equal( $b->get_value( 'personal', 'foo' ), log(1/103) );
! $b->{total}{personal} = 100;
! $b->set_value( 'personal', 'foo', 100 );
! test_assert_equal( $b->get_value( 'personal', 'foo' ), 0 );
! $b->{total}{personal} = 1000;
! $b->set_value( 'personal', 'foo', 100 );
! test_assert_equal( $b->get_value( 'personal', 'foo' ), -log(10) );
  
  # glob the tests directory for files called TestMailParse\d+.msg which consist of messages 
--- 13,35 ----
  my $c = new POPFile::Configuration;
  my $b = new Classifier::Bayes;
! $b->configuration( $c );
  $b->initialize();
! $b->config_( 'corpus', 'tests/corpus' );
  $b->start();
  
  # getting and setting values
! test_assert_equal( $b->get_value_( 'personal', 'foo' ), log(1/103) );
! $b->{total__}{personal} = 100;
! $b->set_value_( 'personal', 'foo', 100 );
! test_assert_equal( $b->get_value_( 'personal', 'foo' ), 0 );
! $b->{total__}{personal} = 1000;
! $b->set_value_( 'personal', 'foo', 100 );
! test_assert_equal( $b->get_value_( 'personal', 'foo' ), -log(10) );
! 
! # test the API functions
! my @buckets = $b->get_buckets();
! test_assert_equal( $buckets[0], '' );
! test_assert_equal( $buckets[1], '' );
! test_assert_equal( $buckets[2], '' );
  
  # glob the tests directory for files called TestMailParse\d+.msg which consist of messages 
***************
*** 49,59 ****
  # to be sent through classify_and_modify
  
! $b->{configuration}->{configuration}{msgdir}  = 'tests/';
! $b->{configuration}->{configuration}{ui_port} = '8080';
! $b->{configuration}->{configuration}{xtc} = 1;
! $b->{configuration}->{configuration}{xpl} = 1;
! $b->{configuration}->{configuration}{localpop} = 1;
! $b->{configuration}->{configuration}{subject} = 1;
! $b->{parameters}{spam}{subject} = 1;
  
  my @modify_tests = sort glob 'tests/TestMailParse*.msg';
--- 55,65 ----
  # to be sent through classify_and_modify
  
! $b->config_( 'msgdir', 'tests/' );
! $b->module_config_( 'html', 'port', 8080 );
! $b->config_( 'xtc',  1 );
! $b->config_( 'xpl',  1 );
! $b->module_config_( 'pop3', 'local', 1 );
! $b->module_config_( 'subject',  1 );
! $b->set_bucket_parameter( 'spam', 'subject', 1 );
  
  my @modify_tests = sort glob 'tests/TestMailParse*.msg';
***************
*** 82,86 ****
  		unlink( 'tests/popfile0=0.msg' );
  		unlink( 'tests/popfile0=0.cls' );
- #		rename( 'tests/temp.out', $output_file );
  		unlink( 'tests/temp.out' );
      }
--- 88,91 ----