view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

MANIFEST
README
LICENSE
TODO
Changes
Makefile.PL
lib/Acme/123.pm
t/001_load.t
t/002_numbers.t
META.yml                                 Module meta-data (added by MakeMaker)

t/002_numbers.t  view on Meta::CPAN

# -*- perl -*-

# t/001_numbers.t - check if numbers in database are correct

use Test::More tests => 4;

use Acme::123;
my $object = Acme::123->new();
my @numbers = $object->getnumbers();
is($numbers[0],"one","English language as default language");
is($numbers[9],"ten","Check all numbers are in English numbers array");
$object->setLanguage('fr');
@numbers = $object->getnumbers();