Skip to content
Browse files

Add some basic tests for response objects

  • Loading branch information...
1 parent 13a0d66 commit 03d6bcbc79d3b04182482cacf616819141f47113 @leto committed Nov 10, 2010
Showing with 7 additions and 4 deletions.
  1. +1 −0 t/00-load.t
  2. +6 −4 t/02-create-phyloxml.t
View
1 t/00-load.t
@@ -6,6 +6,7 @@ use lib './lib';
BEGIN {
use_ok( 'WWW::PhyloBox' );
+ use_ok( 'WWW::PhyloBox::Response' );
}
diag( "Testing WWW::PhyloBox Perl $], $^X" );
View
10 t/02-create-phyloxml.t
@@ -1,29 +1,31 @@
use Test::Most;
use WWW::PhyloBox;
+use Carp::Always;
use File::Slurp qw/slurp/;
-plan( tests => 3 );
+plan( tests => 4 );
my $phylobox = WWW::PhyloBox->new;
my $phyloxml = slurp("t/data/test.xml");
{
isa_ok($phylobox, 'WWW::PhyloBox');
+ my $response;
lives_ok {
- $phylobox->create(
+ $response = $phylobox->create(
phyloFile => $phyloxml,
response => "key",
)
- }, 'creating phyloxml';
+ };
+ isa_ok($response, 'WWW::PhyloBox::Response');
}
{
my $phyloxml = slurp("t/data/phylo.xml");
lives_ok {
$phylobox->create(
- method => "phyloxml",
phyloFile => $phyloxml,
response => "key",
)

0 comments on commit 03d6bcb

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