From a8fcce617af4b3dfd9c9947a3b3623d27cd6fbb9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 4 Jan 2011 11:46:37 -0800
Subject: [PATCH] Testing assets have to be based off the root node, so the
 lineage works right.  Change this, and clean them all up.

---
 t/Macro/RootTitle.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Macro/RootTitle.t b/t/Macro/RootTitle.t
index 43d922e11..2d1b37b75 100644
--- a/t/Macro/RootTitle.t
+++ b/t/Macro/RootTitle.t
@@ -33,7 +33,7 @@ $versionTag->set({name=>"Adding assets for RootTitle tests"});
 my %tag = ( tagId => $versionTag->getId, status => "pending" );
 addToCleanup($versionTag);
 
-my $root = WebGUI::Test->asset;
+my $root = WebGUI::Asset->getRoot($session);
 my %properties_A = (
 		className   => 'WebGUI::Asset::Snippet',
 		title       => 'Asset A',
@@ -118,6 +118,8 @@ my $asset_ = $root->addChild(\%properties__, $properties__{id});
 
 $versionTag->commit;
 
+WebGUI::Test->addToCleanup($assetZ, $asset_);
+
 my $origLineage = $asset_->lineage;
 my $newLineage = substr $origLineage, 0, length($origLineage)-1; 
 $session->db->write('update asset set lineage=? where assetId=?',[$newLineage, $asset_->getId]);