From 0c2da0a1c83856d9300429fbf5e5a89be857e60f Mon Sep 17 00:00:00 2001
From: Alessandro Vullo <avullo@ebi.ac.uk>
Date: Thu, 5 Dec 2013 16:36:58 +0000
Subject: [PATCH] [ENSCORESW-777]. Tests GeneAdaptor support for fetching by
 source(s).

---
 modules/t/gene.t | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/modules/t/gene.t b/modules/t/gene.t
index 30a56eaf61..025500960f 100644
--- a/modules/t/gene.t
+++ b/modules/t/gene.t
@@ -518,6 +518,17 @@ ok($geneCount == 20);
 $geneCount = $ga->count_all_by_biotype(['protein_coding', 'sRNA']);
 ok($geneCount == 20);
 
+#
+# test TranscriptAdaptor::fetch_all_by_source
+#
+note("Test fetch_all_by_source");
+@genes = @{$ga->fetch_all_by_source('ensembl')};
+note "Got ".scalar(@genes)." ensembl genes\n";
+ok(@genes == 18);
+@genes = @{$ga->fetch_all_by_source(['havana','vega'])};
+note "Got ".scalar(@genes)." (havana, vega) transcripts\n";
+ok(@genes == 2);
+
 #
 # test Gene: get_all_alt_alleles
 #
-- 
GitLab