### ----------------------------------------------------
### -- Math::Sequences
### -- Licenses: Artistic-2.0
### -- Authors: Aaron Sherman, JJ Merelo, Anton Antonov
### -- File: t/number-words.rakutest
### ----------------------------------------------------
use Test;

use Math::Util::SpellNumbers;

my %tests = (
	10 => 'ten',
	1252 => 'one thousand, two hundred fifty-two',
	86_000_000 => 'eighty-six million',
	-1 => 'negative one',
	0 => 'zero',
);

plan %tests.elems;

for %tests.kv -> $number, $name {
	is as-words($number, :lang<en>), $name, $name;
}

# vim: expandtab shiftwidth=4


