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

Debug needs an explicit package name for addToCleanup.

Browse source
This commit is contained in:
Colin Kuskie 2011-10-19 13:11:23 -07:00
parent 19b6f9de12
commit 82bb59d40e
47 changed files with 99 additions and 99 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/AssetHelper/Copy.t
View file

@ -54,7 +54,7 @@ my $root = WebGUI::Asset->getRoot($session);
'AssetHelper/Copy forks a process'
);
addToCleanup( 'WebGUI::Fork' => $output->{forkId} );
WebGUI::Test->addToCleanup( 'WebGUI::Fork' => $output->{forkId} );
}
ok(WebGUI::Test->waitForAllForks(10), "Forks finished");
@ -62,6 +62,6 @@ ok(WebGUI::Test->waitForAllForks(10), "Forks finished");
$session->cache->clear;
my $clippies = $root->getLineage(["descendants"], {statesToInclude => [qw{clipboard clipboard-limbo}], returnObjects => 1,});
is @{ $clippies }, 1, '... only copied 1 asset to the clipboard, no children';
addToCleanup(@{ $clippies });
WebGUI::Test->addToCleanup(@{ $clippies });
#vim:ft=perl

4
t/AssetHelper/CopyBranch.t
View file

@ -56,7 +56,7 @@ my $grand = $child->addChild({
%tag,
});
$tag->commit;
addToCleanup( $tag );
WebGUI::Test->addToCleanup( $tag );
{
my $helper = WebGUI::AssetHelper::CopyBranch->new( id => 'copy_branch', session => $session, asset => $top );
@ -88,6 +88,6 @@ $mech->get_ok( '/?op=assetHelper;helperId=copy_branch;method=copy;with=descendan
WebGUI::Test->waitForAllForks;
my $clippies = $root->getLineage(["descendants"], {statesToInclude => [qw{clipboard clipboard-limbo}], returnObjects => 1,});
is @{ $clippies }, 3, '... copied 3 asset to the clipboard';
addToCleanup( @$clippies );
WebGUI::Test->addToCleanup( @$clippies );
#vim:ft=perl

2
t/AssetHelper/Lock.t
View file

@ -33,7 +33,7 @@ my $home = WebGUI::Test->asset;
my $editor = WebGUI::User->create($session);
$editor->addToGroups([4]);
addToCleanup($editor);
WebGUI::Test->addToCleanup($editor);
$session->user({userId => 3});
my $newPage = $home->addChild({

2
t/AssetHelper/Product/ExportCSV.t
View file

@ -85,7 +85,7 @@ my $helper = WebGUI::AssetHelper::Product::ExportCSV->new(
);
my $exportProducts = \&WebGUI::AssetHelper::Product::ExportCSV::exportProducts;
my $process = Test::MockObject::Extends->new( WebGUI::Fork->create( $session ) );
addToCleanup( sub { $process->delete } );
WebGUI::Test->addToCleanup( sub { $process->delete } );
$exportProducts->($process, {});
# Determine the storage location from the URL