### ----------------------------------------------------
### -- Lingua::NumericWordForms
### -- Licenses: Artistic-2.0
### -- Authors: Anton Antonov
### -- File: t/Translation.rakutest
### ----------------------------------------------------
use v6.d;

use Test;

# use lib <. ./lib>;

use Lingua::NumericWordForms;

plan 3;

## 1
my $numForm1 = "три тысячи восемьсот девяносто";
my $trRes1 = translate-numeric-word-form($numForm1, 'automatic' => 'English');
my $num1 = from-numeric-word-form($trRes1);

is $num1, 3890;

## 2
my $numForm2 = "три тысячи восемьсот девяносто";
my $trRes2 = translate-numeric-word-form($numForm2, 'automatic' => 'Koremutake');
my $num2 = from-numeric-word-form($trRes2);

is $num2, 3890;

## 3
my $numForm3 = "три тысячи восемьсот девяносто";
my $trRes3 = translate-numeric-word-form($numForm3, from => Whatever, to => 'Koremutake');
my $num3 = from-numeric-word-form($trRes3);

is $num3, 3890;

done-testing;


