oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: possibly fixed.

Browse source
This commit is contained in:
Doug Bell 2008-02-08 01:21:20 +00:00
parent a4b0e89b79
commit fb4d77e958
1 changed files with 26 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

38
t/Asset/Asset_diagnose.t
View file

@ -45,16 +45,30 @@ SKIP: {
} }
foreach my $asset ( @assets ) { foreach my $asset ( @assets ) {
eval "use $asset"; eval "use $asset";
my $def = $asset->definition($session); my $def = $asset->definition($session);
my $tableName = $def->[0]->{tableName}; my $tableName = $def->[0]->{tableName};
my $classIds = $session->db->buildArrayRef("select distinct(assetId) from asset where className LIKE ? order by assetId", [$asset.'%']); my $classIds
my $tableIds = $session->db->buildArrayRef(sprintf("select distinct(assetId) from %s order by assetId", $tableName)); = $session->db->buildArrayRef(
my $skipDetails = is_deeply($classIds, $tableIds, q{
sprintf("Comparing assetIds for %s",$asset) select distinct(assetId)
); from asset
SKIP: { where className = ? OR className LIKE ?
skip("No details needed for $asset", 1) if $skipDetails; order by assetId
cmp_bag($classIds, $tableIds, "Checking asset vs table for $asset"); },
} [$asset, $asset.'::%']
);
my $tableIds
= $session->db->buildArrayRef(
sprintf("select distinct(assetId) from %s order by assetId", $tableName)
);
my $skipDetails = is_deeply($classIds, $tableIds,
sprintf("Comparing assetIds for %s",$asset)
);
SKIP: {
skip("No details needed for $asset", 1) if $skipDetails;
cmp_bag($classIds, $tableIds, "Checking asset vs table for $asset");
}
} }