"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#KoelnerPhoneticCodeStringComparatorTest

	instanceVariableNames:'sc'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections-Utilities'

!

!KoelnerPhoneticCodeStringComparatorTest methodsFor:'initialize / release'!

setUp

    sc := PhoneticStringUtilities::KoelnerPhoneticCodeStringComparator new

! !

!KoelnerPhoneticCodeStringComparatorTest methodsFor:'tests'!

test01_SomeCombinations

    "tests if all character combinations (up to 4 chars) are handled"

    |code s|

    "/ self skip:'this test does not really test anything (except if all 4-char string combinations can be soundexed)'.

    $A to:$Z do:[:c1 |

        s := String with:c1.

        code := (sc phoneticStringsFor:s) first.

        "/ self assert:( code notEmpty ).

        $A to:$Z do:[:c2 |

            s := String with:c1 with:c2.

            code := (sc phoneticStringsFor:s) first.

            "/ self assert:( code notEmpty ).

            $A to:$Z do:[:c3 |

                s := String with:c1 with:c2 with:c3.

                code := (sc phoneticStringsFor:s) first.

                "/ self assert:( code notEmpty ).

                $A to:$Z do:[:c4 |

                    s := String with:c1 with:c2 with:c3 with:c4.

                    code := (sc phoneticStringsFor:s) first.

                    "/ self assert:( code notEmpty ).

                ].

            ].

        ].

    ].

    "Created: / 28-07-2017 / 09:21:39 / cg"

    "Modified: / 29-07-2017 / 14:17:56 / cg"

!

test02_WellKnownResults

    |code koeln|

    koeln := [:w | (sc phoneticStringsFor:w) first].

    code := (sc phoneticStringsFor:'Miller') first.

    self assert:( code = 'Miller' asKoelnerPhoneticCode).

    #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')

    do:[:w |

        code := koeln value:(w).

        self assert:( code = (w asKoelnerPhoneticCode)).

    ].

    #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')

    do:[:w |

        code := koeln value:(w).

        self assert:( code = (w asKoelnerPhoneticCode)).

    ].

    #( 'Wace' 'Waugh' 'Wookey')

    do:[:w |

        code := koeln value:(w).

        self assert:( code = (w asKoelnerPhoneticCode)).

    ].

    code := koeln value:('Abbot').

    self assert:( code = 'Abbot' asKoelnerPhoneticCode).

    code := koeln value:('Abbots').

    self assert:( code = 'Abbots' asKoelnerPhoneticCode).

    code := koeln value:('Ashcroft').

    self assert:( code = 'Ashcroft' asKoelnerPhoneticCode).

    code := koeln value:('Lloyd').

    self assert:( code = 'Lloyd' asKoelnerPhoneticCode).

    code := koeln value:('Pfister').

    self assert:( code = 'Pfister' asKoelnerPhoneticCode).

    self assert: ( koeln value:( 'A' )) = ('A' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'B' )) = ('B' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'C' )) = ('C' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'D' )) = ('D' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'E' )) = ('E' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'F' )) = ('F' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'G' )) = ('G' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'H' )) = ('H' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'I' )) = ('I' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'J' )) = ('J' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'K' )) = ('K' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'L' )) = ('L' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'M' )) = ('M' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'N' )) = ('N' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'O' )) = ('O' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'P' )) = ('P' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'Q' )) = ('Q' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'R' )) = ('R' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'S' )) = ('S' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'T' )) = ('T' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'U' )) = ('U' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'V' )) = ('V' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'W' )) = ('W' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'X' )) = ('X' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'Y' )) = ('Y' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'Z' )) = ('Z' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'AEHIOW' )) = ('AEHIOW' asKoelnerPhoneticCode) .

    self assert: ( koeln value:( 'BPFV' )) = ('BPFV' asKoelnerPhoneticCode).

    self assert: ( koeln value:( 'CGJKQSXZ' )) = ('CGJKQSXZ'  asKoelnerPhoneticCode).

    self assert: ( koeln value:( 'DT' )) = ('DT'  asKoelnerPhoneticCode).

    self assert: ( koeln value:( 'L' )) = ('L'  asKoelnerPhoneticCode).

    self assert: ( koeln value:( 'MN' )) = ('MN'  asKoelnerPhoneticCode).

    self assert: ( koeln value:( 'R' )) = ('R'  asKoelnerPhoneticCode).

    "Created: / 28-07-2017 / 09:21:47 / cg"

!

test03_WellKnownResults

    |code|

    code := PhoneticStringUtilities koelnerPhoneticCodeOf:'Breschnew'.

    self assert:(code = '17863').

    "/ these all sound similar - so they should get the same code

    #(

        'Breschnew'

        'Breschneff'

        'Braeschneff'

        'Braessneff' 

        'Pressneff' 

        'Presznäph'

        'Präschnäf'

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '17863').

    ].

    "/ these all sound similar - so they should get the same code

    #(

        'müller'

        'mueller'

        'Mueller'

        'Muehler'

        'Mueler'

        'Müler'

        'Mühler'

        'Mühlher'

        'Mühlherr'

        'Mülherr'

        'Müllherr'

        'Mülleer'

        'Mülar'

        'Muelherr'

        'Muelar'

        'möller'

        'miller'

        'muller' 

        'muler' 

        'myler' 

        'mylar' 

        'myller' 

        'myller' 

        'nyller' 

        'nüller' 

        'niller' 

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '657').

    ].

    "/ these all sound similar - so they should get the same code

    #(

        'schmidt'

        'schmid'

        'schmit'

        'schmidtt' 

        'schmidd' 

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '862').

    ].

    "/ these all sound similar - so they should get the same code

    #(

        'schneider'

        'sneider'

        'shneider'

        'schneiter'

        'schneitar'

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '8627').

    ].

    "/ these all sound similar - so they should get the same code

    #(

        'weber'

        'webber'

        'weeber'

        'wehber'

        'weper'

        'wepper'

        'weppar'

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '317').

    ].

    "/ these all sound similar - so they should get the same code

    #(

        'meyer'

        'mayer'

        'meier'

        'maier'

        'maiar'

        'meiar'

        'meyar'

        'meyer'

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '67').

    ].

    #(

        'Czerny'

        'Tscherny'

        'Czernie'

        'Tschernie'

        'Schernie'

        'Scherny'

        'Scherno'

        'Czerne'

        'Zerny'

        'Zerne'

        'Zerni'

        'cerni'

        'tscherni'

        'tserni'

        'serni'

        'Tzernie'

        'Tzernie'

    ) do:[:each |

        self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:each) = '876').

    ].

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'fischer') = '387').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'wagner') = '3467').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'vagner') = '3467').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schulz') = '858').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schultz') = '858').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schults') = '858').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'becker') = '147').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'hoffmann') = '036').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'hofmann') = '036').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'hovmann') = '036').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'hovman') = '036').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schäfer') = '837').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schäffer') = '837').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schaeffer') = '837').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'schaefer') = '837').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'Müller-Lüdenscheidt') = '65752682').

    self assert:((PhoneticStringUtilities koelnerPhoneticCodeOf:'Mueller-Litenscheidt') = '65752682').

    "Created: / 28-07-2017 / 09:36:16 / cg"

! !

!KoelnerPhoneticCodeStringComparatorTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !