view release on metacpan or  search on metacpan

t/Base.t  view on Meta::CPAN

#!/usr/bin/env perl

use t::TestHelper;

plan tests => 6;

use_ok('Bio::Cellucidate::Base');

# args
is_deeply(Bio::Cellucidate::Base->args( { foo => 'bar' }), { foo => 'bar' }, "Should parse arguments properly");
is_deeply(Bio::Cellucidate::Base->args('foo'), 'foo', "Should parse arguments properly");

# formulate_query
my $args = { foo => 'bar', fizzle => 'fuzzle' };
like(Bio::Cellucidate::Base->formulate_query($args), qr/^\?.*/, "Should parse arguments properly");
like(Bio::Cellucidate::Base->formulate_query($args), qr/foo=bar/, "Should parse arguments properly");
like(Bio::Cellucidate::Base->formulate_query($args), qr/fizzle=fuzzle/, "Should parse arguments properly");

1;