Commit 1ff69b31 authored by Andy Yates's avatar Andy Yates
Browse files

Changed to using Test::More and now use note instead of a warn to stop output contamination

parent 5dc9ba1c
......@@ -2,10 +2,7 @@ use strict;
use warnings;
use vars qw( $verbose );
BEGIN { $| = 1;
use Test;
plan tests => 153;
}
use Test::More;
use Bio::EnsEMBL::Test::MultiTestDB;
use Bio::EnsEMBL::Test::TestUtils;
......@@ -265,7 +262,7 @@ debug("Test fetch_all_by_biotype");
my @transcripts = @{$ta->fetch_all_by_biotype('protein_coding')};
ok(@transcripts == 25);
@transcripts = @{$ta->fetch_all_by_biotype(['protein_coding','pseudogene'])};
warn "Got ".scalar(@transcripts)." transcripts\n";
note "Got ".scalar(@transcripts)." transcripts\n";
ok(@transcripts == 25);
......@@ -728,3 +725,5 @@ sub print_coords {
my $registry = 'Bio::EnsEMBL::Registry';
my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('ENST00000355555');
ok( $species eq 'homo_sapiens' && $object_type eq 'Transcript');
done_testing();
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