[popfile-commit] engine/Classifier MailParse.pm,1.144,1.145

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

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

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

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.144
retrieving revision 1.145
diff -C2 -d -r1.144 -r1.145
*** MailParse.pm	9 Jul 2003 23:32:50 -0000	1.144
--- MailParse.pm	12 Jul 2003 06:17:03 -0000	1.145
***************
*** 19,23 ****
  # character code
  
! my %entityhash = ('aacute'  => 224,     'Aacute'  => 202,     'Acirc'   => 203,     'acirc'   => 225,
                    'acute'   => 189,     'AElig'   => 207,     'aelig'   => 229,     'Agrave'  => 201,
                    'agrave'  => 223,     'amp'     => 38,      'Aring'   => 206,     'aring'   => 228,
--- 19,23 ----
  # character code
  
! my %entityhash = ('aacute'  => 224,     'Aacute'  => 202,     'Acirc'   => 203,     'acirc'   => 225, # PROFILE BLOCK START
                    'acute'   => 189,     'AElig'   => 207,     'aelig'   => 229,     'Agrave'  => 201,
                    'agrave'  => 223,     'amp'     => 38,      'Aring'   => 206,     'aring'   => 228,
***************
*** 43,47 ****
                    'ugrave'  => 248,     'Ugrave'  => 216,     'uml'     => 168,     'Uuml'    => 220,
                    'uuml'    => 252,     'Yacute'  => 220,     'yacute'  => 252,     'yen'     => 165,
!                   'yuml'    => 254); 
  #----------------------------------------------------------------------------
  # new
--- 43,48 ----
                    'ugrave'  => 248,     'Ugrave'  => 216,     'uml'     => 168,     'Uuml'    => 220,
                    'uuml'    => 252,     'Yacute'  => 220,     'yacute'  => 252,     'yen'     => 165,
!                   'yuml'    => 254); # PROFILE BLOCK STOP
! 
  #----------------------------------------------------------------------------
  # new
***************
*** 101,105 ****
      # map_color value to get canonical color values
  
!     $self->{color_map__} = { 'aliceblue','f0f8ff', 'antiquewhite','faebd7', 'aqua','00ffff', 'aquamarine','7fffd4', 'azure','f0ffff',
          'beige','f5f5dc', 'bisque','ffe4c4', 'black','000000', 'blanchedalmond','ffebcd', 'blue','0000ff', 'blueviolet','8a2be2',
          'brown','a52a2a', 'burlywood','deb887', 'cadetblue','5f9ea0', 'chartreuse','7fff00', 'chocolate','d2691e', 'coral','ff7f50',
--- 102,106 ----
      # map_color value to get canonical color values
  
!     $self->{color_map__} = { 'aliceblue','f0f8ff', 'antiquewhite','faebd7', 'aqua','00ffff', 'aquamarine','7fffd4', 'azure','f0ffff', # PROFILE BLOCK START
          'beige','f5f5dc', 'bisque','ffe4c4', 'black','000000', 'blanchedalmond','ffebcd', 'blue','0000ff', 'blueviolet','8a2be2',
          'brown','a52a2a', 'burlywood','deb887', 'cadetblue','5f9ea0', 'chartreuse','7fff00', 'chocolate','d2691e', 'coral','ff7f50',
***************
*** 125,129 ****
          'skyblue','87ceeb', 'slateblue','6a5acd', 'slategray','708090', 'snow','fffafa', 'springgreen','00ff7f', 'steelblue','4682b4',
          'tan','d2b48c', 'teal','008080', 'thistle','d8bfd8', 'tomato','ff6347', 'turquoise','40e0d0', 'violet','ee82ee', 'wheat','f5deb3',
!         'white','ffffff', 'whitesmoke','f5f5f5', 'yellow','ffff00', 'yellowgreen','9acd32' };
  
      $self->{content_type__} = '';
--- 126,130 ----
          'skyblue','87ceeb', 'slateblue','6a5acd', 'slategray','708090', 'snow','fffafa', 'springgreen','00ff7f', 'steelblue','4682b4',
          'tan','d2b48c', 'teal','008080', 'thistle','d8bfd8', 'tomato','ff6347', 'turquoise','40e0d0', 'violet','ee82ee', 'wheat','f5deb3',
!         'white','ffffff', 'whitesmoke','f5f5f5', 'yellow','ffff00', 'yellowgreen','9acd32' }; # PROFILE BLOCK STOP
  
      $self->{content_type__} = '';
***************
*** 180,185 ****
  {
      my ( $self ) = @_;
!     $self->{htmlcolordistance__} = $self->compute_rgb_distance( $self->{htmlfontcolor__},
!                                                          $self->{htmlbackcolor__} );
  }
  
--- 181,186 ----
  {
      my ( $self ) = @_;
! 
!     $self->{htmlcolordistance__} = $self->compute_rgb_distance( $self->{htmlfontcolor__}, $self->{htmlbackcolor__} );
  }