From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 11 Mar 2020 11:43:20 +0000 (+0100)
Subject: Tests: Anpassung an Mandantenkonf. Adress-Feld in Bestandteile aufgeteilt
X-Git-Tag: release-3.5.6.1~245^2~1
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=14c7c83bc898810e47e30888e2b8bdccaf2db7a6;p=kivitendo-erp.git

Tests: Anpassung an Mandantenkonf. Adress-Feld in Bestandteile aufgeteilt
---

diff --git a/t/structure/instance_conf_method_names.t b/t/structure/instance_conf_method_names.t
index e442fa6f3..b25232198 100755
--- a/t/structure/instance_conf_method_names.t
+++ b/t/structure/instance_conf_method_names.t
@@ -7,6 +7,7 @@ use File::Slurp;
 use Test::More;
 
 my %default_columns;
+my %compatibility_functions = map { ($_ => 1) } qw(address);
 
 sub read_default_columns {
   my $content   =  read_file('SL/DB/MetaSetup/Default.pm');
@@ -23,7 +24,7 @@ sub test_file_content {
   my $content = read_file($file);
 
   while ($content =~ m{(?:INSTANCE_CONF\.|\$(?:main)?::instance_conf->)get_([a-z0-9_]+)}gi) {
-    ok($default_columns{$1}, "'get_${1}' is a valid method call on \$::instance_conf in $file");
+    ok($default_columns{$1} || $compatibility_functions{$1}, "'get_${1}' is a valid method call on \$::instance_conf in $file");
   }
 }