From d1163c0d4035cbe7d1371eed61db647e9e4962c6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 17 Jun 2010 09:51:36 -0700
Subject: [PATCH] Only check children, not descandants to be copied.

---
 t/AssetHelper/Copy/WithChildren.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/AssetHelper/Copy/WithChildren.t b/t/AssetHelper/Copy/WithChildren.t
index 44a6d4b76..72f1d554b 100644
--- a/t/AssetHelper/Copy/WithChildren.t
+++ b/t/AssetHelper/Copy/WithChildren.t
@@ -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