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
|
