RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b
--- a/RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__KoelnerPhoneticCodeStringComparatorTest.st	Thu Jun 30 09:02:08 2016 +0100
@@ -21,17 +21,17 @@
 testSomeCombinations
     |code s|
 
-    "/ compares all 4-char combinations against 
+    "/ compares all 4-char combinations against
     $A to:$Z do:[:c1 |
-        $A to:$Z do:[:c2 |
-            $A to:$Z do:[:c3 |
-                $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).
-                ].
-            ].
-        ].
+	$A to:$Z do:[:c2 |
+	    $A to:$Z do:[:c3 |
+		$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).
+		].
+	    ].
+	].
     ].
 !
 
@@ -45,20 +45,20 @@
 
     #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')
     do:[:w |
-        code := koeln value:(w).
-        self assert:( code = (w asKoelnerPhoneticCode)).
+	code := koeln value:(w).
+	self assert:( code = (w asKoelnerPhoneticCode)).
     ].
 
     #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')
     do:[:w |
-        code := koeln value:(w).
-        self assert:( code = (w asKoelnerPhoneticCode)).
+	code := koeln value:(w).
+	self assert:( code = (w asKoelnerPhoneticCode)).
     ].
 
     #( 'Wace' 'Waugh' 'Wookey')
     do:[:w |
-        code := koeln value:(w).
-        self assert:( code = (w asKoelnerPhoneticCode)).
+	code := koeln value:(w).
+	self assert:( code = (w asKoelnerPhoneticCode)).
     ].
 
     code := koeln value:('Abbot').