Revision 09f89fc0
Von Moritz Bunkus vor fast 11 Jahren hinzugefügt
| t/rdbo_consistency.t | ||
|---|---|---|
| 23 | 23 |
my @dbs = find_pms('SL/DB');
|
| 24 | 24 |
my @metasetups = find_pms('SL/DB/MetaSetup');
|
| 25 | 25 |
my %metasetup_content = map { ($_ => scalar(read_file("SL/DB/MetaSetup/$_"))) } @metasetups;
|
| 26 |
my %db_content = map { ($_ => scalar(read_file("SL/DB/$_"))) } @dbs;
|
|
| 26 | 27 |
my $all_content = read_file('SL/DB/Helper/ALL.pm');
|
| 27 | 28 |
my $mapping_content = read_file('SL/DB/Helper/Mappings.pm');
|
| 28 | 29 |
|
| ... | ... | |
| 78 | 79 |
} |
| 79 | 80 |
} |
| 80 | 81 |
|
| 82 |
sub test_db_contains_meta_initialize {
|
|
| 83 |
foreach my $pm (grep { !m{^(?:Object|VC)\.pm$} } @dbs) {
|
|
| 84 |
ok($db_content{$pm} =~ m/\n__PACKAGE__->meta->initialize;/, "$pm contains __PACKAGE__->meta->initialize;");
|
|
| 85 |
} |
|
| 86 |
} |
|
| 87 |
|
|
| 81 | 88 |
test_db_has_metasetup(); |
| 82 | 89 |
test_metasetup_has_db(); |
| 83 | 90 |
test_db_included_in_all(); |
| 84 | 91 |
test_use_in_all_exists_as_db(); |
| 85 | 92 |
test_metasetup_has_table_to_class_mapping(); |
| 93 |
test_db_contains_meta_initialize(); |
|
| 86 | 94 |
|
| 87 | 95 |
done_testing(); |
Auch abrufbar als: Unified diff
RDBO-Consistency-Test auf PACKAGE->meta_initialize