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

fixing dataform test

Browse source
This commit is contained in:
Graham Knop 2008-06-12 23:31:00 +00:00
parent 93995ae74f
commit 520c18b3e2
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
t/Asset/Wobject/DataForm_diagnose.t
View file

@ -28,23 +28,9 @@ my $session = WebGUI::Test->session;
my $dataFormIds = $session->db->buildArrayRef("select asset.assetId, assetData.revisionDate from DataForm left join asset on asset.assetId=DataForm.assetId left join assetData on assetData.revisionDate=DataForm.revisionDate and assetData.assetId=DataForm.assetId where asset.state='published' and assetData.revisionDate=(SELECT max(revisionDate) from assetData where assetData.assetId=asset.assetId and (assetData.status='approved' or assetData.tagId=?)) order by assetData.title");
foreach my $table (qw/DataForm DataForm_field/) {
foreach my $table (qw/DataForm/) {
my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table));
cmp_bag($dataFormIds, $tableIds,
sprintf("Orphaned assetIds in %s", $table));
}
##DataForm_tab will have a subset of assetIds since not all DataForms have tabs.
foreach my $table (qw/DataForm_tab/) {
my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table));
cmp_deeply($tableIds, subsetof(@{ $dataFormIds }),
sprintf("Orphaned assetIds in %s", $table));
}
my $dataForm_fieldIds = $session->db->buildArrayRef("select distinct(DataForm_fieldId) from DataForm_field");
foreach my $table (qw/DataForm_tab/) {
my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table));
cmp_deeply($tableIds, subsetof(@{ $dataForm_fieldIds}),
sprintf("Orphaned fieldId in %s", $table));
}