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

"{ NameSpace: RegressionTests }"

TestCase subclass:#PhonemStringComparatorTest

	instanceVariableNames:'sc'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections-Utilities'

!

!PhonemStringComparatorTest methodsFor:'initialize / release'!

setUp

    sc := PhoneticStringUtilities::PhonemStringComparator new

    "Modified: / 28-07-2017 / 16:03:19 / cg"

! !

!PhonemStringComparatorTest methodsFor:'tests'!

test02_WellKnownResults

    "tests some wellknown phonem codes"

    |code|

    ^ self.

    self skip:'Unshure, which implementation is correct'.

    "/ the following test vector is for another phonem implementation;

    "/ now, I don't know which one is correct...

    #(

        ('schneider'    'CNAYDR')

        ('fischer'      'VYCR')

        ('meyer'        'MAYR')

        ('mair'         'MAYR')

        ('schulz'       'CULC')

        ('becker'       'BCR')

        ('hoffmann'     'OVMAN')

        ('schaeffer'    'CVR')

        ('pfeifer'      'VAYVR')

        ('pfeiffer'     'VAYVR')

        ('Müller'       'MULR' )

        ('weber'        'BR')

        ('wagner'       'BACNR')

        ('bäker'        'BACR')

        ('schäfer'      'CAVR')

        ('computer'     'COMDUR')

    ) pairsDo:[:word :expectedCode |

        code := (sc phoneticStringsFor:word) first.

        self assert:(code = expectedCode).

    ].

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

    "Modified: / 31-07-2017 / 17:54:31 / cg"

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

! !

!PhonemStringComparatorTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !