28 code := msoundex value:('Miller'). |
28 code := msoundex value:('Miller'). |
29 self assert:( code = 'M460'). |
29 self assert:( code = 'M460'). |
30 |
30 |
31 #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten') |
31 #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten') |
32 do:[:w | |
32 do:[:w | |
33 code := msoundex value:(w). |
33 code := msoundex value:(w). |
34 self assert:( code = 'A235'). |
34 self assert:( code = 'A235'). |
35 ]. |
35 ]. |
36 |
36 |
37 #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder') |
37 #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder') |
38 do:[:w | |
38 do:[:w | |
39 code := msoundex value:(w). |
39 code := msoundex value:(w). |
40 self assert:( code = 'R360'). |
40 self assert:( code = 'R360'). |
41 ]. |
41 ]. |
42 |
42 |
43 #( 'Wace' 'Waugh' 'Wookey') |
43 #( 'Wace' 'Waugh' 'Wookey') |
44 do:[:w | |
44 do:[:w | |
45 code := msoundex value:(w). |
45 code := msoundex value:(w). |
46 self assert:( code = 'W200'). |
46 self assert:( code = 'W200'). |
47 ]. |
47 ]. |
48 |
48 |
49 code := msoundex value:('Abbot'). |
49 code := msoundex value:('Abbot'). |
50 self assert:( code = 'A130' ). |
50 self assert:( code = 'A130' ). |
51 |
51 |
100 self assert: ( msoundex value:( 'ADAD' )) = 'A300' . "/ DIFFERENT from simple soundex and american soundex |
100 self assert: ( msoundex value:( 'ADAD' )) = 'A300' . "/ DIFFERENT from simple soundex and american soundex |
101 self assert: ( msoundex value:( 'ADHD' )) = 'A300' . "/ DIFFERENT from simple soundex |
101 self assert: ( msoundex value:( 'ADHD' )) = 'A300' . "/ DIFFERENT from simple soundex |
102 self assert: ( msoundex value:( 'ADWD' )) = 'A300' . "/ DIFFERENT from simple soundex |
102 self assert: ( msoundex value:( 'ADWD' )) = 'A300' . "/ DIFFERENT from simple soundex |
103 |
103 |
104 self assert: ( msoundex value:( 'Ashcroft' )) = 'A2613' . |
104 self assert: ( msoundex value:( 'Ashcroft' )) = 'A2613' . |
105 self assert: ( msoundex value:( 'Tymczak' )) = 'T520' . |
105 self assert: ( msoundex value:( 'Tymczak' )) = 'T520' . |
106 self assert: ( msoundex value:( 'Jackson' )) = 'J500' . |
106 self assert: ( msoundex value:( 'Jackson' )) = 'J500' . |
107 self assert: ( msoundex value:( 'Pfister' )) = 'P236' . |
107 self assert: ( msoundex value:( 'Pfister' )) = 'P236' . |
108 self assert: ( msoundex value:( 'Gutierrez' )) = 'G362' . |
108 self assert: ( msoundex value:( 'Gutierrez' )) = 'G362' . |
109 self assert: ( msoundex value:( 'Lee' )) = 'L000' . |
109 self assert: ( msoundex value:( 'Lee' )) = 'L000' . |
110 self assert: ( msoundex value:( 'Washington' )) = 'W25235' . |
110 self assert: ( msoundex value:( 'Washington' )) = 'W25235' . |
111 |
111 |
112 self assert: ( msoundex value:( 'Williams' )) = 'W452' . |
112 self assert: ( msoundex value:( 'Williams' )) = 'W452' . |
113 self assert: ( msoundex value:( 'Baragwanath' )) = 'B6253' . |
113 self assert: ( msoundex value:( 'Baragwanath' )) = 'B6253' . |
114 self assert: ( msoundex value:( 'Donnell' )) = 'D540' . |
114 self assert: ( msoundex value:( 'Donnell' )) = 'D540' . |
115 self assert: ( msoundex value:( 'Lloyd' )) = 'L300' . |
115 self assert: ( msoundex value:( 'Lloyd' )) = 'L300' . |
116 self assert: ( msoundex value:( 'Woolcock' )) = 'W420' . |
116 self assert: ( msoundex value:( 'Woolcock' )) = 'W420' . |
117 ! ! |
117 ! ! |
118 |
118 |
119 !MySQLSoundexStringComparatorTest class methodsFor:'documentation'! |
119 !MySQLSoundexStringComparatorTest class methodsFor:'documentation'! |
120 |
120 |
121 version |
121 version |
122 ^ '$Header$' |
122 ^ '$Header$' |
123 ! ! |
123 ! ! |
|
124 |