initial checkin
class: RegressionTests::ValueHolderTests
added: #test01_BlockValue
class: RegressionTests::ValueHolderTests class
"{ 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$'
! !