projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Aufräumskript für Steuerschlüssel 18,19 - Prüfung auf Kontenrahmen
[kivitendo-erp.git]
/
t
/
rdbo_consistency.t
diff --git
a/t/rdbo_consistency.t
b/t/rdbo_consistency.t
index
7b5cedb
..
635585f
100644
(file)
--- a/
t/rdbo_consistency.t
+++ b/
t/rdbo_consistency.t
@@
-23,6
+23,7
@@
my %no_metasetup_ok = map { ($_ => 1) } qw(Object.pm VC.pm);
my @dbs = find_pms('SL/DB');
my @metasetups = find_pms('SL/DB/MetaSetup');
my %metasetup_content = map { ($_ => scalar(read_file("SL/DB/MetaSetup/$_"))) } @metasetups;
my @dbs = find_pms('SL/DB');
my @metasetups = find_pms('SL/DB/MetaSetup');
my %metasetup_content = map { ($_ => scalar(read_file("SL/DB/MetaSetup/$_"))) } @metasetups;
+my %db_content = map { ($_ => scalar(read_file("SL/DB/$_"))) } @dbs;
my $all_content = read_file('SL/DB/Helper/ALL.pm');
my $mapping_content = read_file('SL/DB/Helper/Mappings.pm');
my $all_content = read_file('SL/DB/Helper/ALL.pm');
my $mapping_content = read_file('SL/DB/Helper/Mappings.pm');
@@
-49,6
+50,7
@@
sub test_db_included_in_all {
sub test_use_in_all_exists_as_db {
foreach my $package (map { m/^use\s+(.+?);/; $1 } grep { '^use SL::DB::' } split m/\n/, $all_content) {
sub test_use_in_all_exists_as_db {
foreach my $package (map { m/^use\s+(.+?);/; $1 } grep { '^use SL::DB::' } split m/\n/, $all_content) {
+ next unless $package;
next unless $package =~ m/^SL::DB::(.+)/;
my $file = $1;
$file =~ s{::}{/}g;
next unless $package =~ m/^SL::DB::(.+)/;
my $file = $1;
$file =~ s{::}{/}g;
@@
-77,10
+79,17
@@
sub test_metasetup_has_table_to_class_mapping {
}
}
}
}
+sub test_db_contains_meta_initialize {
+ foreach my $pm (grep { !m{^(?:Object|VC)\.pm$} } @dbs) {
+ ok($db_content{$pm} =~ m/\n__PACKAGE__->meta->initialize;/, "$pm contains __PACKAGE__->meta->initialize;");
+ }
+}
+
test_db_has_metasetup();
test_metasetup_has_db();
test_db_included_in_all();
test_use_in_all_exists_as_db();
test_metasetup_has_table_to_class_mapping();
test_db_has_metasetup();
test_metasetup_has_db();
test_db_included_in_all();
test_use_in_all_exists_as_db();
test_metasetup_has_table_to_class_mapping();
+test_db_contains_meta_initialize();
done_testing();
done_testing();