Acme-Buga

 view release on metacpan or  search on metacpan

t/00-load.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

use FindBin;
use lib "$FindBin::Bin/../lib";

BEGIN {
    use_ok 'Acme::Buga';
    require_ok 'Acme::Buga';
}

done_testing;

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

use strict;
use warnings;

use Test::More;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::Buga 'buga';

subtest 'test constuctor' => sub {
    my $obj = Acme::Buga->new;

    ok $obj;
    isa_ok $obj, 'Acme::Buga';
};

t/accessors.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::Buga;


subtest 'acessor exists' => sub {
    my $b = Acme::Buga->new;

    can_ok 'Acme::Buga', $_ for qw/base8 value/;
};

t/decode.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::Buga 'buga';

# result
my $coded = 'buGa BUGA Buga BUga buGa BUGA BUga BugA BugA BUGA Buga BUga buGa buga';
my $res   = 'Teste';


subtest 'decode test constructor param' => sub {
    my $b = Acme::Buga->new( value => $coded );

t/encode.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::Buga 'buga';

# result
my $res   = 'buGa BUGA Buga BUga buGa BUGA BUga BugA BugA BUGA Buga BUga buGa buga';
my $coded = 'Teste';


subtest 'encode test constructor param' => sub {
    my $b = Acme::Buga->new( value => $coded );

test.pl  view on Meta::CPAN

use FindBin;
use lib "$FindBin::Bin/lib";

use Acme::Buga 'buga';

## OO api
my $b = Acme::Buga->new;

my $en = $b->encode('Test');
print "Encode: $en \n";

my $de = $b->decode($en);