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

Only check children, not descandants to be copied.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-17 09:51:36 -07:00
parent faf04f724c
commit d1163c0d40
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/AssetHelper/Copy/WithChildren.t
View file

@ -43,7 +43,7 @@ my $root = WebGUI::Asset->getRoot($session);
$session->user({userId => 3});
{
my $toBeCopied = $home->getLineage( ['self', 'descendants'] );
my $toBeCopied = $home->getLineage( ['self', 'children'] );
$output = WebGUI::AssetHelper::Copy::WithChildren->process($home);
cmp_deeply(
$output,
@ -55,7 +55,7 @@ $session->user({userId => 3});
my $clippies = $root->getLineage(["descendants"], {statesToInclude => [qw{clipboard clipboard-limbo}], returnObjects => 1,});
is @{ $clippies }, @$toBeCopied, '... only copied the asset to the clipboard with children';
addToCleanup(@{ $clippies });
WebGUI::Test->addToCleanup(@{ $clippies });
}
{
@ -72,7 +72,7 @@ $session->user({userId => 3});
);
my $clippies = $home->getAssetsInClipboard();
addToCleanup(@{ $clippies });
WebGUI::Test->addToCleanup(@{ $clippies });
}
#vim:ft=perl