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

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

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

Modified Files:
	TestCoverage.pm 
Log Message:
Improve test suite coverage for MQ, Module and Logger.  Now at 100%

Index: TestCoverage.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Devel/TestCoverage.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TestCoverage.pm	10 Jul 2003 04:28:15 -0000	1.2
--- TestCoverage.pm	12 Jul 2003 00:43:20 -0000	1.3
***************
*** 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;
--- 63,71 ----
  			# 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 ) &&
!                              ( /^\s*package /             == 0 ) )
  			{
  				$count{$file}{total_executable_lines} += 1;
***************
*** 71,75 ****
  				if ( $count{$file}{$current_line} > 0 ) {
  					$count{$file}{total_executed} += 1;
! 				}
  			}
  		}
--- 75,81 ----
  				if ( $count{$file}{$current_line} > 0 ) {
  					$count{$file}{total_executed} += 1;
! 				} else {
! print "$file $_\n" if ( $file =~/Module/);
! }
  			}
  		}