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

fix copy tests being hard coded based on default home page content

Browse source
This commit is contained in:
Graham Knop 2010-06-15 12:40:42 -05:00
parent dc4e481ac5
commit 73319bf6c0
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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

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

@ -42,8 +42,8 @@ my $root = WebGUI::Asset->getRoot($session);
$session->user({userId => 3});
{
{
my $toBeCopied = $home->getLineage( ['self', 'descendants'] );
$output = WebGUI::AssetHelper::Copy::WithDescendants->process($home);
cmp_deeply(
$output,
@ -54,7 +54,7 @@ $session->user({userId => 3});
);
my $clippies = $root->getLineage(["descendants"], {statesToInclude => [qw{clipboard clipboard-limbo}], returnObjects => 1,});
is @{ $clippies }, 27, '... only copied the asset to the clipboard with children';
is @{ $clippies }, @{ $toBeCopied }, '... only copied the asset to the clipboard with children';
addToCleanup(@{ $clippies });
}