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});
}
}
|
