view release on metacpan or  search on metacpan

t/01-use.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 6;
use Acme::Github::Test;

my $acme = Acme::Github::Test->new( 23 => 'skidoo' );
isa_ok($acme, 'Acme::Github::Test', 'object');

ok($acme->freep, 'freep() returns true');
ok($acme->frobulate, 'frobulate() returns true');
is($acme->frobulate, 42, 'frobulate defaults to 42');
is($acme->frobulate('barbaz'), 'barbaz', 'frobulate correctly returns passed value');
is($acme->frobulate(0), 0, 'frobulate correctly uses a false value');