--- a/RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st	Tue Aug 01 11:45:14 2017 +0200
+++ b/RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st	Tue Aug 01 11:45:25 2017 +0200
@@ -19,24 +19,38 @@
 !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)'.
+    "/ 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 ).
 
-    "/ compares all 4-char combinations against what?
-    $A to:$Z do:[:c1 |
         $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 = s asKoelnerPhoneticCode).
+                    "/ self assert:( code notEmpty ).
                 ].
             ].
         ].
     ].
 
     "Created: / 28-07-2017 / 09:21:39 / cg"
+    "Modified: / 29-07-2017 / 14:17:56 / cg"
 !
 
 test02_WellKnownResults