From 528c56a499c2f60016a0f56e8e32898bede1e69e Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 6 Sep 2008 21:06:43 +0000
Subject: [PATCH] Fixed a test that should have been failing for a long time.
 getLineage != get('lineage')?

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

diff --git a/t/Macro/RootTitle.t b/t/Macro/RootTitle.t
index 06dcd3d4a..7cb11bbe9 100644
--- a/t/Macro/RootTitle.t
+++ b/t/Macro/RootTitle.t
@@ -46,6 +46,7 @@ my %properties_A = (
 		#              '1234567890123456789012'
 );
 
+
 my $assetA = $root->addChild(\%properties_A, $properties_A{id});
 
 my %properties_B = (
@@ -116,7 +117,7 @@ my $asset_ = $root->addChild(\%properties__, $properties__{id});
 
 $versionTag->commit;
 
-my $origLineage = $asset_->getLineage;
+my $origLineage = $asset_->get('lineage');
 my $newLineage = substr $origLineage, 0, length($origLineage)-1; 
 $session->db->write('update asset set lineage=? where assetId=?',[$newLineage, $asset_->getId]);