[popfile-commit] engine/tests TestPOP3.tst,1.11,1.12

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

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

Modified Files:
	TestPOP3.tst 
Log Message:
binmode all file reads to bring pass rate to 100% in ActivePerl

Index: TestPOP3.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestPOP3.tst,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** TestPOP3.tst	20 Aug 2003 04:29:15 -0000	1.11
--- TestPOP3.tst	23 Aug 2003 19:01:39 -0000	1.12
***************
*** 176,179 ****
--- 176,180 ----
  
                   open FILE, "<$messages[$index]";
+                  binmode FILE;
                   while ( <FILE> ) {
                       print $client $_;
***************
*** 196,199 ****
--- 197,201 ----
  
                   open FILE, "<$messages[$index]";
+                  binmode FILE;
                   while ( <FILE> ) {
                       print $client $_;
***************
*** 531,534 ****
--- 533,537 ----
  
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          while ( <FILE> ) {
              my $line = $_;
***************
*** 557,561 ****
--- 560,566 ----
  
          test_assert( open FILE, "<$messages[0]" );
+         binmode FILE;
          test_assert( open HIST, "<messages/popfile1=1.msg" );
+         binmode HIST;
          while ( ( my $fl = <FILE> ) && ( my $ml = <HIST> ) ) {
              $fl =~ s/[\r\n]//g;
***************
*** 617,620 ****
--- 622,626 ----
  
          test_assert( open FILE, "<$messages[4]" );
+         binmode FILE;
          my $headers   = 1;
          while ( ( my $line = <FILE> ) && ( $countdown > 0 ) ) {
***************
*** 656,659 ****
--- 662,666 ----
  
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          while ( <FILE> ) {
              my $line = $_;
***************
*** 682,686 ****
--- 689,695 ----
  
          test_assert( open FILE, "<$messages[6]" );
+         binmode FILE;
          test_assert( open HIST, "<messages/popfile1=7.msg" );
+         binmode HIST;
          while ( ( my $fl = <FILE> ) && ( my $ml = <HIST> ) ) {
              $fl =~ s/[\r\n]//g;
***************
*** 736,739 ****
--- 745,749 ----
          $cam =~ s/msg$/cam/;
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          $headers   = 1;
          while ( ( my $line = <FILE> ) && ( $countdown > 0 ) ) {
***************
*** 759,763 ****
--- 769,775 ----
  
          test_assert( open FILE, "<$messages[7]" );
+         binmode FILE;
          test_assert( open HIST, "<messages/popfile2=8.msg" );
+         binmode HIST;
          while ( ( my $fl = <FILE> ) && ( my $ml = <HIST> ) ) {
              $fl =~ s/[\r\n]//g;
***************
*** 785,788 ****
--- 797,801 ----
          $cam =~ s/msg$/cam/;
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          $headers   = 1;
          while ( my $line = <FILE> ) {
***************
*** 807,810 ****
--- 820,824 ----
  
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          while ( <FILE> ) {
              my $line = $_;
***************
*** 826,830 ****
--- 840,846 ----
  
          test_assert( open FILE, "<$messages[8]" );
+         binmode FILE;
          test_assert( open HIST, "<messages/popfile2=9.msg" );
+         binmode HIST;
          while ( ( my $fl = <FILE> ) && ( my $ml = <HIST> ) ) {
              $fl =~ s/[\r\n]//g;
***************
*** 850,853 ****
--- 866,870 ----
          $cam =~ s/msg$/cam/;
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          $headers   = 1;
          while ( my $line = <FILE> ) {
***************
*** 874,877 ****
--- 891,895 ----
          $cam =~ s/msg$/cam/;
          test_assert( open FILE, "<$cam" );
+         binmode FILE;
          $headers   = 1;
          while ( my $line = <FILE> ) {