# -*- perl -*-

# t/006_daitchmokotoff.t - daitchmokotoff test 

use Test::Most tests=>27+1;
use Test::NoWarnings;
use utf8;

use Text::Phonetic::DaitchMokotoff;

require "t/global.pl";

my $dm = Text::Phonetic::DaitchMokotoff->new();

my %TEST = (
    ALPERT      => ['087930'],
    BREUER      => ['791900'],
    HABER       => ['579000'],
    MANHEIM     => ['665600'],
    MINTZ       => ['664000'],
    TOPF        => ['370000'],
    KLEINMAN    => ['586660'],
    SZLAMAVITZ  => ['486740'],
    SHLAMOWICZ  => ['486740'],
    AUERBACH    => ['097500','097400'],
    OHRBAC      => ['097500','097400'],
    LIPSHITZ    => ['874400'],
    LIPPSZYC    => ['874500','874400'],
    'Müller'    => ['689000'],
    schmidt     => ['463000'],
    schneider   => ['463900'],
    fischer     => ['749000'],
    weber       => ['779000'],
    meyer       => ['619000'],
    wagner      => ['756900'],
    schulz      => ['484000'],
    becker      => ['749000','745900'],
    hoffmann    => ['576600'],
    schäfer     => ['479000'],
);

isa_ok($dm,'Text::Phonetic::DaitchMokotoff');
while (my($key,$value) = each(%TEST)) {
	test_encode($dm,$key,$value);
}

is($dm->compare('LIPSHITZ','LIPPSZYC'),50);
is($dm->compare('Hase','Bär'),0);