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

test leak detection for workflow instances

Browse source
This commit is contained in:
Graham Knop 2010-06-15 09:05:09 -05:00
parent 3be3150224
commit dc4e481ac5
1 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

33
t/lib/WebGUI/Test.pm
View file

@ -96,21 +96,22 @@ sub _initSession {
if ($ENV{WEBGUI_TEST_DEBUG}) { if ($ENV{WEBGUI_TEST_DEBUG}) {
##Offset Sessions, and Scratch by 1 because 1 will exist at the start ##Offset Sessions, and Scratch by 1 because 1 will exist at the start
my @checkCount = ( my @checkCount = (
Sessions => 'userSession', Sessions => 'userSession',
Scratch => 'userSessionScratch', Scratch => 'userSessionScratch',
Users => 'users', Users => 'users',
Groups => 'groups', Groups => 'groups',
mailQ => 'mailQueue', mailQ => 'mailQueue',
Tags => 'assetVersionTag', Tags => 'assetVersionTag',
Assets => 'assetData', Assets => 'assetData',
Workflows => 'Workflow', Workflows => 'Workflow',
Carts => 'cart', 'Workflow Instances' => 'WorkflowInstance',
Transactions => 'transaction', Carts => 'cart',
'Transaction Items' => 'transactionItem', Transactions => 'transaction',
'Ship Drivers' => 'shipper', 'Transaction Items' => 'transactionItem',
'Payment Drivers' => 'paymentGateway', 'Ship Drivers' => 'shipper',
'Database Links' => 'databaseLink', 'Payment Drivers' => 'paymentGateway',
'LDAP Links' => 'ldapLink', 'Database Links' => 'databaseLink',
'LDAP Links' => 'ldapLink',
); );
my %initCounts; my %initCounts;
for ( my $i = 0; $i < @checkCount; $i += 2) { for ( my $i = 0; $i < @checkCount; $i += 2) {
@ -123,7 +124,7 @@ sub _initSession {
my $quant = $session->db->quickScalar('SELECT COUNT(*) FROM ' . $table); my $quant = $session->db->quickScalar('SELECT COUNT(*) FROM ' . $table);
my $delta = $quant - $initCounts{$table}; my $delta = $quant - $initCounts{$table};
if ($delta) { if ($delta) {
$CLASS->builder->diag(sprintf '%-10s: %4d (delta %+d)', $label, $quant, $delta); $CLASS->builder->diag(sprintf '%-24s: %4d (delta %+d)', $label, $quant, $delta);
} }
} }
}); });