--- a/RegressionTests__MiracodeStringComparatorTest.st Fri Jul 28 10:03:05 2017 +0200
+++ b/RegressionTests__MiracodeStringComparatorTest.st Fri Jul 28 10:03:10 2017 +0200
@@ -34,26 +34,26 @@
#( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'A235').
- mcode := miracode value:(w).
- self assert:( mcode = 'A235').
+ code := soundex value:(w).
+ self assert:( code = 'A235').
+ mcode := miracode value:(w).
+ self assert:( mcode = 'A235').
].
#( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'R360').
- mcode := miracode value:(w).
- self assert:( mcode = 'R360').
+ code := soundex value:(w).
+ self assert:( code = 'R360').
+ mcode := miracode value:(w).
+ self assert:( mcode = 'R360').
].
#( 'Wace' 'Waugh' 'Wookey')
do:[:w |
- code := soundex value:(w).
- self assert:( code = 'W200').
- mcode := miracode value:(w).
- self assert:( mcode = 'W200').
+ code := soundex value:(w).
+ self assert:( code = 'W200').
+ mcode := miracode value:(w).
+ self assert:( mcode = 'W200').
].
code := soundex value:('Abbot').
@@ -128,7 +128,7 @@
self assert: ( miracode value:( 'ADWD' )) = 'A300' . "/ DIFFERENT from simple soundex
"/ self assert: ( miracode value:( 'Ashcroft' )) = 'A22613' .
- self assert: ( miracode value:( 'Ashcroft' )) = 'A261' .
+ self assert: ( miracode value:( 'Ashcroft' )) = 'A261' . "/ DIFFERENT from simple soundex
self assert: ( miracode value:( 'Tymczak' )) = 'T522' .
self assert: ( miracode value:( 'Jackson' )) = 'J250' .
self assert: ( miracode value:( 'Pfister' )) = 'P236' .
@@ -143,6 +143,8 @@
self assert: ( miracode value:( 'Donnell' )) = 'D540' .
self assert: ( miracode value:( 'Lloyd' )) = 'L300' .
self assert: ( miracode value:( 'Woolcock' )) = 'W422' .
+
+ "Modified (comment): / 28-07-2017 / 10:02:49 / cg"
! !
!MiracodeStringComparatorTest class methodsFor:'documentation'!