From ddcc52da410539913f459d2b1975443e06746929 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Wed, 21 May 2003 15:34:42 +0000
Subject: [PATCH] added test for
PredictionTranscriptAdaptor::fetch_by_stable_id
---
modules/t/predictionTranscript.t | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/modules/t/predictionTranscript.t b/modules/t/predictionTranscript.t
index 621c69c10e..c69aef43f5 100644
--- a/modules/t/predictionTranscript.t
+++ b/modules/t/predictionTranscript.t
@@ -5,14 +5,16 @@ use lib 't';
BEGIN { $| = 1;
use Test;
- plan tests => 32;
+ plan tests => 33;
}
use MultiTestDB;
-use TestUtils;
+use TestUtils qw(debug test_getter_setter);
use Bio::EnsEMBL::PredictionTranscript;
use Bio::EnsEMBL::Exon;
+our $verbose = 0;
+
#
# 1 PredictionTranscript compiles
#
@@ -34,6 +36,12 @@ my $p_transs = $slice->get_all_PredictionTranscripts();
ok( scalar( @$p_transs ) );
+if($verbose) {
+ foreach my $pt (@$p_transs) {
+ print $pt->stable_id , "\n";
+ }
+}
+
my ($pt) = @$p_transs;
my $exons = $pt->get_all_Exons;
@@ -209,3 +217,11 @@ ok($defined_exons_count == $pt->cdna2genomic($cstart, $cend));
#
ok(&TestUtils::test_getter_setter($pt, 'type', 'test'));
+#
+# 33 test fetch_by_stable_id
+#
+
+my $stable_id = 'AL031658.11.1.162976.122801.143660';
+
+$pt = $pta->fetch_by_stable_id($stable_id);
+ok($pt->stable_id eq $stable_id);
--
GitLab