--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__PhonemStringComparatorTest.st	Fri Jul 28 16:11:00 2017 +0200
@@ -0,0 +1,71 @@
+"{ Encoding: utf8 }"
+
+"{ Package: 'stx:goodies/regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#PhonemStringComparatorTest
+	instanceVariableNames:'sc'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Collections-Utilities'
+!
+
+
+!PhonemStringComparatorTest methodsFor:'running'!
+
+setUp
+    sc := PhoneticStringUtilities::PhonemStringComparator new
+
+    "Modified: / 28-07-2017 / 16:03:19 / cg"
+! !
+
+!PhonemStringComparatorTest methodsFor:'tests'!
+
+test02_WellKnownResults
+    "tests phonem soundex"
+
+    |code|
+
+    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 (format): / 28-07-2017 / 16:10:32 / cg"
+! !
+
+!PhonemStringComparatorTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+! !
+