32 self assert:( code = mcode). |
32 self assert:( code = mcode). |
33 self assert:( code = 'Miller' asSoundexCode). |
33 self assert:( code = 'Miller' asSoundexCode). |
34 |
34 |
35 #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten') |
35 #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten') |
36 do:[:w | |
36 do:[:w | |
37 code := soundex value:(w). |
37 code := soundex value:(w). |
38 self assert:( code = 'A235'). |
38 self assert:( code = 'A235'). |
39 mcode := miracode value:(w). |
39 mcode := miracode value:(w). |
40 self assert:( mcode = 'A235'). |
40 self assert:( mcode = 'A235'). |
41 ]. |
41 ]. |
42 |
42 |
43 #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder') |
43 #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder') |
44 do:[:w | |
44 do:[:w | |
45 code := soundex value:(w). |
45 code := soundex value:(w). |
46 self assert:( code = 'R360'). |
46 self assert:( code = 'R360'). |
47 mcode := miracode value:(w). |
47 mcode := miracode value:(w). |
48 self assert:( mcode = 'R360'). |
48 self assert:( mcode = 'R360'). |
49 ]. |
49 ]. |
50 |
50 |
51 #( 'Wace' 'Waugh' 'Wookey') |
51 #( 'Wace' 'Waugh' 'Wookey') |
52 do:[:w | |
52 do:[:w | |
53 code := soundex value:(w). |
53 code := soundex value:(w). |
54 self assert:( code = 'W200'). |
54 self assert:( code = 'W200'). |
55 mcode := miracode value:(w). |
55 mcode := miracode value:(w). |
56 self assert:( mcode = 'W200'). |
56 self assert:( mcode = 'W200'). |
57 ]. |
57 ]. |
58 |
58 |
59 code := soundex value:('Abbot'). |
59 code := soundex value:('Abbot'). |
60 mcode := miracode value:('Abbot'). |
60 mcode := miracode value:('Abbot'). |
61 self assert:( code = 'Abbot' asSoundexCode). |
61 self assert:( code = 'Abbot' asSoundexCode). |
127 self assert: ( miracode value:( 'ADHD' )) = 'A300' . "/ DIFFERENT from simple soundex |
127 self assert: ( miracode value:( 'ADHD' )) = 'A300' . "/ DIFFERENT from simple soundex |
128 self assert: ( miracode value:( 'ADWD' )) = 'A300' . "/ DIFFERENT from simple soundex |
128 self assert: ( miracode value:( 'ADWD' )) = 'A300' . "/ DIFFERENT from simple soundex |
129 |
129 |
130 "/ self assert: ( miracode value:( 'Ashcroft' )) = 'A22613' . |
130 "/ self assert: ( miracode value:( 'Ashcroft' )) = 'A22613' . |
131 self assert: ( miracode value:( 'Ashcroft' )) = 'A261' . |
131 self assert: ( miracode value:( 'Ashcroft' )) = 'A261' . |
132 self assert: ( miracode value:( 'Tymczak' )) = 'T522' . |
132 self assert: ( miracode value:( 'Tymczak' )) = 'T522' . |
133 self assert: ( miracode value:( 'Jackson' )) = 'J250' . |
133 self assert: ( miracode value:( 'Jackson' )) = 'J250' . |
134 self assert: ( miracode value:( 'Pfister' )) = 'P236' . |
134 self assert: ( miracode value:( 'Pfister' )) = 'P236' . |
135 self assert: ( miracode value:( 'Gutierrez' )) = 'G362' . |
135 self assert: ( miracode value:( 'Gutierrez' )) = 'G362' . |
136 self assert: ( miracode value:( 'Lee' )) = 'L000' . |
136 self assert: ( miracode value:( 'Lee' )) = 'L000' . |
137 "/ self assert: ( miracode value:( 'Washington' )) = 'W25235' . |
137 "/ self assert: ( miracode value:( 'Washington' )) = 'W25235' . |
138 self assert: ( miracode value:( 'Washington' )) = 'W252' . |
138 self assert: ( miracode value:( 'Washington' )) = 'W252' . |
139 |
139 |
140 self assert: ( miracode value:( 'Williams' )) = 'W452' . |
140 self assert: ( miracode value:( 'Williams' )) = 'W452' . |
141 "/ self assert: ( miracode value:( 'Baragwanath' )) = 'B6253' . |
141 "/ self assert: ( miracode value:( 'Baragwanath' )) = 'B6253' . |
142 self assert: ( miracode value:( 'Baragwanath' )) = 'B625' . |
142 self assert: ( miracode value:( 'Baragwanath' )) = 'B625' . |
143 self assert: ( miracode value:( 'Donnell' )) = 'D540' . |
143 self assert: ( miracode value:( 'Donnell' )) = 'D540' . |
144 self assert: ( miracode value:( 'Lloyd' )) = 'L300' . |
144 self assert: ( miracode value:( 'Lloyd' )) = 'L300' . |
145 self assert: ( miracode value:( 'Woolcock' )) = 'W422' . |
145 self assert: ( miracode value:( 'Woolcock' )) = 'W422' . |
146 ! ! |
146 ! ! |
147 |
147 |
148 !MiracodeStringComparatorTest class methodsFor:'documentation'! |
148 !MiracodeStringComparatorTest class methodsFor:'documentation'! |
149 |
149 |
150 version |
150 version |
151 ^ '$Header$' |
151 ^ '$Header$' |
152 ! ! |
152 ! ! |
|
153 |