#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Fri, 28 Jul 2017 10:03:05 +0200
changeset 1656 71e3a8ac760f
parent 1655 146a90714d5c
child 1657 af145bfbdb2f
#QUALITY by cg class: RegressionTests::SoundexStringComparatorTest changed: #test02_WellKnownResults
RegressionTests__SoundexStringComparatorTest.st
--- a/RegressionTests__SoundexStringComparatorTest.st	Fri Jul 28 09:53:40 2017 +0200
+++ b/RegressionTests__SoundexStringComparatorTest.st	Fri Jul 28 10:03:05 2017 +0200
@@ -132,7 +132,7 @@
     self assert: ( soundex value:( 'ADWD' )) = 'A330' .  "/ DIFFERENT from miracode (american) soundex
 
     "/ self assert: ( soundex value:( 'Ashcroft' )) = 'A22613' .
-    self assert: ( soundex value:( 'Ashcroft' )) = 'A226' .
+    self assert: ( soundex value:( 'Ashcroft' )) = 'A226' . "/ DIFFERENT from miracode (american) soundex
     self assert: ( soundex value:( 'Tymczak' )) = 'T522' .
     self assert: ( soundex value:( 'Jackson' )) = 'J250' .
     self assert: ( soundex value:( 'Pfister' )) = 'P236' .
@@ -178,7 +178,12 @@
     self assert: ( soundex value:( 'Zita' )) = 'Z300' .
     self assert: ( soundex value:( 'Zitzmeinn' )) = 'Z325' .
 
+    self assert: ( soundex value:( 'Robert' )) = 'R163' .
+    self assert: ( soundex value:( 'Rupert' )) = 'R163' .
+    self assert: ( soundex value:( 'Rubin' )) = 'R150' .
+
     "Created: / 27-07-2017 / 15:14:59 / cg"
+    "Modified (comment): / 28-07-2017 / 10:01:47 / cg"
 ! !
 
 !SoundexStringComparatorTest class methodsFor:'documentation'!