Skip to content
Browse files

Test the repsonse object for PhyloXML with multiple phylogenies

  • Loading branch information...
1 parent 225f186 commit 2dfafba91cbab4217493ee7217748c87ffab4987 @leto committed Nov 12, 2010
Showing with 4 additions and 2 deletions.
  1. +4 −2 t/02-create-phyloxml.t
View
6 t/02-create-phyloxml.t
@@ -4,7 +4,7 @@ use Carp::Always;
use File::Slurp qw/slurp/;
-plan( tests => 4 );
+plan( tests => 5 );
my $phylobox = WWW::PhyloBox->new;
my $phyloxml = slurp("t/data/test.xml");
@@ -25,11 +25,13 @@ my $phyloxml = slurp("t/data/test.xml");
{
local $TODO = "PhyloBox does not support multiple phylogenies in one PhyloXML";
my $phyloxml = slurp("t/data/phylo.xml");
+ my $response;
lives_ok {
- $phylobox->create(
+ $response = $phylobox->create(
phyloFile => $phyloxml,
response => "key",
)
}, 'creating phyloxml';
+ isa_ok($response, 'WWW::PhyloBox::Response');
# need to check return code
}

0 comments on commit 2dfafba

Please sign in to comment.
Something went wrong with that request. Please try again.