use Test;

BEGIN { plan tests => 15 };

use Lingua::SV::Num2Word;

my $tests = {          7 => "sju",
                      42 => "fyrtiotvå",
	             100 => "etthundra",
	             123 => "etthundratjugotre",
	            1000 => "etttusen",
	            4711 => "fyratusensjuhundraelva",
	           10000 => "tiotusen",	           
		   62144 => "sextiotvåtusenetthundrafyrtiofyra",
	          100000 => "etthundratusen",
	          378842 => "trehundrasjutioåttatusenåttahundrafyrtiotvå", 
	         3425379 => "tre miljoner fyrahundratjugofemtusentrehundrasjutionio",
	        75893657 => "sjutiofem miljoner åttahundranittiotretusensexhundrafemtiosju",
	       531243385 => "femhundratrettioett miljoner tvåhundrafyrtiotretusentrehundraåttiofem",
              1000000000 => "", };

ok(1);

for (keys %$tests) {
    ok($tests->{$_} eq &Lingua::SV::Num2Word::num2sv_cardinal($_));
}