[ENSCORESW-777]. Tests GeneAdaptor support for fetching by source(s).

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
 #