Commit 80ea9e06 authored by Andy Yates's avatar Andy Yates
Browse files

switching from diag to note. less chatty

parent de5762cb
......@@ -10,35 +10,35 @@ my $dba = $multi->get_DBAdaptor('core');
my $ga = $dba->get_GeneAdaptor();
my $gene = $ga->fetch_by_stable_id('ENSG00000125964');
diag($gene->stable_id);
diag($gene->start);
diag($gene->end);
note($gene->stable_id);
note($gene->start);
note($gene->end);
my $transcript_list = $gene->get_all_Transcripts;
diag(scalar(@$transcript_list));
note(scalar(@$transcript_list));
foreach (@$transcript_list) {
diag($_->stable_id);
diag($_->start);
diag($_->end);
note($_->stable_id);
note($_->start);
note($_->end);
}
my $fake_gene = Bio::EnsEMBL::SubSlicedFeature->new(-feature => $gene, -start => 30840810, -end => 30859270);
$transcript_list = $fake_gene->get_all_Transcripts;
diag (scalar(@$transcript_list));
note (scalar(@$transcript_list));
foreach (@$transcript_list) {
diag($_->stable_id);
diag($_->start);
diag($_->end);
note($_->stable_id);
note($_->start);
note($_->end);
}
is ($transcript_list->[0]->stable_id,"ENST00000216932", "Only one transcript found in subsliced Gene");
my $exon_list = $fake_gene->get_all_Exons;
foreach (@$exon_list) {
diag($_->stable_id);
diag($_->start);
diag($_->end);
note($_->stable_id);
note($_->start);
note($_->end);
}
ok(scalar(@$exon_list) == 4, "Correct Exons for subsliced Gene");
is($exon_list->[0]->stable_id,'ENSE00001048819', "Correct Exon returned for subsliced Gene");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment