[popfile-commit] engine/tests TestMailParse.tst,1.5,1.6

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	TestMailParse.tst 
Log Message:
some more test fixes

Index: TestMailParse.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestMailParse.tst,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TestMailParse.tst	25 Feb 2003 02:06:54 -0000	1.5
--- TestMailParse.tst	29 Mar 2003 00:26:55 -0000	1.6
***************
*** 26,107 ****
  $cl->{htmlbackcolor} = $cl->map_color( 'white' );
  $cl->{htmlfontcolor} = $cl->map_color( 'black' );
! $cl->{words}         = {};
  $cl->add_line( 'this is a test of,adding words: from a line of text!', 0, '' );
! test_assert_equal( $cl->{words}{test},   1 );
! test_assert_equal( $cl->{words}{adding}, 1 );
! test_assert_equal( $cl->{words}{words},  1 );
! test_assert_equal( $cl->{words}{line},   1 );
! test_assert_equal( $cl->{words}{text},   1 );
  $cl->add_line( 'adding', 0, '' );
! test_assert_equal( $cl->{words}{adding}, 2 );
  
  # Check that we correctly handle spaced out and dotted word
! $cl->{words}         = {};
  $cl->add_line( 'T H I S  T E X T  I S  S P A C E D alot', 0, '' );
! test_assert_equal( $cl->{words}{text},   1 );
! test_assert_equal( $cl->{words}{spaced}, 1 );
! test_assert_equal( $cl->{words}{alot},   1 );
! $cl->{words}         = {};
  $cl->add_line( 'offer a full 90 day m.oney b.ack g.uarantee.  If any customer is not. C.lick b.elow f.or m.ore i.nformation, it\'s f.r.e.e.', 0, '' );
! test_assert_equal( $cl->{words}{offer},     1 );
! test_assert_equal( $cl->{words}{full},      1 );
! test_assert_equal( $cl->{words}{money},     1 );
! test_assert_equal( $cl->{words}{back},      1 );
! test_assert_equal( $cl->{words}{customer},  1 );
! test_assert_equal( $cl->{words}{'trick:dottedwords'}, 6 );
! test_assert_equal( $cl->{words}{click},     1 );
! test_assert_equal( $cl->{words}{below},     1 );
! test_assert_equal( $cl->{words}{more},      1 );
  
  # Check discovery of font color
! $cl->{htmlfontcolor} = '';
  test_assert_equal( $cl->parse_html( '<font color="white">' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor}, $cl->map_color( 'white' ) );
! $cl->{htmlfontcolor} = '';
  test_assert_equal( $cl->parse_html( '<font color=red>' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor}, $cl->map_color( 'red' ) );
! $cl->{htmlfontcolor} = '';
  test_assert_equal( $cl->parse_html( '<font color=#00ff00>' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor}, $cl->map_color( 'green' ) );
! $cl->{htmlfontcolor} = '';
  test_assert_equal( $cl->parse_html( '<font color=#00ff00></font>' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor}, $cl->map_color( 'black' ) );
  
  # Check comment detection
! $cl->{words}         = {};
  test_assert_equal( $cl->parse_html( '<!-- foo -->' ), 0 );
  test_assert_equal( $cl->parse_html( '<!-- -->' ), 0 );
  test_assert_equal( $cl->parse_html( '<!---->' ), 0 );
! test_assert_equal( $cl->{words}{'html:comment'}, 3 );
  # Check that we don't think the DOCTYPE is a comment
  test_assert_equal( $cl->parse_html( '<!DOCTYPE >' ), 0 );
! # test_assert_equal( $cl->{words}{'html:comment'}, 3 );
  
  # Check invisible ink detection
! $cl->{htmlfontcolor} = '';
! $cl->{words}         = {};
  $cl->{in_html_tag}   = 0;
  test_assert_equal( $cl->parse_html( '<body bgcolor="#ffffff">hello<font color=white>invisible</font>visible</body>  ' ), 0 );
! test_assert_equal( $cl->{words}{hello},     1 );
! test_assert_equal( $cl->{words}{visible},   1 );
! test_assert_equal( defined( $cl->{words}{invisible} ), '' );
! $cl->{htmlfontcolor} = '';
! $cl->{words}         = {};
  $cl->{in_html_tag}   = 0;
  test_assert_equal( $cl->parse_html( '   <body bgcolor="#ffffff">  hello<font color=white>' ), 0 );
  test_assert_equal( $cl->parse_html( '  invisible </font>'                                ), 0 );
  test_assert_equal( $cl->parse_html( 'visible</body>'                                  ), 0 );
! test_assert_equal( $cl->{words}{hello},     1 );
! test_assert_equal( $cl->{words}{visible},   1 );
! test_assert_equal( defined( $cl->{words}{invisible} ), '' );
! $cl->{htmlfontcolor} = '';
! $cl->{words}         = {};
  $cl->{in_html_tag}   = 0;
  test_assert_equal( $cl->parse_html( '<body bgcolor="#ffffff">hello  <font' ), 1 );
  test_assert_equal( $cl->parse_html( 'color=white>invisible </font>'       ), 0 );
  test_assert_equal( $cl->parse_html( 'visible    </body>'                     ), 0 );
! test_assert_equal( $cl->{words}{hello},     1 );
! test_assert_equal( $cl->{words}{visible},   1 );
! test_assert_equal( defined( $cl->{words}{invisible} ), '' );
  
  # glob the tests directory for files called TestMailParse\d+.msg which consist of messages 
--- 26,107 ----
  $cl->{htmlbackcolor} = $cl->map_color( 'white' );
  $cl->{htmlfontcolor} = $cl->map_color( 'black' );
