Acme-123

 view release on metacpan or  search on metacpan

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();
is($numbers[0],"un","French language check");
is($numbers[9],"dix","Another French language check");



( run in 0.394 second using v1.01-cache-2.11-cpan-0a6323c29d9 )