1 "{ Package: 'exept:regression' }"

     2 

     3 TestCase subclass:#MySQLSoundexStringComparatorTest

     4 	instanceVariableNames:'mc'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Collections-Text-Support'

     8 !

     9 

    10 

    11 !MySQLSoundexStringComparatorTest methodsFor:'running'!

    12 

    13 setUp

    14     mc := PhoneticStringUtilities::MySQLSoundexStringComparator new.

    15 ! !

    16 

    17 !MySQLSoundexStringComparatorTest methodsFor:'tests'!

    18 

    19 testWellKnownResults

    20     |code msoundex|

    21 

    22     msoundex := [:w | (mc phoneticStringsFor:w) first].

    23 

    24     self assert: ( msoundex value:( 'Swhgler' )) = 'S460' .  "/ DIFFERENT from simple soundex

    25 

    26     code := msoundex value:('Miller').

    27     self assert:( code = 'M460').

    28 

    29     #( 'Acton' 'Ashdown' 'Ashton' 'Astin' 'Aston' 'Austen' 'Austin' 'Austine' 'Axten')

    30     do:[:w |

    31         code := msoundex value:(w).

    32         self assert:( code = 'A235').

    33     ].

    34 

    35     #( 'Reader' 'Reeder' 'Rider' 'Ritter' 'Rothera' 'Rothra' 'Ruder' 'Rutter' 'Ryder')

    36     do:[:w |

    37         code := msoundex value:(w).

    38         self assert:( code = 'R360').

    39     ].

    40 

    41     #( 'Wace' 'Waugh' 'Wookey')

    42     do:[:w |

    43         code := msoundex value:(w).

    44         self assert:( code = 'W200').

    45     ].

    46 

    47     code := msoundex value:('Abbot').

    48     self assert:( code = 'A130' ).

    49 

    50     code := msoundex value:('Abbots').

    51     self assert:( code = 'A132' ).

    52 

    53     "/ DIFFERENT from soundex !!

    54     code := msoundex value:('Ashcroft').

    55     self assert:( code = 'A2613' ).

    56 

    57     code := msoundex value:('Lloyd').

    58     self assert:( code = 'L300' ).

    59 

    60     code := msoundex value:('Pfister').

    61     self assert:( code = 'P236' ).

    62 

    63     self assert: ( msoundex value:( 'A' )) = 'A000' .

    64     self assert: ( msoundex value:( 'B' )) = 'B000' .

    65     self assert: ( msoundex value:( 'C' )) = 'C000' .

    66     self assert: ( msoundex value:( 'D' )) = 'D000' .

    67     self assert: ( msoundex value:( 'E' )) = 'E000' .

    68     self assert: ( msoundex value:( 'F' )) = 'F000' .

    69     self assert: ( msoundex value:( 'G' )) = 'G000' .

    70     self assert: ( msoundex value:( 'H' )) = 'H000' .

    71     self assert: ( msoundex value:( 'I' )) = 'I000' .

    72     self assert: ( msoundex value:( 'J' )) = 'J000' .

    73     self assert: ( msoundex value:( 'K' )) = 'K000' .

    74     self assert: ( msoundex value:( 'L' )) = 'L000' .

    75     self assert: ( msoundex value:( 'M' )) = 'M000' .

    76     self assert: ( msoundex value:( 'N' )) = 'N000' .

    77     self assert: ( msoundex value:( 'O' )) = 'O000' .

    78     self assert: ( msoundex value:( 'P' )) = 'P000' .

    79     self assert: ( msoundex value:( 'Q' )) = 'Q000' .

    80     self assert: ( msoundex value:( 'R' )) = 'R000' .

    81     self assert: ( msoundex value:( 'S' )) = 'S000' .

    82     self assert: ( msoundex value:( 'T' )) = 'T000' .

    83     self assert: ( msoundex value:( 'U' )) = 'U000' .

    84     self assert: ( msoundex value:( 'V' )) = 'V000' .

    85     self assert: ( msoundex value:( 'W' )) = 'W000' .

    86     self assert: ( msoundex value:( 'X' )) = 'X000' .

    87     self assert: ( msoundex value:( 'Y' )) = 'Y000' .

    88     self assert: ( msoundex value:( 'Z' )) = 'Z000' .

    89 

    90     self assert: ( msoundex value:( 'AEHIOW' )) = 'A000' .

    91     self assert: ( msoundex value:( 'BPFV' )) = 'B000' .

    92     self assert: ( msoundex value:( 'CGJKQSXZ' )) = 'C000' .

    93     self assert: ( msoundex value:( 'DT' )) = 'D000' .

    94     self assert: ( msoundex value:( 'L' )) = 'L000' .

    95     self assert: ( msoundex value:( 'MN' )) = 'M000' .

    96     self assert: ( msoundex value:( 'R' )) = 'R000' .

    97 

    98     self assert: ( msoundex value:( 'ADAD' )) = 'A300' .   "/ DIFFERENT from simple soundex and american soundex

    99     self assert: ( msoundex value:( 'ADHD' )) = 'A300' .   "/ DIFFERENT from simple soundex

   100     self assert: ( msoundex value:( 'ADWD' )) = 'A300' .   "/ DIFFERENT from simple soundex

   101 

   102     self assert: ( msoundex value:( 'Ashcroft' )) = 'A2613' .

   103     self assert: ( msoundex value:( 'Tymczak' )) = 'T520' . 

   104     self assert: ( msoundex value:( 'Jackson' )) = 'J500' . 

   105     self assert: ( msoundex value:( 'Pfister' )) = 'P236' . 

   106     self assert: ( msoundex value:( 'Gutierrez' )) = 'G362' . 

   107     self assert: ( msoundex value:( 'Lee' )) = 'L000' . 

   108     self assert: ( msoundex value:( 'Washington' )) = 'W25235' . 

   109 

   110     self assert: ( msoundex value:( 'Williams' )) = 'W452' . 

   111     self assert: ( msoundex value:( 'Baragwanath' )) = 'B6253' . 

   112     self assert: ( msoundex value:( 'Donnell' )) = 'D540' . 

   113     self assert: ( msoundex value:( 'Lloyd' )) = 'L300' . 

   114     self assert: ( msoundex value:( 'Woolcock' )) = 'W420' .

   115 ! !

   116 

   117 !MySQLSoundexStringComparatorTest class methodsFor:'documentation'!

   118 

   119 version

   120     ^ '$Header$'

   121 ! !