#=============================================================================
#
# testSoundex.io - Test the Soundex.io implementation.
#
# Tov Are Jacobsen 2003 <mail@tovare.com>
#
#=============================================================================

doFile(launchPath appendPath("soundex.io"))

"The soundex coding is used to encode surnames, so that similar" linePrint
"sounding names has identical codes." linePrint

surnames := List clone do(
	add("Jensen")
	add("Jonassen")
	add("Jonasen")
	add("Jacobsen")
	add("Jakobsen")
	add("Fischer")
	add("Fisher")
	add("Gustavsen")
	add("Gustafsson")
	add("Gustafsen")
	add("Handeland")
)

surnames foreach(j, name,
	write(Soundex encode(name)," (",name, ")\n")
)