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 ) {
eval "use $asset";
my $def = $asset->definition($session);
my $tableName = $def->[0]->{tableName};
my $classIds = $session->db->buildArrayRef("select distinct(assetId) from asset where className LIKE ? order by assetId", [$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");
}
eval "use $asset";
my $def = $asset->definition($session);
my $tableName = $def->[0]->{tableName};
my $classIds
= $session->db->buildArrayRef(
q{
select distinct(assetId)
from asset
where className = ? OR className LIKE ?
order by assetId
},
[$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");
}
}