"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#DoubleMetaphoneStringComparatorTest
	instanceVariableNames:'dmsc'
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Collections-Utilities'
!

DoubleMetaphoneStringComparatorTest comment:'Tests for the DoubleMetaphoneStringComparator class.'
!


!DoubleMetaphoneStringComparatorTest methodsFor:'initialize / release'!

setUp

	dmsc := PhoneticStringUtilities::DoubleMetaphoneStringComparator new
! !

!DoubleMetaphoneStringComparatorTest methodsFor:'tests'!

testKeyMidStringFrom
	dmsc inputKey: 'A string of characters'.

	self should: [ (dmsc keyMidString: 3 from: 0) = ' A ' ].
	self should: [ (dmsc keyMidString: 5 from: 7) = 'NG OF' ].
	self should: [ (dmsc keyMidString: 4 from: 21) = 'RS  ' ].
!

testPerformInitialProcessing1
	dmsc inputKey: 'gneiss'.
	self should: [ dmsc inputKey = 'GNEISS' ].

	self should: [ dmsc startIndex = 1 ].
	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $G ].

	dmsc performInitialProcessing.

	self should: [ dmsc startIndex = 2 ].
	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $N ].
!

testPerformInitialProcessing2
	dmsc inputKey: 'zneiss'.
	self should: [ dmsc inputKey = 'ZNEISS' ].

	self should: [ dmsc startIndex = 1 ].
	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $Z ].

	dmsc performInitialProcessing.

	self should: [ dmsc startIndex = 1 ].
	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $Z ].
!

testPerformInitialProcessing3
	dmsc inputKey: 'xAvIeR'.
	self should: [ dmsc inputKey = 'XAVIER' ].

	self should: [ dmsc startIndex = 1 ].
	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $X ].

	dmsc performInitialProcessing.

	self should: [ dmsc startIndex = 2 ].
	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $A ].
!

testPerformInitialProcessing4
	dmsc inputKey: 'etaoinshrdlu'.
	self should: [ dmsc inputKey = 'ETAOINSHRDLU' ].

	self should: [ dmsc startIndex = 1 ].
	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $E ].

	dmsc performInitialProcessing.

	self should: [ dmsc startIndex = 2 ].
	self should: [ dmsc primaryTranslation = 'A' ].
	self should: [ dmsc secondaryTranslation = 'A' ].
	self should: [ (dmsc inputKey at: dmsc startIndex) = $T ].
!

testProcessB1
	dmsc inputKey: 'b'.
	self should: [ dmsc inputKey = 'B' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].

	dmsc processB.

	self should: [ dmsc primaryTranslation = 'P' ].
	self should: [ dmsc secondaryTranslation = 'P' ].
	self should: [ dmsc skipCount = 0 ]
!

