From 520c18b3e23ed9a66cccac268e83d7432c1bf34c Mon Sep 17 00:00:00 2001 From: Graham Knop Date: Thu, 12 Jun 2008 23:31:00 +0000 Subject: [PATCH] fixing dataform test --- t/Asset/Wobject/DataForm_diagnose.t | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/t/Asset/Wobject/DataForm_diagnose.t b/t/Asset/Wobject/DataForm_diagnose.t index b89c50dc2..1a41c1e13 100644 --- a/t/Asset/Wobject/DataForm_diagnose.t +++ b/t/Asset/Wobject/DataForm_diagnose.t @@ -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)); -} -