### ----------------------------------------------------
### -- Lingua::Stem::Russian
### -- Licenses: Artistic-2.0
### -- Authors: Anton Antonov
### -- File: t/01-stem-word.rakutest
### ----------------------------------------------------
use v6.d;
use Test;

use lib '.';
use lib './lib';

use Lingua::Stem::Russian;

my %stemWords =
        гуля => <гулял гуляла гуляли>,
        ход => <ходить ходил ходили>,
        езд => <ездить езда езд>,
        отрицательн => <отрицательный отрицательная отрицательное отрицательные>,
        независим => <независимый независимая независимое независимые>,
        факторизац => <факторизация факторизацию>;

%stemWords = %stemWords.map({ $_.value.Array X=> $_.key }).flat;

plan 2;

## 1
is %stemWords.elems, 19, 'expected length';

## 2
is reduce(&infix:<&&>, %stemWords.map({ RussianStem($_.key) eq $_.value })),
        True,
        'correct stems';

done-testing;


