[popfile-commit] engine/Devel TestCoverage.pm,1.1,1.2

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

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

Modified Files:
	TestCoverage.pm 
Log Message:
New test suites for MQ and Configuration; helper class for testing MQ; Logger, MQ and Module now over 90% covered by tests

Index: TestCoverage.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Devel/TestCoverage.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestCoverage.pm	9 Jul 2003 18:18:16 -0000	1.1
--- TestCoverage.pm	10 Jul 2003 04:28:15 -0000	1.2
***************
*** 45,49 ****
  	for my $file (keys %count)	
  	{
! 	    if ( ( $file =~ /^[^\/]/ ) && ( $file ne 'tests.pl' ) ) {
  		my $current_line = 0;
  		
--- 45,49 ----
  	for my $file (keys %count)	
  	{
! 	    if ( ( $file =~ /^[^\/]/ ) && ( $file ne 'tests.pl' ) && !( $file =~ /^Test\// ) ) {
  		my $current_line = 0;
  		
***************
*** 63,67 ****
  			# comments or just have braces on them or
  			# just an else or just a subroutine definition
! 			if ( ( /^\s*\#/ == 0 ) && ( /^\s*$/ == 0 ) && ( /^\s*(\{|\}|else)\s*$/ == 0 ) && ( /^\s*sub \w+( \{)?\s*$/ == 0 ) )
  			{
  				$count{$file}{total_executable_lines} += 1;
--- 63,67 ----
  			# comments or just have braces on them or
  			# just an else or just a subroutine definition
! 			if ( ( /^\s*\#/ == 0 ) && ( /^\s*$/ == 0 ) && ( /^\s*(\{|\}|else|\s)+\s*$/ == 0 ) && ( /^\s*sub \w+( \{)?\s*$/ == 0 ) )
  			{
  				$count{$file}{total_executable_lines} += 1;