--- a/RegressionTests__SoundexStringComparatorTest.st Fri Jul 28 16:11:00 2017 +0200
+++ b/RegressionTests__SoundexStringComparatorTest.st Fri Jul 28 20:45:26 2017 +0200
@@ -45,7 +45,7 @@
test02_WellKnownResults
"tests regular soundex"
- |code soundex|
+ |code soundex xx|
soundex := [:w | (sc phoneticStringsFor:w) first].
@@ -182,8 +182,24 @@
self assert: ( soundex value:( 'Rupert' )) = 'R163' .
self assert: ( soundex value:( 'Rubin' )) = 'R150' .
+ "/ must check - my values are different
+"/ #('Fusedale')
+"/ do:[:each | self assert: ( soundex value:each) = 'F234'].
+"/
+"/ #('Genthner' 'Gentner' 'Gianettini' 'Gunton')
+"/ do:[:each | self assert: ( soundex value:each) = 'G535'].
+"/
+"/ #('Garlee' 'Garley' 'Garwell' 'Garwill' 'Gerrell' 'Gerrill' 'Giral' 'Gorelli' 'Gorioli' 'Gourlay' 'Gourley' 'Gourlie' 'Graal' 'Grahl' 'Grayley' 'Grealey' 'Greally' 'Grealy' 'Grioli' 'Groll' 'Grolle' 'Guerola' 'Gurley')
+"/ do:[:each | self assert: ( soundex value:each) = 'G640'].
+"/
+"/ #('Hadcroft' 'Hadgraft' 'Hatchard' 'Hatcher' 'Hatzar' 'Hedger' 'Hitscher' 'Hodcroft' 'Hutchcraft')
+"/ do:[:each | xx := each. self assert: ( soundex value:each) = 'H326'].
+"/
+"/ #('Parade' 'Pardew' 'Pardey' 'Pardi' 'Pardie' 'Pardoe' 'Pardue' 'Pardy' 'Parradye' 'Parratt' 'Parrett' 'Parrot' 'Parrott' 'Pearde' 'Peart' 'Peaurt' 'Peert' 'Perdue' 'Peret' 'Perett' 'Perot' 'Perott' 'Perotti' 'Perrat' 'Perrett' 'Perritt' 'Perrot' 'Perrott' 'Pert' 'Perutto' 'Pirdue' 'Pirdy' 'Pirot' 'Pirouet' 'Pirt' 'Porrett' 'Porritt' 'Port' 'Porte' 'Portt' 'Prate' 'Prati' 'Pratt' 'Pratte' 'Pratty' 'Preddy' 'Preedy' 'Preto' 'Pretti' 'Pretty' 'Prewett' 'Priddey' 'Priddie' 'Priddy' 'Pride' 'Pridie' 'Pritty' 'Prott' 'Proud' 'Prout' 'Pryde' 'Prydie' 'Purdey' 'Purdie' 'Purdy')
+"/ do:[:each | xx := each. self assert: ( soundex value:each) = 'P630'].
+
"Created: / 27-07-2017 / 15:14:59 / cg"
- "Modified (comment): / 28-07-2017 / 10:01:47 / cg"
+ "Modified: / 28-07-2017 / 20:45:20 / cg"
! !
!SoundexStringComparatorTest class methodsFor:'documentation'!