Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-28 13:21:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Bug 163494 - runtests.sh needs a switch to include optional modules

Browse Source 
Tests now detect optional modules and only exclude optional files
if optional module dependencies are not met.
Also major indent cleanup
r=timeless
This commit is contained in:
bugreport%peshkin.net 2002-08-25 17:19:03 +00:00
parent edf3d2faf5
commit 1a7f1c2f85
1 changed files with 40 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
webtools/bugzilla/t/Support/Files.pm
View File

@ -18,6 +18,7 @@
# Rights Reserved.
#
# Contributor(s): Zach Lipton <zach@zachlipton.com>
# Joel Peshkin <bugreport@peshkin.net>
#
# Alternatively, the contents of this file may be used under the
# terms of the GNU General Public License Version 2 or later (the
@ -34,34 +35,55 @@
package Support::Files;
# exclude_deps is a hash of arrays listing the files to be excluded
# if a module is not available
#
@additional_files = ('syncshadowdb','processmail');
@exclude_files = ('importxml.pl');
%exclude_deps = (
'XML::Parser' => ['importxml.pl'],
);
# XXX - this file should be rewritten to use File::Find or similar
$file = '*';
@files = (glob($file), glob('Bugzilla/*.pm'));
sub isTestingFile {
my ($file) = @_;
my $exclude;
foreach $exclude (@exclude_files) {
if ($file eq $exclude) { return undef; } # get rid of excluded files.
}
sub have_pkg {
my ($pkg) = @_;
my ($msg, $vnum, $vstr);
no strict 'refs';
eval { my $p; ($p = $pkg . ".pm") =~ s!::!/!g; require $p; };
return !($@);
}
if ($file =~ /\.cgi$|\.pl$|\.pm$/) {
return 1;
}
my $additional;
foreach $additional (@additional_files) {
if ($file eq $additional) { return 1; }
}
return undef;
@exclude_files = ();
foreach $dep (keys(%exclude_deps)) {
if (!have_pkg($dep)) {
push @exclude_files, @{$exclude_deps{$dep}};
}
}
sub isTestingFile {
my ($file) = @_;
my $exclude;
foreach $exclude (@exclude_files) {
if ($file eq $exclude) { return undef; } # get rid of excluded files.
}
if ($file =~ /\.cgi$|\.pl$|\.pm$/) {
return 1;
}
my $additional;
foreach $additional (@additional_files) {
if ($file eq $additional) { return 1; }
}
return undef;
}
foreach $currentfile (@files) {
if (isTestingFile($currentfile)) {
push(@testitems,$currentfile);
}
if (isTestingFile($currentfile)) {
push(@testitems,$currentfile);
}
}