--- 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').