view release on metacpan or  search on metacpan

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

#!perl -T
use 5.006;
use strict;
use warnings;
use Test::More;

plan tests => 1;

BEGIN {
    use_ok( 'Acme::ARUHI::Utils' ) || print "Bail out!\n";
}

diag( "Testing Acme::ARUHI::Utils $Acme::ARUHI::Utils::VERSION, Perl $], $^X" );

t/Util.t  view on Meta::CPAN

#!perl -T
use 5.006;
use strict;
use warnings;
use Test::More;

BEGIN {
    use_ok( 'Acme::ARUHI::Utils' ) || print "Bail out!\n";
}

ok(defined &Acme::ARUHI::Utils::sum);
is(sum, undef);
is(sum(1), 1);
is(sum(1,2), 3);
is(sum(1,2,3), 6);
is(sum(qw/a 1 2/), 3);
is(sum(qw/a b c/), undef);