testProcessB2
	dmsc inputKey: 'bb'.
	self should: [ dmsc inputKey = 'BB' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].

	dmsc processB.

	self should: [ dmsc primaryTranslation = 'P' ].
	self should: [ dmsc secondaryTranslation = 'P' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCedille
	dmsc inputKey: 'ç'.
	self should: [ dmsc inputKey = 'Ç' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].

	dmsc processCedille.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
!

testProcessCi1
	dmsc inputKey: 'zzachxx'.
	self should: [ dmsc inputKey = 'ZZACHXX' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 2 ]
!

testProcessCii1
	dmsc inputKey: 'caesarian'.
	self should: [ dmsc inputKey = 'CAESARIAN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	self should: [ dmsc currentIndex = 1 ].

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCiii1
	dmsc inputKey: 'chianti'.
	self should: [ dmsc inputKey = 'CHIANTI' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	self should: [ dmsc currentIndex = 1 ].

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCiva1
	dmsc inputKey: 'michael'.
	self should: [ dmsc inputKey = 'MICHAEL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivb1
	dmsc inputKey: 'character'.
	self should: [ dmsc inputKey = 'CHARACTER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	self should: [ dmsc currentIndex = 1 ].

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivb2
	dmsc inputKey: 'chymerae'.
	self should: [ dmsc inputKey = 'CHYMERAE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	self should: [ dmsc currentIndex = 1 ].

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivc1
	dmsc inputKey: 'chymerae'.
	self should: [ dmsc inputKey = 'CHYMERAE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	self should: [ dmsc currentIndex = 1 ].

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivc2
	dmsc inputKey: 'orchestral'.
	self should: [ dmsc inputKey = 'ORCHESTRAL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivc3
	dmsc inputKey: 'mchugh'.
	self should: [ dmsc inputKey = 'MCHUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivc4
	dmsc inputKey: 'xchugh'.
	self should: [ dmsc inputKey = 'XCHUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCivc5
	dmsc inputKey: 'chugh'.
	self should: [ dmsc inputKey = 'CHUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCix1
	dmsc inputKey: 'macgregor'.
	self should: [ dmsc inputKey = 'MACGREGOR' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCix2
	dmsc inputKey: 'zzzzcizzz'.
	self should: [ dmsc inputKey = 'ZZZZCIZZZ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCv1
	dmsc inputKey: 'czarina'.
	self should: [ dmsc inputKey = 'CZARINA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCvi1
	dmsc inputKey: 'focaccia'.
	self should: [ dmsc inputKey = 'FOCACCIA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ]
!

testProcessCvii11
	dmsc inputKey: 'accept'.
	self should: [ dmsc inputKey = 'ACCEPT' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'KS' ].
	self should: [ dmsc secondaryTranslation = 'KS' ].
	self should: [ dmsc skipCount = 2 ]
!

testProcessCvii12
	dmsc inputKey: 'succeed'.
	self should: [ dmsc inputKey = 'SUCCEED' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'KS' ].
	self should: [ dmsc secondaryTranslation = 'KS' ].
	self should: [ dmsc skipCount = 2 ]
!

testProcessCvii2
	dmsc inputKey: 'accord'.
	self should: [ dmsc inputKey = 'ACCORD' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 2 ]
!

testProcessCviii1
	dmsc inputKey: 'trucking'.
	self should: [ dmsc inputKey = 'TRUCKING' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCviii2
	dmsc inputKey: 'acquire'.
	self should: [ dmsc inputKey = 'ACQUIRE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCviii3
	dmsc inputKey: 'macgregor'.
	self should: [ dmsc inputKey = 'MACGREGOR' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ]
!

testProcessCx1
	dmsc inputKey: 'abcdefg'.
	self should: [ dmsc inputKey = 'ABCDEFG' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 0 ]
!

testProcessCx1a
	dmsc inputKey: 'abcdefg'.
	self should: [ dmsc inputKey = 'ABCDEFG' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processC.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 0 ]
!

testProcessD1
	dmsc inputKey: 'edge'.
	self should: [ dmsc inputKey = 'EDGE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processD.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessD2
	dmsc inputKey: 'edgar'.
	self should: [ dmsc inputKey = 'EDGAR' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processD.

	self should: [ dmsc primaryTranslation = 'TK' ].
	self should: [ dmsc secondaryTranslation = 'TK' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessD3
	dmsc inputKey: 'ludt'.
	self should: [ dmsc inputKey = 'LUDT' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processD.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessD4
	dmsc inputKey: 'lud'.
	self should: [ dmsc inputKey = 'LUD' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processD.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessF1

	dmsc inputKey: 'felt'.
	self should: [ dmsc inputKey = 'FELT' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processF.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessF2
	dmsc inputKey: 'affenpinscher'.
	self should: [ dmsc inputKey = 'AFFENPINSCHER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processF.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG
	dmsc inputKey: 'bgh'.
	self should: [ dmsc inputKey = 'BGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG1
	dmsc inputKey: 'ghi'.
	self should: [ dmsc inputKey = 'GHI' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG2
	dmsc inputKey: 'ghr'.
	self should: [ dmsc inputKey = 'GHR' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG3
	dmsc inputKey: 'hugh'.
	self should: [ dmsc inputKey = 'HUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processG.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG4
	dmsc inputKey: 'bough'.
	self should: [ dmsc inputKey = 'BOUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG5
	dmsc inputKey: 'laugh'.
	self should: [ dmsc inputKey = 'LAUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG6
	dmsc inputKey: 'McLaughlin'.
	self should: [ dmsc inputKey = 'MCLAUGHLIN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG7
	dmsc inputKey: 'cough'.
	self should: [ dmsc inputKey = 'COUGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG8
	dmsc inputKey: 'langh'.
	self should: [ dmsc inputKey = 'LANGH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessG9
	dmsc inputKey: 'agneiss'.
	self should: [ dmsc inputKey = 'AGNEISS' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'KN' ].
	self should: [ dmsc secondaryTranslation = 'N' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa1
	dmsc inputKey: 'nignd'.
	self should: [ dmsc inputKey = 'NIGND' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'N' ].
	self should: [ dmsc secondaryTranslation = 'KN' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa2
	dmsc inputKey: 'cagney'.
	self should: [ dmsc inputKey = 'CAGNEY' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'KN' ].
	self should: [ dmsc secondaryTranslation = 'KN' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa3
	dmsc inputKey: 'tagliaro'.
	self should: [ dmsc inputKey = 'TAGLIARO' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'KL' ].
	self should: [ dmsc secondaryTranslation = 'L' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa4
	dmsc inputKey: 'GY'.
	self should: [ dmsc inputKey = 'GY' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa5
	dmsc inputKey: 'GES'.
	self should: [ dmsc inputKey = 'GES' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa6
	dmsc inputKey: 'GEP'.
	self should: [ dmsc inputKey = 'GEP' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa7
	dmsc inputKey: 'GEB'.
	self should: [ dmsc inputKey = 'GEB' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa8
	dmsc inputKey: 'GEL'.
	self should: [ dmsc inputKey = 'GEL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGa9
	dmsc inputKey: 'GEY'.
	self should: [ dmsc inputKey = 'GEY' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb2
	dmsc inputKey: 'gil'.
	self should: [ dmsc inputKey = 'GIL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb3
	dmsc inputKey: 'gin'.
	self should: [ dmsc inputKey = 'GIN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb4
	dmsc inputKey: 'gei'.
	self should: [ dmsc inputKey = 'GEI' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb4a
	dmsc inputKey: 'gie'.
	self should: [ dmsc inputKey = 'GIE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb5
	dmsc inputKey: 'ger'.
	self should: [ dmsc inputKey = 'GER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb6
	dmsc inputKey: 'nger'.
	self should: [ dmsc inputKey = 'NGER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb7
	dmsc inputKey: 'danger'.
	self should: [ dmsc inputKey = 'DANGER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb8
	dmsc inputKey: 'biaggi'.
	self should: [ dmsc inputKey = 'BIAGGI' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGb9
	dmsc inputKey: 'von biaggi'.
	self should: [ dmsc inputKey = 'VON BIAGGI' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 8.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGc1
	dmsc inputKey: 'biagier'.
	self should: [ dmsc inputKey = 'BIAGIER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGc2
	dmsc inputKey: 'bigger'.
	self should: [ dmsc inputKey = 'BIGGER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessGc3
	dmsc inputKey: 'grass'.
	self should: [ dmsc inputKey = 'GRASS' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processG.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessH
	dmsc inputKey: 'Hannah'.
	self should: [ dmsc inputKey = 'HANNAH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processH.

	self should: [ dmsc primaryTranslation = 'H' ].
	self should: [ dmsc secondaryTranslation = 'H' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessH2
	dmsc inputKey: 'aha'.
	self should: [ dmsc inputKey = 'AHA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processH.

	self should: [ dmsc primaryTranslation = 'H' ].
	self should: [ dmsc secondaryTranslation = 'H' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessH3
	dmsc inputKey: 'doah'.
	self should: [ dmsc inputKey = 'DOAH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processH.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ
	dmsc inputKey: 'jose'.
	self should: [ dmsc inputKey = 'JOSE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'H' ].
	self should: [ dmsc secondaryTranslation = 'H' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ1
	dmsc inputKey: 'san jacinto'.
	self should: [ dmsc inputKey = 'SAN JACINTO' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'H' ].
	self should: [ dmsc secondaryTranslation = 'H' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ2
	dmsc inputKey: 'Jankelowicz'.
	self should: [ dmsc inputKey = 'JANKELOWICZ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'A' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ3
	dmsc inputKey: 'bajador'.
	self should: [ dmsc inputKey = 'BAJADOR' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'H' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ4
	dmsc inputKey: 'borj'.
	self should: [ dmsc inputKey = 'BORJ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = ' ' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ5
	dmsc inputKey: 'bjl'.
	self should: [ dmsc inputKey = 'BJL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ6
	dmsc inputKey: 'bjC'.
	self should: [ dmsc inputKey = 'BJC' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessJ7
	dmsc inputKey: 'bjj'.
	self should: [ dmsc inputKey = 'BJJ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processJ.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessK
	dmsc inputKey: 'talk'.
	self should: [ dmsc inputKey = 'TALK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processK.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessK1
	dmsc inputKey: 'talkk'.
	self should: [ dmsc inputKey = 'TALKK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processK.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessL
	dmsc inputKey: 'llamma'.
	self should: [ dmsc inputKey = 'LLAMMA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processL.

	self should: [ dmsc primaryTranslation = 'L' ].
	self should: [ dmsc secondaryTranslation = 'L' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessL1
	dmsc inputKey: 'camilla'.
	self should: [ dmsc inputKey = 'CAMILLA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processL.

	self should: [ dmsc primaryTranslation = 'L' ].
	self should: [ dmsc secondaryTranslation = ' ' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessL2
	dmsc inputKey: 'cabrillo'.
	self should: [ dmsc inputKey = 'CABRILLO' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processL.

	self should: [ dmsc primaryTranslation = 'L' ].
	self should: [ dmsc secondaryTranslation = ' ' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessL3
	dmsc inputKey: 'lisa'.
	self should: [ dmsc inputKey = 'LISA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processL.

	self should: [ dmsc primaryTranslation = 'L' ].
	self should: [ dmsc secondaryTranslation = 'L' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessM
	dmsc inputKey: 'dumb'.
	self should: [ dmsc inputKey = 'DUMB' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processM.

	self should: [ dmsc primaryTranslation = 'M' ].
	self should: [ dmsc secondaryTranslation = 'M' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessM1
	dmsc inputKey: 'thumb'.
	self should: [ dmsc inputKey = 'THUMB' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processM.

	self should: [ dmsc primaryTranslation = 'M' ].
	self should: [ dmsc secondaryTranslation = 'M' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessM2
	dmsc inputKey: 'mmum'.
	self should: [ dmsc inputKey = 'MMUM' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processM.

	self should: [ dmsc primaryTranslation = 'M' ].
	self should: [ dmsc secondaryTranslation = 'M' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessM3
	dmsc inputKey: 'mom'.
	self should: [ dmsc inputKey = 'MOM' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processM.

	self should: [ dmsc primaryTranslation = 'M' ].
	self should: [ dmsc secondaryTranslation = 'M' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessN
	dmsc inputKey: 'tin'.
	self should: [ dmsc inputKey = 'TIN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processN.

	self should: [ dmsc primaryTranslation = 'N' ].
	self should: [ dmsc secondaryTranslation = 'N' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessN1
	dmsc inputKey: 'TINN'.
	self should: [ dmsc inputKey = 'TINN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processN.

	self should: [ dmsc primaryTranslation = 'N' ].
	self should: [ dmsc secondaryTranslation = 'N' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessNtilde
	dmsc inputKey: 'Naña'.
	self should: [ dmsc inputKey = 'NAÑA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processNtilde.

	self should: [ dmsc primaryTranslation = 'N' ].
	self should: [ dmsc secondaryTranslation = 'N' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessP
	dmsc inputKey: 'phone'.
	self should: [ dmsc inputKey = 'PHONE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processP.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessP1
	dmsc inputKey: 'campbell'.
	self should: [ dmsc inputKey = 'CAMPBELL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 4.

	dmsc processP.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessP2
	dmsc inputKey: 'peanut'.
	self should: [ dmsc inputKey = 'PEANUT' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processP.

	self should: [ dmsc primaryTranslation = 'P' ].
	self should: [ dmsc secondaryTranslation = 'P' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessQ
	dmsc inputKey: 'quiet'.
	self should: [ dmsc inputKey = 'QUIET' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processQ.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessQ1
	dmsc inputKey: 'qquiet'.
	self should: [ dmsc inputKey = 'QQUIET' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processQ.

	self should: [ dmsc primaryTranslation = 'K' ].
	self should: [ dmsc secondaryTranslation = 'K' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessR
	dmsc inputKey: 'rogier'.
	self should: [ dmsc inputKey = 'ROGIER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processR.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = 'R' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessR1
	dmsc inputKey: 'hochmeier'.
	self should: [ dmsc inputKey = 'HOCHMEIER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 9.

	dmsc processR.

	self should: [ dmsc primaryTranslation = 'R' ].
	self should: [ dmsc secondaryTranslation = 'R' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessR2
	dmsc inputKey: 'french'.
	self should: [ dmsc inputKey = 'FRENCH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processR.

	self should: [ dmsc primaryTranslation = 'R' ].
	self should: [ dmsc secondaryTranslation = 'R' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessR3
	dmsc inputKey: 'frrench'.
	self should: [ dmsc inputKey = 'FRRENCH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processR.

	self should: [ dmsc primaryTranslation = 'R' ].
	self should: [ dmsc secondaryTranslation = 'R' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessS
	dmsc inputKey: 'island'.
	self should: [ dmsc inputKey = 'ISLAND' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processS.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessS1
	dmsc inputKey: 'isle'.
	self should: [ dmsc inputKey = 'ISLE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 2.

	dmsc processS.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessS2
	dmsc inputKey: 'carlisle'.
	self should: [ dmsc inputKey = 'CARLISLE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processS.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessS3
	dmsc inputKey: 'carlysle'.
	self should: [ dmsc inputKey = 'CARLYSLE' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processS.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessS4
	dmsc inputKey: 'sugar'.
	self should: [ dmsc inputKey = 'SUGAR' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessS5
	dmsc inputKey: 'sheim'.
	self should: [ dmsc inputKey = 'SHEIM' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessS6
	dmsc inputKey: 'shook'.
	self should: [ dmsc inputKey = 'SHOOK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessS7
	dmsc inputKey: 'sio'.
	self should: [ dmsc inputKey = 'SIO' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessS8
	dmsc inputKey: 'sian'.
	self should: [ dmsc inputKey = 'SIAN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessS9
	dmsc inputKey: 'siowitz'.
	self should: [ dmsc inputKey = 'SIOWITZ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSa1
	dmsc inputKey: 'smith'.
	self should: [ dmsc inputKey = 'SMITH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessSa2
	dmsc inputKey: 'snider'.
	self should: [ dmsc inputKey = 'SNIDER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessSa3
	dmsc inputKey: 'szan'.
	self should: [ dmsc inputKey = 'SZAN' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessSa4
	dmsc inputKey: 'school'.
	self should: [ dmsc inputKey = 'SCHOOL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'SK' ].
	self should: [ dmsc secondaryTranslation = 'SK' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSa5
	dmsc inputKey: 'schenker'.
	self should: [ dmsc inputKey = 'SCHENKER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'SK' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSa6
	dmsc inputKey: 'schank'.
	self should: [ dmsc inputKey = 'SCHANK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSa7
	dmsc inputKey: 'schbnk'.
	self should: [ dmsc inputKey = 'SCHBNK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSa8
	dmsc inputKey: 'schwnk'.
	self should: [ dmsc inputKey = 'SCHWNK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSa9
	dmsc inputKey: 'scewnk'.
	self should: [ dmsc inputKey = 'SCEWNK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSb1
	dmsc inputKey: 'scawnk'.
	self should: [ dmsc inputKey = 'SCAWNK' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'SK' ].
	self should: [ dmsc secondaryTranslation = 'SK' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessSb2
	dmsc inputKey: 'resnais'.
	self should: [ dmsc inputKey = 'RESNAIS' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 7.

	dmsc processS.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessSb3
	dmsc inputKey: 'resnas'.
	self should: [ dmsc inputKey = 'RESNAS' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessSb4
	dmsc inputKey: 'resnass'.
	self should: [ dmsc inputKey = 'RESNASS' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processS.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessT1
	dmsc inputKey: 'action'.
	self should: [ dmsc inputKey = 'ACTION' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessT2
	dmsc inputKey: 'actia'.
	self should: [ dmsc inputKey = 'ACTIA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessT3
	dmsc inputKey: 'actch'.
	self should: [ dmsc inputKey = 'ACTCH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'X' ].
	self should: [ dmsc secondaryTranslation = 'X' ].
	self should: [ dmsc skipCount = 2 ].
!

testProcessT4
	dmsc inputKey: 'thomas'.
	self should: [ dmsc inputKey = 'THOMAS' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessT5
	dmsc inputKey: 'thames'.
	self should: [ dmsc inputKey = 'THAMES' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessT6
	dmsc inputKey: 'von thrapp'.
	self should: [ dmsc inputKey = 'VON THRAPP' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessT7
	dmsc inputKey: 'schrthop'.
	self should: [ dmsc inputKey = 'SCHRTHOP' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessT8
	dmsc inputKey: 'thrap'.
	self should: [ dmsc inputKey = 'THRAP' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processT.

	self should: [ dmsc primaryTranslation = '0' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessT9
	dmsc inputKey: 'ttrump'.
	self should: [ dmsc inputKey = 'TTRUMP' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessTa1
	dmsc inputKey: 'trump'.
	self should: [ dmsc inputKey = 'TRUMP' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processT.

	self should: [ dmsc primaryTranslation = 'T' ].
	self should: [ dmsc secondaryTranslation = 'T' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessV
	dmsc inputKey: 'violet'.
	self should: [ dmsc inputKey = 'VIOLET' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processV.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessV1
	dmsc inputKey: 'vviolet'.
	self should: [ dmsc inputKey = 'VVIOLET' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processV.

	self should: [ dmsc primaryTranslation = 'F' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessW
	dmsc inputKey: 'wreath'.
	self should: [ dmsc inputKey = 'WREATH' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processW.

	self should: [ dmsc primaryTranslation = 'R' ].
	self should: [ dmsc secondaryTranslation = 'R' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessW1
	dmsc inputKey: 'water'.
	self should: [ dmsc inputKey = 'WATER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processW.

	self should: [ dmsc primaryTranslation = 'A' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessW2
	dmsc inputKey: 'whether'.
	self should: [ dmsc inputKey = 'WHETHER' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processW.

	self should: [ dmsc primaryTranslation = 'A' ].
	self should: [ dmsc secondaryTranslation = 'A' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessW3
	dmsc inputKey: 'Arnow'.
	self should: [ dmsc inputKey = 'ARNOW' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processW.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessW4
	dmsc inputKey: 'belewski'.
	self should: [ dmsc inputKey = 'BELEWSKI' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processW.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessW5
	dmsc inputKey: 'schewell'.
	self should: [ dmsc inputKey = 'SCHEWELL' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processW.

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = 'F' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessW6
	dmsc inputKey: 'filipowicz'.
	self should: [ dmsc inputKey = 'FILIPOWICZ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 7.

	dmsc processW.

	self should: [ dmsc primaryTranslation = 'TS' ].
	self should: [ dmsc secondaryTranslation = 'FX' ].
	self should: [ dmsc skipCount = 3 ].
!

testProcessX
	dmsc inputKey: 'breaux'.
	self should: [ dmsc inputKey = 'BREAUX' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processX.

	self should: [ dmsc primaryTranslation = 'KS' ].
	self should: [ dmsc secondaryTranslation = 'KS' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessX1
	dmsc inputKey: 'bordoux'.
	self should: [ dmsc inputKey = 'BORDOUX' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 7.

	dmsc processX.

	self should: [ dmsc primaryTranslation = 'KS' ].
	self should: [ dmsc secondaryTranslation = 'KS' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessX2
	dmsc inputKey: 'shoroxx'.
	self should: [ dmsc inputKey = 'SHOROXX' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 6.

	dmsc processX.

	self should: [ dmsc primaryTranslation = 'KS' ].
	self should: [ dmsc secondaryTranslation = 'KS' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessZ
	dmsc inputKey: 'zhao'.
	self should: [ dmsc inputKey = 'ZHAO' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processZ.

	self should: [ dmsc primaryTranslation = 'J' ].
	self should: [ dmsc secondaryTranslation = 'J' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessZ1
	dmsc inputKey: 'pizza'.
	self should: [ dmsc inputKey = 'PIZZA' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 3.

	dmsc processZ.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'TS' ].
	self should: [ dmsc skipCount = 1 ].
!

testProcessZ2
	dmsc inputKey: 'wkicz'.
	self should: [ dmsc inputKey = 'WKICZ' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 5.

	dmsc processZ.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'TS' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessZ3
	dmsc inputKey: 'zoo'.
	self should: [ dmsc inputKey = 'ZOO' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processZ.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 0 ].
!

testProcessZ4
	dmsc inputKey: 'zzyxx'.
	self should: [ dmsc inputKey = 'ZZYXX' ].

	self should: [ dmsc primaryTranslation = '' ].
	self should: [ dmsc secondaryTranslation = '' ].
	self should: [ dmsc skipCount = 0 ].
	dmsc currentIndex: 1.

	dmsc processZ.

	self should: [ dmsc primaryTranslation = 'S' ].
	self should: [ dmsc secondaryTranslation = 'S' ].
	self should: [ dmsc skipCount = 1 ].
! !

!DoubleMetaphoneStringComparatorTest class methodsFor:'documentation'!

version
    ^ '$Header$'
! !