oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

now using sub folders for tests

Browse source
This commit is contained in:
JT Smith 2006-01-16 16:57:06 +00:00
parent a4cacf8d72
commit 5df71d4de0
1 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

34
sbin/testCodebase.pl
View file

@ -11,7 +11,8 @@
$|=1;
use strict;
use lib '../..';
use lib '../lib';
use File::Find;
use Getopt::Long;
my $configFile;
@ -36,15 +37,22 @@ STOP
exit;
}
opendir(DIR,"../t");
my @files = readdir(DIR);
closedir(DIR);
chdir("../t");
my $someTestFailed = 0;
my @failedModules;
foreach my $file (@files) {
next unless $file =~ m/^(.*?)\.t$/;
File::Find::find(\&runTests, "../t");
if ($someTestFailed) {
print "\n\n";
print "---------------------------------------\n";
print " $someTestFailed test modules experienced failures:\n";
print "\t".join("\n\t",@failedModules)."\n";
print "---------------------------------------\n";
print "\n\n";
}
exit $someTestFailed;
sub runTests {
my $file = $_;
return undef unless $file =~ m/^(.*?)\.t$/;
my $testType = $1;
$testType =~ s/_/ /g;
print "Running $testType tests...\n";
@ -60,13 +68,5 @@ foreach my $file (@files) {
}
print "\n";
}
if ($someTestFailed) {
print "\n\n";
print "---------------------------------------\n";
print " $someTestFailed test modules experienced failures:\n";
print "\t".join("\n\t",@failedModules)."\n";
print "---------------------------------------\n";
print "\n\n";
}
exit $someTestFailed;