[popfile-commit] engine/tests TestBayes.tst,1.17,1.18

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

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

Modified Files:
	TestBayes.tst 
Log Message:
Tests for echo_to_dot_

Index: TestBayes.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestBayes.tst,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** TestBayes.tst	27 Jul 2003 19:07:20 -0000	1.17
--- TestBayes.tst	27 Jul 2003 20:00:31 -0000	1.18
***************
*** 551,554 ****
--- 551,668 ----
  test_assert( !defined( $magnet ) );
  
+ # echo_to_dot_
+ 
+ open FILE, ">messages/one.msg";
+ print FILE "From: test\@test.com\n";
+ print FILE "Subject: Your attention please\n\n";
+ print FILE "This is the body\n.\n";
+ close FILE;
+ 
+ # Four possibilities for echo_to_dot_ depending on whether we give
+ # it a client handle, a file handle, both or neither
+ 
+ # neither
+ 
+ open MAIL, "<messages/one.msg";
+ $b->echo_to_dot_( \*MAIL );
+ test_assert( eof( MAIL ) );
+ close MAIL;
+ 
+ # to a handle
+ 
+ open TEMP, ">temp.tmp";
+ open MAIL, "<messages/one.msg";
+ $b->echo_to_dot_( \*MAIL, \*TEMP );
+ test_assert( eof( MAIL ) );
+ close MAIL;
+ close TEMP;
+ 
+ open TEMP, "<temp.tmp";
+ open MAIL, "<messages/one.msg";
+ while ( !eof( MAIL ) && !eof( TEMP ) ) {
+     my $temp = <TEMP>;
+     my $mail = <MAIL>;
+     test_assert_regexp( $temp, $mail );
+ }
+ test_assert( eof( MAIL ) );
+ test_assert( eof( TEMP ) );
+ close MAIL;
+ close TEMP;
+ 
+ # to a file (no dot)
+ 
+ open TEMP, ">temp.tmp";
+ open MAIL, "<messages/one.msg";
+ $b->echo_to_dot_( \*MAIL, undef, \*TEMP );
+ test_assert( eof( MAIL ) );
+ close MAIL;
+ close TEMP;
+ 
+ open TEMP, "<temp.tmp";
+ open MAIL, "<messages/one.msg";
+ while ( !eof( MAIL ) && !eof( TEMP ) ) {
+     my $temp = <TEMP>;
+     my $mail = <MAIL>;
+     last if ( $mail =~ /^./ );
+     test_assert_regexp( $temp, $mail );
+ }
+ test_assert( !eof( MAIL ) );
+ test_assert( eof( TEMP ) );
+ close MAIL;
+ close TEMP;
+ 
+ # both
+ 
+ open TEMP, ">temp.tmp";
+ open TEMP2, ">temp2.tmp";
+ open MAIL, "<messages/one.msg";
+ $b->echo_to_dot_( \*MAIL, \*TEMP2, \*TEMP );
+ test_assert( eof( MAIL ) );
+ close MAIL;
+ close TEMP;
+ 
+ open TEMP, "<temp.tmp";
+ open TEMP2, "<temp2.tmp";
+ open MAIL, "<messages/one.msg";
+ while ( !eof( MAIL ) && !eof( TEMP ) && !eof( TEMP2 ) ) {
+     my $temp = <TEMP>;
+     my $temp2 = <TEMP>;
+     my $mail = <MAIL>;
+     test_assert_regexp( $temp2, $mail );
+     last if ( $mail =~ /^./ );
+     test_assert_regexp( $temp, $mail );
+ }
+ test_assert( !eof( MAIL ) );
+ test_assert( eof( TEMP ) );
+ test_assert( !eof( TEMP2 ) );
+ close MAIL;
+ close TEMP;
+ close TEMP2;
+ 
+ # to a file (no dot) with before string
+ 
+ open TEMP, ">temp.tmp";
+ open MAIL, "<messages/one.msg";
+ $b->echo_to_dot_( \*MAIL, undef, \*TEMP, "before\n" );
+ test_assert( eof( MAIL ) );
+ close MAIL;
+ close TEMP;
+ 
+ open TEMP, "<temp.tmp";
+ open MAIL, "<messages/one.msg";
+ while ( !eof( MAIL ) && !eof( TEMP ) ) {
+     my $temp = <TEMP>;
+     my $mail = <MAIL>;
+     if ( $mail =~ /^./ ) {
+         test_assert_regexp( $temp, 'before' );
+         last;
+     }
+     test_assert_regexp( $temp, $mail );
+ }
+ test_assert( !eof( MAIL ) );
+ test_assert( eof( TEMP ) );
+ close MAIL;
+ close TEMP;
+ 
  # TODO test that stop writes the parameters to disk