1	#=============================================================================
     2	#
     3	# testSoundex.io - Test the Soundex.io implementation.
     4	#
     5	# Tov Are Jacobsen 2003 <mail@tovare.com>
     6	#
     7	#=============================================================================
       
     8	doFile(launchPath appendPath("soundex.io"))
       
     9	"The soundex coding is used to encode surnames, so that similar" linePrint
    10	"sounding names has identical codes." linePrint
       
    11	surnames := List clone do(
    12		add("Jensen")
    13		add("Jonassen")
    14		add("Jonasen")
    15		add("Jacobsen")
    16		add("Jakobsen")
    17		add("Fischer")
    18		add("Fisher")
    19		add("Gustavsen")
    20		add("Gustafsson")
    21		add("Gustafsen")
    22		add("Handeland")
    23	)
       
    24	surnames foreach(j, name,
    25		write(Soundex encode(name)," (",name, ")\n")
    26	)