use Test::More;
use Acme::Geo::Whitwell::Name;

my %expected = (
   1 => [ qw(Atou   Bout   ) ],
  -7 => [ qw(Eesout Nouvou ) ],
  "35.27N" => [ qw(Ilen Fudee ) ], # positive
  "35.27S" => [ qw(Isudee Fuven ) ], # negative
  "35.27E" => [ qw(Ilen Fudee ) ], # positive
  "35.27W" => [ qw(Isudee Fuven ) ], # negative
);

plan tests => (int keys %expected) * 2;

foreach my $arg (keys %expected) {
   my @expected = @{ $expected{$arg} };

   is Acme::Geo::Whitwell::Name::_vowel_build($arg), $expected[0],
       "vowel substitution $expected[0] right for $arg"; 
   is Acme::Geo::Whitwell::Name::_consonant_build($arg), $expected[1],
       "consonant substitution $expected[1] right for $arg"; 
}