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

"{ NameSpace: RegressionTests }"

TestCase subclass:#MetaphoneStringComparatorTest

	instanceVariableNames:'sc'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections-Utilities'

!

!MetaphoneStringComparatorTest methodsFor:'initialize / release'!

setUp

    sc := PhoneticStringUtilities::MetaphoneStringComparator new

    "Modified: / 02-08-2017 / 13:03:33 / cg"

! !

!MetaphoneStringComparatorTest methodsFor:'tests'!

test01_SomeCombinations

    "tests if all char combinations up to size 4 can be soundexed"

    |code s|

    ^ self.

    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.

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

            s := String with:c1 with:c2.

            code := (sc phoneticStringsFor:s) first.

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

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

                code := (sc phoneticStringsFor:s) first.

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

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

                    code := (sc phoneticStringsFor:s) first.

                    self assert:( code = s asSoundexCode).

                ].

            ].

        ].

    ].

    "Created: / 27-07-2017 / 15:14:53 / cg"

    "Modified: / 31-07-2017 / 17:51:21 / cg"

!

test02_WellKnownResults

    "tests some wellknown metaphone codes"

    #(

        'a'         'A'

        'Miller'    'MLR'

        'ch'        'X'

        'ANASTHA'         'ANS0'

        'DAVIS-CARTER'    'TFSKRTR'

        'ESCARMANT'       'ESKRMNT'

        'MERSEAL'         'MRSL'

        'PIEURISSAINT'    'PRSNT'

        'ROTMAN'          'RTMN' 

        'SEAL'            'SL'   

        'SPARR'           'SPR' 

        'STARLEPER'       'STRLPR'

        'THRASH'          '0RX' 

        'LOGGING'         'LKNK'

        'LOGIC'           'LJK'

        'JUDGES'          'JJS'

        'SHOOS'           'XS'

        'SHOES'           'XS'

        'OTTO'            'OT'

        'ERIC'            'ERK'

        'DAVE'            'TF'

        'CATHERINE'       'K0RN'

        'KATHERINE'       'K0RN'

        'AUBREY'          'ABR'

        'BRYAN'           'BRYN'

        'BRYCE'           'BRS'

        'STEVEN'          'STFN'

        'HEIDI'           'HT'

        'AUTO'            'AT'

        'MAURICE'         'MRS'

        'RANDY'           'RNT'

        'CAMBRILLO'       'KMBRL'

        'BRIAN'           'BRN'

        'RAY'             'R'

        'GEOFF'           'JF'

        'BOB'             'BB'

        'AHA'             'AH'

        'AAH'             'A'

        'PAUL'            'PL'

        'BATTLEY'         'BTL'

        'WROTE'           'RT'

        'THIS'            '0S'

        'MCCALL'          'MKL'

        'MCCROREY'        'MKRR'

        'Sch'       'SX'

        'Schi'      'SX'

        'Schmid'    'SXMT'

        'Schmidt'   'SXMTT'     "/ bad, but that is how metaphone works

        'Schmit'    'SXMT'

        'Schmitt'   'SXMDT'

        'CHUTE'           'XT'

        'SCHEVEL'         'SXFL'

        'SCHROM'          'SXRM'  

        'SCHUSS'          'SXS'

        'RICHARD'         'RXRT'

    ) pairWiseDo:[:word :expected |   

        |whatIGot|

        whatIGot := sc encode:word.

        self assert: (whatIGot = expected).

    ].

    "Created: / 27-07-2017 / 15:14:59 / cg"

    "Modified (comment): / 03-08-2017 / 14:57:10 / cg"

!

test03_SomeCombinations

    |code|

    "/ code := (sc phoneticStringsFor:'AAH') first.

    code := (sc encode:'AAH').

    self assert:( code = 'A').

    "Created: / 03-08-2017 / 14:53:40 / cg"

! !

!MetaphoneStringComparatorTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !