--- a/RegressionTests__SoundexStringComparatorTest.st	Mon Jul 31 16:36:43 2017 +0200
+++ b/RegressionTests__SoundexStringComparatorTest.st	Tue Aug 01 11:44:50 2017 +0200
@@ -19,16 +19,26 @@
 !SoundexStringComparatorTest methodsFor:'tests'!
 
 test01_SomeCombinations
-    "tests regular soundex"
+    "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)'.
 
-    "/ compares all 4-char combinations against what?
     $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.
@@ -39,7 +49,7 @@
     ].
 
     "Created: / 27-07-2017 / 15:14:53 / cg"
-    "Modified: / 28-07-2017 / 09:43:53 / cg"
+    "Modified: / 31-07-2017 / 17:51:21 / cg"
 !
 
 test02_WellKnownResults