Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (13 sloc) 325 Bytes
use Test::Most;
use WWW::PhyloBox;
use File::Slurp qw/slurp/;
plan( tests => 2 );
my $phylobox = WWW::PhyloBox->new;
my $newick = slurp("t/data/foo.newick");
isa_ok($phylobox, 'WWW::PhyloBox');
lives_ok sub {
$phylobox->create(
phyloFile => $newick,
response => "key",
)
}, 'creating newick';