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

removing diag output

Browse source
This commit is contained in:
Colin Kuskie 2006-04-19 16:07:46 +00:00
parent e3209b234e
commit 04911c04e9
2 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Asset/Asset_diagnose.t
View file

@ -30,7 +30,6 @@ my @assets = grep { !isIn($_, qw/WebGUI::Asset::FilePile/) } (
); );
my $numTests = scalar (2*@assets) + 2; my $numTests = scalar (2*@assets) + 2;
diag("Testing $numTests assets");
plan tests => $numTests; plan tests => $numTests;
my $assetIds = $session->db->buildArrayRef("select distinct(assetId) from asset order by assetId"); my $assetIds = $session->db->buildArrayRef("select distinct(assetId) from asset order by assetId");
@ -46,7 +45,6 @@ SKIP: {
} }
foreach my $asset ( @assets ) { foreach my $asset ( @assets ) {
#diag("Checking $asset");
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};

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

@ -28,14 +28,12 @@ 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"); 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");
diag("Checking DataForm tables for orphaned assetIds");
foreach my $table (qw/DataForm DataForm_field/) { foreach my $table (qw/DataForm DataForm_field/) {
my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table)); my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table));
cmp_bag($dataFormIds, $tableIds, cmp_bag($dataFormIds, $tableIds,
sprintf("Orphaned assetIds in %s", $table)); sprintf("Orphaned assetIds in %s", $table));
} }
diag("Checking DataForm_tab tables for orphaned assetIds");
##DataForm_tab will have a subset of assetIds since not all DataForms have tabs. ##DataForm_tab will have a subset of assetIds since not all DataForms have tabs.
foreach my $table (qw/DataForm_tab/) { foreach my $table (qw/DataForm_tab/) {
my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table)); my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table));
@ -43,7 +41,6 @@ foreach my $table (qw/DataForm_tab/) {
sprintf("Orphaned assetIds in %s", $table)); sprintf("Orphaned assetIds in %s", $table));
} }
diag("Checking DataForm tables for orphaned fieldIds");
my $dataForm_fieldIds = $session->db->buildArrayRef("select distinct(DataForm_fieldId) from DataForm_field"); my $dataForm_fieldIds = $session->db->buildArrayRef("select distinct(DataForm_fieldId) from DataForm_field");
foreach my $table (qw/DataForm_tab/) { foreach my $table (qw/DataForm_tab/) {
my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table)); my $tableIds = $session->db->buildArrayRef(sprintf ("select distinct(assetId) from %s", $table));