[popfile-commit] engine coverage.pl,1.2,1.3 tests.pl,1.21,1.22

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

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

Modified Files:
	coverage.pl tests.pl 
Log Message:
Fix hanging problem with TestProxy

Index: coverage.pl
===================================================================
RCS file: /cvsroot/popfile/engine/coverage.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** coverage.pl	15 Jul 2003 01:45:36 -0000	1.2
--- coverage.pl	21 Jul 2003 19:03:51 -0000	1.3
***************
*** 37,41 ****
      open SOURCE_FILE, "<../$module.pm";
      open LINE_DATA, "<$file";
-     #$module = $file;
  
      my $current_line = 0;
--- 37,40 ----
***************
*** 59,63 ****
          } elsif ( $state =~ /0/ ) {
              $count{$module}{total_executable_lines} += 1;
!         } else {
          }
      }
--- 58,62 ----
          } elsif ( $state =~ /0/ ) {
              $count{$module}{total_executable_lines} += 1;
! #            print "$module.pm:$current_line $_";
          }
      }
***************
*** 73,77 ****
      my $total_executed = 0;
      foreach my $line ( 0 .. $#{$count{$module}{executed}} ) {
!         $total_executed++ if ($count{$module}{executed}[$line]);
      }
  
--- 72,78 ----
      my $total_executed = 0;
      foreach my $line ( 0 .. $#{$count{$module}{executed}} ) {
!         if ($count{$module}{executed}[$line]) {
!             $total_executed += 1;
! 	}
      }
  

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** tests.pl	13 Jul 2003 05:21:21 -0000	1.21
--- tests.pl	21 Jul 2003 19:03:51 -0000	1.22
***************
*** 45,49 ****
   		}
   		$test_failures += 1;
!  	}
  	
   	flush STDOUT;
--- 45,51 ----
   		}
   		$test_failures += 1;
!  	} else {
! #            print "Test pass at $file:$line\n";
!         }
  	
   	flush STDOUT;