! $cl->{words__}       = {};
  $cl->add_line( 'this is a test of,adding words: from a line of text!', 0, '' );
! test_assert_equal( $cl->{words__}{test},   1 );
! test_assert_equal( $cl->{words__}{adding}, 1 );
! test_assert_equal( $cl->{words__}{words},  1 );
! test_assert_equal( $cl->{words__}{line},   1 );
! test_assert_equal( $cl->{words__}{text},   1 );
  $cl->add_line( 'adding', 0, '' );
! test_assert_equal( $cl->{words__}{adding}, 2 );
  
  # Check that we correctly handle spaced out and dotted word
! $cl->{words__}         = {};
  $cl->add_line( 'T H I S  T E X T  I S  S P A C E D alot', 0, '' );
! test_assert_equal( $cl->{words__}{text},   1 );
! test_assert_equal( $cl->{words__}{spaced}, 1 );
! test_assert_equal( $cl->{words__}{alot},   1 );
! $cl->{words__}         = {};
  $cl->add_line( 'offer a full 90 day m.oney b.ack g.uarantee.  If any customer is not. C.lick b.elow f.or m.ore i.nformation, it\'s f.r.e.e.', 0, '' );
! test_assert_equal( $cl->{words__}{offer},     1 );
! test_assert_equal( $cl->{words__}{full},      1 );
! test_assert_equal( $cl->{words__}{money},     1 );
! test_assert_equal( $cl->{words__}{back},      1 );
! test_assert_equal( $cl->{words__}{customer},  1 );
! test_assert_equal( $cl->{words__}{'trick:dottedwords'}, 6 );
! test_assert_equal( $cl->{words__}{click},     1 );
! test_assert_equal( $cl->{words__}{below},     1 );
! test_assert_equal( $cl->{words__}{more},      1 );
  
  # Check discovery of font color
! $cl->{htmlfontcolor__} = '';
  test_assert_equal( $cl->parse_html( '<font color="white">' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor__}, $cl->map_color( 'white' ) );
! $cl->{htmlfontcolor__} = '';
  test_assert_equal( $cl->parse_html( '<font color=red>' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor__}, $cl->map_color( 'red' ) );
! $cl->{htmlfontcolor__} = '';
  test_assert_equal( $cl->parse_html( '<font color=#00ff00>' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor__}, $cl->map_color( 'green' ) );
! $cl->{htmlfontcolor__} = '';
  test_assert_equal( $cl->parse_html( '<font color=#00ff00></font>' ), 0 );
! test_assert_equal( $cl->{htmlfontcolor__}, $cl->map_color( 'black' ) );
  
  # Check comment detection
! $cl->{words__}         = {};
  test_assert_equal( $cl->parse_html( '<!-- foo -->' ), 0 );
  test_assert_equal( $cl->parse_html( '<!-- -->' ), 0 );
  test_assert_equal( $cl->parse_html( '<!---->' ), 0 );
! test_assert_equal( $cl->{words__}{'html:comment'}, 3 );
  # Check that we don't think the DOCTYPE is a comment
  test_assert_equal( $cl->parse_html( '<!DOCTYPE >' ), 0 );
! # test_assert_equal( $cl->{words__}{'html:comment'}, 3 );
  
  # Check invisible ink detection
! $cl->{htmlfontcolor__} = '';
! $cl->{words__}         = {};
  $cl->{in_html_tag}   = 0;
  test_assert_equal( $cl->parse_html( '<body bgcolor="#ffffff">hello<font color=white>invisible</font>visible</body>  ' ), 0 );
! test_assert_equal( $cl->{words__}{hello},     1 );
! test_assert_equal( $cl->{words__}{visible},   1 );
! test_assert_equal( defined( $cl->{words__}{invisible} ), '' );
! $cl->{htmlfontcolor__} = '';
! $cl->{words__}         = {};
  $cl->{in_html_tag}   = 0;
  test_assert_equal( $cl->parse_html( '   <body bgcolor="#ffffff">  hello<font color=white>' ), 0 );
  test_assert_equal( $cl->parse_html( '  invisible </font>'                                ), 0 );
  test_assert_equal( $cl->parse_html( 'visible</body>'                                  ), 0 );
! test_assert_equal( $cl->{words__}{hello},     1 );
! test_assert_equal( $cl->{words__}{visible},   1 );
! test_assert_equal( defined( $cl->{words__}{invisible} ), '' );
! $cl->{htmlfontcolor__} = '';
! $cl->{words__}         = {};
  $cl->{in_html_tag}   = 0;
  test_assert_equal( $cl->parse_html( '<body bgcolor="#ffffff">hello  <font' ), 1 );
  test_assert_equal( $cl->parse_html( 'color=white>invisible </font>'       ), 0 );
  test_assert_equal( $cl->parse_html( 'visible    </body>'                     ), 0 );
! test_assert_equal( $cl->{words__}{hello},     1 );
! test_assert_equal( $cl->{words__}{visible},   1 );
! test_assert_equal( defined( $cl->{words__}{invisible} ), '' );
  
  # glob the tests directory for files called TestMailParse\d+.msg which consist of messages 
***************
*** 122,126 ****
      while ( <WORDS> ) {
          if ( /(.+) (\d+)/ ) {
!             test_assert_equal( $cl->{words}{$1}, $2, "$words $1 $2" );
          }
      }
--- 122,126 ----
      while ( <WORDS> ) {
          if ( /(.+) (\d+)/ ) {
!             test_assert_equal( $cl->{words__}{$1}, $2, "$words $1 $2" );
          }
      }