projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
special_chars: ø, Ø und λ ergänzt
[kivitendo-erp.git]
/
t
/
Support
/
Files.pm
diff --git
a/t/Support/Files.pm
b/t/Support/Files.pm
index
f325a0a
..
53103a2
100644
(file)
--- a/
t/Support/Files.pm
+++ b/
t/Support/Files.pm
@@
-20,16
+20,19
@@
# Contributor(s): Zach Lipton <zach@zachlipton.com>
# Joel Peshkin <bugreport@peshkin.net>
# Contributor(s): Zach Lipton <zach@zachlipton.com>
# Joel Peshkin <bugreport@peshkin.net>
-
package Support::Files;
package Support::Files;
+use strict;
+
use File::Find;
use File::Find;
+our @testitems;
+
# exclude_deps is a hash of arrays listing the files to be excluded
# if a module is not available
#
# exclude_deps is a hash of arrays listing the files to be excluded
# if a module is not available
#
-@additional_files = ();
-%exclude_deps = (
+
our
@additional_files = ();
+
our
%exclude_deps = (
'XML::Twig' => ['importxml.pl'],
'Net::LDAP' => ['Bugzilla/Auth/Verify/LDAP.pm'],
'Email::Reply' => ['email_in.pl'],
'XML::Twig' => ['importxml.pl'],
'Net::LDAP' => ['Bugzilla/Auth/Verify/LDAP.pm'],
'Email::Reply' => ['email_in.pl'],
@@
-37,9
+40,10
@@
use File::Find;
);
);
-@files = glob('*');
+
our
@files = glob('*');
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL');
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL');
-find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, 'bin/mozilla');
+find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, qw(bin/mozilla sql/Pg-upgrade2));
+find(sub { push(@files, $File::Find::name) if $_ =~ /\.html$/;}, qw(templates/webpages));
sub have_pkg {
my ($pkg) = @_;
sub have_pkg {
my ($pkg) = @_;
@@
-49,8
+53,8
@@
sub have_pkg {
return !($@);
}
return !($@);
}
-@exclude_files = ();
-foreach $dep (keys(%exclude_deps)) {
+
our
@exclude_files = ();
+foreach
my
$dep (keys(%exclude_deps)) {
if (!have_pkg($dep)) {
push @exclude_files, @{$exclude_deps{$dep}};
}
if (!have_pkg($dep)) {
push @exclude_files, @{$exclude_deps{$dep}};
}
@@
-73,7
+77,7
@@
sub isTestingFile {
return undef;
}
return undef;
}
-foreach $currentfile (@files) {
+foreach
my
$currentfile (@files) {
if (isTestingFile($currentfile)) {
push(@testitems,$currentfile);
}
if (isTestingFile($currentfile)) {
push(@testitems,$currentfile);
}