projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
adjust indentation
[kivitendo-erp.git]
/
t
/
structure
/
globals.t
diff --git
a/t/structure/globals.t
b/t/structure/globals.t
index
950cf11
..
10fd039
100644
(file)
--- a/
t/structure/globals.t
+++ b/
t/structure/globals.t
@@
-3,14
+3,16
@@
use strict;
use lib 't';
use Support::Files;
use strict;
use lib 't';
use Support::Files;
+use Support::CanonialGlobals ();
my (@globals, $testcount);
BEGIN {
my (@globals, $testcount);
BEGIN {
- @globals =
qw(lxdebug auth myconfig form cgi lx_office_conf locale called_subs dispatcher)
;
+ @globals =
map { s/[^a-z_]//g; $_ } @Support::CanonialGlobals::globals
;
$testcount = scalar(@Support::Files::testitems);
}
$testcount = scalar(@Support::Files::testitems);
}
+
use Test::More tests => $testcount;
# Capture the TESTOUT from Test::More or Test::Builder for printing errors.
use Test::More tests => $testcount;
# Capture the TESTOUT from Test::More or Test::Builder for printing errors.
@@
-52,7
+54,7
@@
foreach my $file (@testitems) {
if ($found_word) {
ok(0,"$file: found UNREGISTERED GLOBAL $found_word --WARNING");
} else {
if ($found_word) {
ok(0,"$file: found UNREGISTERED GLOBAL $found_word --WARNING");
} else {
- ok(1,
"$file does only contain registered globals"
);
+ ok(1,
$file
);
}
} else {
ok(0,"could not open $file for globals check --WARNING");
}
} else {
ok(0,"could not open $file for globals check --WARNING");