[popfile-commit] engine/Devel TestCoverage.pm,1.6,1.7

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

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

Modified Files:
	TestCoverage.pm 
Log Message:
Make test suite run from within the tests/ subdirectory to avoid interference with an installed POPFile.  You must now use the Makefile to execute tests.  A outline of class that will be used for proxy testing and improve WordMangle tests

Index: TestCoverage.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Devel/TestCoverage.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** TestCoverage.pm	12 Jul 2003 06:37:46 -0000	1.6
--- TestCoverage.pm	13 Jul 2003 02:40:35 -0000	1.7
***************
*** 46,55 ****
  	for my $file (keys %count)	
  	{
! 	    if ( ( $file =~ /^[^\/]/ ) && ( $file ne 'tests.pl' ) && !( $file =~ /^Test\// ) ) {
  		my $current_line   = 0;
                  my $block_executed = 0;
  		
  		open SOURCE_FILE, "<$file";
! 		
  		# Read in each line of the source file and keep track of whether 
  		# it was executed or not using a new couple of keys in the 
--- 46,55 ----
  	for my $file (keys %count)	
  	{
! 	    if ( ( $file =~ /^[^\/]/ ) && ( $file ne '../tests.pl' ) && !( $file =~ /^..\/\/Test\// ) ) {
  		my $current_line   = 0;
                  my $block_executed = 0;
  		
  		open SOURCE_FILE, "<$file";
! 
  		# Read in each line of the source file and keep track of whether 
  		# it was executed or not using a new couple of keys in the 
***************
*** 90,94 ****
  		                }
  			    } else {
! #                                print "$file:$current_line $_" if ( $file =~/MailParse/);
                              }
  			}
--- 90,94 ----
  		                }
  			    } else {
!                                 print "$file:$current_line $_" if ( $file =~/WordMangle/);
                              }
  			}
***************
*** 103,107 ****
  
  	foreach my $file (sort {$files{$b} <=> $files{$a}} keys %files) {
! 	    print sprintf( "Coverage of %-32s %d%%\n", "$file...", $files{$file});
  	}
  }
--- 103,110 ----
  
  	foreach my $file (sort {$files{$b} <=> $files{$a}} keys %files) {
!             my $clean = $file;
!             $clean =~ s/^\.\.\/\///;
! 		
! 	    print sprintf( "Coverage of %-32s %d%%\n", "$clean...", $files{$file});
  	}
  }