#!/usr/bin/perl -w
use strict;
use Test;
BEGIN { plan tests => 140 }
use Lingua::Slavic::Numbers;

use vars qw(%numbers);
do 't/numbers';
do 't/rig.pm';

rig($numbers{LANG_BG()}, sub
    {
     my $num = Lingua::Slavic::Numbers->new(shift, Lingua::Slavic::Numbers::LANG_BG);
     ok( defined $num );
     return $num->get_string();
    });