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

[<ssc...@us...>]

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

Modified Files:
      Tag: v0/18/1
	TestMailParse.tst 
Log Message:
add colorized tests, a new test message

Index: TestMailParse.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestMailParse.tst,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -d -r1.5 -r1.5.2.1
*** TestMailParse.tst	25 Feb 2003 02:06:54 -0000	1.5
--- TestMailParse.tst	11 Mar 2003 08:10:40 -0000	1.5.2.1
***************
*** 144,145 ****
--- 144,191 ----
  test_assert_equal( $cl->{to},      'ds...@ct..., ds...@do..., ds...@di..., ds...@di..., ds...@cr..., <ds...@cy...>, <ds...@do...>, <ds...@db...>, <ds...@cs...>, <ds...@cr...>, <ds...@dr...>, <ds...@cv...>, <ds...@dm...>, <ds...@da...>, <ds...@da...>' );
  test_assert_equal( $cl->{cc},      'ds...@dm..., ds...@da..., ds...@cr..., ds...@da..., <ds...@do...>, <ds...@dn...>, <ds...@cy...>, <ds...@cs...>, <ds...@di...>, <ds...@cv...>, <ds...@dr...>, <ds...@cr...>, <ds...@dc...>, <ds...@da...>' );
+ 
+ 
+ #Test colorized output
+ 
+ # glob the tests directory for files called TestMailParse\d+.msg which consist of messages 
+ # to be sent through parse_stream
+ 
+ 
+ use Classifier::Bayes;
+ 
+ $cl->{bayes} = new Classifier::Bayes;
+ #$cl->{bayes}->initialize();
+ 
+ $cl->{color} = 1;
+ $cl->{debug} = 0;
+ 
+ my @color_tests = sort glob 'tests/TestMailParse*.msg';
+ 
+ for my $input_file (@color_tests) {
+     if ( open OUTPUT, ">tests/temp.out" ) {        
+ 	    my $output = $cl->parse_stream($input_file);
+ 	    
+ 	    
+ 	    print OUTPUT $output;	    	    
+ 		close OUTPUT;
+ 
+ 		my $output_file = $input_file;
+ 		$output_file    =~ s/msg/col/;
+ 
+ 		open COL, "<$output_file";
+ 		open OUTPUT, "<tests/temp.out";
+ 		while ( <OUTPUT> ) {
+ 		    my $output_line = $_;
+ 			my $col_line    = <COL>;
+ 			$output_line =~ s/[\r\n]//g;
+ 			$col_line =~ s/[\r\n]//g;
+ 			test_assert_equal( $col_line, $output_line, $input_file );
+ 		}
+ 		
+ 		close COL;
+ 		close OUTPUT;
+ #		rename( 'tests/temp.out', $output_file );
+ 		unlink( 'tests/temp.out' );
+ 		
+     }
+ }
\ No newline at end of file