From 770e383ec60320ad25abdd15c8f74d433e3f77ec Mon Sep 17 00:00:00 2001 From: Chris Fields Date: Mon, 2 Sep 2013 00:01:16 -0500 Subject: [PATCH] add back mising tests from master --- t/RemoteDB/Taxonomy.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/t/RemoteDB/Taxonomy.t b/t/RemoteDB/Taxonomy.t index 5db7379ba..8f96e6d0c 100644 --- a/t/RemoteDB/Taxonomy.t +++ b/t/RemoteDB/Taxonomy.t @@ -179,7 +179,7 @@ is_deeply [map {ref($_)} @taxa], [('Bio::Taxon')x4]; is_deeply [map {$_->rank} @taxa], \@ranks, 'Ranks'; # Make a tree -my $tree = $db_list->get_tree('Homo sapiens', 'Homo erectus'); +ok my $tree = $db_list->get_tree('Homo sapiens', 'Homo erectus'); isa_ok $tree, 'Bio::Tree::TreeI'; is $tree->number_nodes, 5; is $tree->total_branch_length, 4; @@ -317,7 +317,11 @@ Culicoidea, Culicidae, Anophelinae, Anopheles, Anopheles, Angusticorn, Anopheles, maculipennis group, maculipennis species complex, Anopheles daciae"))]); my @taxonids = $db_list->get_taxonids('Anopheles'); -is @taxonids, 3; +is @taxonids, 3, 'List context'; + +my $taxonid = $db_list->get_taxonids('Anopheles'); +isa_ok \$taxonid, 'SCALAR', 'Scalar context'; +ok exists { map({$_ => undef} @taxonids) }->{$taxonid}; # but we should still be able to merge in an incomplete lineage of a sister # species and have the 'tree' remain consistent: -- 2.11.4.GIT