1N/A# Revision 1.2 1994/03/24 00:30:27 mike 1N/A# Subtle bug (any excuse :-) spotted by Rich Pinder <rpinder@hsc.usc.edu> 1N/A# in the way I handles leasing characters which were different but had 1N/A# the same soundex code. This showed up comparing it with Oracle's 1N/A# Revision 1.1 1994/03/02 13:03:02 mike 1N/A chdir 't' if -d 't'; 1N/A# Knuth's test cases, scalar in, scalar out 1N/A# check default bad code 1N/A# check array in, array out 1N/A('Ellery', 'Ghosh', 'Heilbronn', 'Kant', 'Ladd', 'Lissajous'):
('E460', 'G200', 'H416', 'K530', 'L300', 'L222') 1N/A# check array with explicit undef 1N/A# check setting $Text::Soundex::noCode 1N/A('Mike', undef, 'Stok'):
('M200', 'Z000', 'S320') 1N/A# a subtle difference between me & oracle, spotted by Rich Pinder 1N/A# <rpinder@hsc.usc.edu>