From 958e291acf2201d43ee3ae2f63d0947e0e23a3a3 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Tue, 6 Jan 2009 17:25:39 +0000
Subject: [PATCH] Sync with trunk.  This will appear in final release.

svn path=/bioperl-live/branches/branch-1-6/; revision=15308
---
 t/Map/Map.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Map/Map.t b/t/Map/Map.t
index 998e03312..16db27105 100644
--- a/t/Map/Map.t
+++ b/t/Map/Map.t
@@ -677,7 +677,7 @@ use_ok('Bio::Map::Prediction');
         is $gene->get_transcript_position($map1)->toString($pos->absolute_relative), '1001..85193';
         is $gene->get_transcript_position($map2)->toString($pos->absolute_relative), '501..47617';
         is $gene->get_transcript_position($map4)->toString($pos->absolute_relative), '1373..37665';
-        is $gene->description($map1), 'Breast cancer type 2 susceptibility protein (Fanconi anemia group D1 protein) [Source:UniProtKB/Swiss-Prot;Acc:P51587]';
+        like $gene->description($map1), qr/Breast cancer type 2 susceptibility protein \(Fanconi anemia group D1 protein\)/;
         is $gene->display_id($map1), 'ENSG00000139618';
         is $gene->display_id($map2), 'ENSMUSG00000041147';
         is $gene->display_id($map4), 'ENSGALG00000017073';
-- 
2.11.4.GIT