[popfile-commit] engine/tests TestBayes.tst,1.9,1.10 TestHTML.tst,1.1,1.2

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

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

Modified Files:
	TestBayes.tst TestHTML.tst 
Log Message:
Restored POPFile test suite to working order, note that many tests are currently failing and need to be udpated, I am on this.  Also added code to detect the Camouflage spam trick by using Pythagoras on the two RGB values

Index: TestBayes.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestBayes.tst,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** TestBayes.tst	16 Apr 2003 01:26:45 -0000	1.9
--- TestBayes.tst	18 Jun 2003 20:34:55 -0000	1.10
***************
*** 9,17 ****
--- 9,40 ----
  use Classifier::Bayes;
  use POPFile::Configuration;
+ use POPFile::MQ;
+ use POPFile::Logger;
  
  # Load the test corpus
  my $c = new POPFile::Configuration;
+ my $mq = new POPFile::MQ;
+ my $l = new POPFile::Logger;
  my $b = new Classifier::Bayes;
+ 
+ $c->configuration( $c );
+ $c->mq( $mq );
+ $c->logger( $l );
+ 
+ $l->configuration( $c );
+ $l->mq( $mq );
+ $l->logger( $l );
+ 
+ $l->initialize();
+ 
+ $mq->configuration( $c );
+ $mq->mq( $mq );
+ $mq->logger( $l );
+ 
  $b->configuration( $c );
+ $b->mq( $mq );
+ $b->logger( $l );
+ 
+ 
  $b->initialize();
  $b->config_( 'corpus', 'tests/corpus' );

Index: TestHTML.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestHTML.tst,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestHTML.tst	27 Feb 2003 00:55:25 -0000	1.1
--- TestHTML.tst	18 Jun 2003 20:34:55 -0000	1.2
***************
*** 8,17 ****
  
  use UI::HTML;
  
! my $c = new UI::HTML;
  
! test_assert_equal( $c->url_encode( ']' ), '%5d' );
! test_assert_equal( $c->url_encode( '[' ), '%5b' );
! test_assert_equal( $c->url_encode( '[]' ), '%5b%5d' );
! test_assert_equal( $c->url_encode( '[foo]' ), '%5bfoo%5d' );
  
--- 8,42 ----
  
  use UI::HTML;
+ use POPFile::Configuration;
+ use POPFile::MQ;
+ use POPFile::Logger;
  
! my $c = new POPFile::Configuration;
! my $mq = new POPFile::MQ;
! my $l = new POPFile::Logger;
  
! $c->configuration( $c );
! $c->mq( $mq );
! $c->logger( $l );
! 
! $l->configuration( $c );
! $l->mq( $mq );
! $l->logger( $l );
! 
! $l->initialize();
! 
! $mq->configuration( $c );
! $mq->mq( $mq );
! $mq->logger( $l );
! 
! my $h = new UI::HTML;
! 
! $h->configuration( $c );
! $h->mq( $mq );
! $h->logger( $l );
! 
! test_assert_equal( $h->url_encode_( ']' ), '%5d' );
! test_assert_equal( $h->url_encode_( '[' ), '%5b' );
! test_assert_equal( $h->url_encode_( '[]' ), '%5b%5d' );
! test_assert_equal( $h->url_encode_( '[foo]' ), '%5bfoo%5d' );