X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Fstructure%2Fglobals.t;h=10fd0393e1d644f297225fabd177ee76fd420da4;hb=b8a93e44bab8cd0e5de93560609350b172c79f00;hp=7b5aa06d35dc19a3ce4c90658ff87eec5875d9d3;hpb=ad1441b955a605f96932854f0faaae0ed0659edd;p=kivitendo-erp.git

diff --git a/t/structure/globals.t b/t/structure/globals.t
index 7b5aa06d3..10fd0393e 100644
--- a/t/structure/globals.t
+++ b/t/structure/globals.t
@@ -3,14 +3,16 @@
 use strict;
 use lib 't';
 use Support::Files;
+use Support::CanonialGlobals ();
 
 my (@globals, $testcount);
 
 BEGIN {
-  @globals = qw(lxdebug auth myconfig form cgi lx_office_conf locale called_subs dispatcher instance_conf);
+  @globals = map { s/[^a-z_]//g; $_ } @Support::CanonialGlobals::globals;
   $testcount = scalar(@Support::Files::testitems);
 }
 
+
 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 {
-            ok(1,"$file does only contain registered globals");
+            ok(1,$file);
         }
     } else {
         ok(0,"could not open $file for globals check --WARNING");