hg/stx-goodies-regression: RegressionTests__DoubleMetaphoneStringComparatorTest.st@b3fd3a67477b (annotated)

2408 888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	1	"{ Encoding: utf8 }"
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	3	"{ Package: 'stx:goodies/regression' }"
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
543 bcb8e4c9c201 * empty log message * Claus Gittinger <cg@exept.de> parents: 537 diff changeset	5	"{ NameSpace: RegressionTests }"
bcb8e4c9c201 * empty log message * Claus Gittinger <cg@exept.de> parents: 537 diff changeset	6
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	TestCase subclass:#DoubleMetaphoneStringComparatorTest
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	instanceVariableNames:'dmsc'
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	classVariableNames:''
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	poolDictionaries:''
2041 9afa32f02da6 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	11	category:'tests-Regression-Collections-Utilities'
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	DoubleMetaphoneStringComparatorTest comment:'Tests for the DoubleMetaphoneStringComparator class.'
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
2175 c2e359dfc0fc #OTHER by cg Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	18	!DoubleMetaphoneStringComparatorTest methodsFor:'initialize / release'!
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	setUp
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	22	dmsc := PhoneticStringUtilities::DoubleMetaphoneStringComparator new
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	! !
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!DoubleMetaphoneStringComparatorTest methodsFor:'tests'!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
2408 888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	27	test01_comparing
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	28	\|words words2 r\|
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	29
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	30	words := #('Spotify' 'Spotfy' 'Sputfi' 'Spotifi').
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	31	words2 := #('United Air Lines' 'United Aire Lines' 'Unitid Air Line').
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	32	r := (words collect:[:w \| dmsc phoneticStringsFor:w]).
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	33	self assert:(r asSet size == 1)
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	34
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	35	!
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	36
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	testKeyMidStringFrom
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	dmsc inputKey: 'A string of characters'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	self should: [ (dmsc keyMidString: 3 from: 0) = ' A ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	self should: [ (dmsc keyMidString: 5 from: 7) = 'NG OF' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	self should: [ (dmsc keyMidString: 4 from: 21) = 'RS ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	testPerformInitialProcessing1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	dmsc inputKey: 'gneiss'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	self should: [ dmsc inputKey = 'GNEISS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	self should: [ dmsc startIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	self should: [ (dmsc inputKey at: dmsc startIndex) = $G ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	dmsc performInitialProcessing.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	self should: [ dmsc startIndex = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	self should: [ (dmsc inputKey at: dmsc startIndex) = $N ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	testPerformInitialProcessing2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	dmsc inputKey: 'zneiss'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	self should: [ dmsc inputKey = 'ZNEISS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	self should: [ dmsc startIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	self should: [ (dmsc inputKey at: dmsc startIndex) = $Z ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	dmsc performInitialProcessing.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	self should: [ dmsc startIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	self should: [ (dmsc inputKey at: dmsc startIndex) = $Z ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	testPerformInitialProcessing3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	dmsc inputKey: 'xAvIeR'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	self should: [ dmsc inputKey = 'XAVIER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	self should: [ dmsc startIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	self should: [ (dmsc inputKey at: dmsc startIndex) = $X ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	dmsc performInitialProcessing.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	self should: [ dmsc startIndex = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	self should: [ (dmsc inputKey at: dmsc startIndex) = $A ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	testPerformInitialProcessing4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	dmsc inputKey: 'etaoinshrdlu'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	self should: [ dmsc inputKey = 'ETAOINSHRDLU' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	self should: [ dmsc startIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	self should: [ (dmsc inputKey at: dmsc startIndex) = $E ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	dmsc performInitialProcessing.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	self should: [ dmsc startIndex = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	self should: [ dmsc primaryTranslation = 'A' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	self should: [ dmsc secondaryTranslation = 'A' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	self should: [ (dmsc inputKey at: dmsc startIndex) = $T ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	testProcessB1
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	114	dmsc inputKey: 'b'.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	115	self should: [ dmsc inputKey = 'B' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	116
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	117	self should: [ dmsc primaryTranslation = '' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	118	self should: [ dmsc secondaryTranslation = '' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	119	self should: [ dmsc skipCount = 0 ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	120
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	121	dmsc processB.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	122
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	123	self should: [ dmsc primaryTranslation = 'P' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	124	self should: [ dmsc secondaryTranslation = 'P' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	125	self should: [ dmsc skipCount = 0 ]
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	testProcessB2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	dmsc inputKey: 'bb'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	self should: [ dmsc inputKey = 'BB' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	dmsc processB.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	self should: [ dmsc primaryTranslation = 'P' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	self should: [ dmsc secondaryTranslation = 'P' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	testProcessCedille
2408 888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	144	dmsc inputKey: 'ç'.
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	145	self should: [ dmsc inputKey = 'Ç' ].
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	dmsc processCedille.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	testProcessCi1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	dmsc inputKey: 'zzachxx'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	self should: [ dmsc inputKey = 'ZZACHXX' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	self should: [ dmsc skipCount = 2 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	testProcessCii1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	dmsc inputKey: 'caesarian'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	self should: [ dmsc inputKey = 'CAESARIAN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	self should: [ dmsc currentIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	testProcessCiii1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	dmsc inputKey: 'chianti'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	self should: [ dmsc inputKey = 'CHIANTI' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	self should: [ dmsc currentIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	testProcessCiva1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	dmsc inputKey: 'michael'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	self should: [ dmsc inputKey = 'MICHAEL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	testProcessCivb1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	dmsc inputKey: 'character'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	self should: [ dmsc inputKey = 'CHARACTER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	self should: [ dmsc currentIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	testProcessCivb2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	dmsc inputKey: 'chymerae'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	self should: [ dmsc inputKey = 'CHYMERAE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	self should: [ dmsc currentIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	testProcessCivc1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	dmsc inputKey: 'chymerae'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	self should: [ dmsc inputKey = 'CHYMERAE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	self should: [ dmsc currentIndex = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268	testProcessCivc2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	dmsc inputKey: 'orchestral'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	self should: [ dmsc inputKey = 'ORCHESTRAL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	testProcessCivc3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	dmsc inputKey: 'mchugh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	self should: [ dmsc inputKey = 'MCHUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	testProcessCivc4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	dmsc inputKey: 'xchugh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	self should: [ dmsc inputKey = 'XCHUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	315
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	316	testProcessCivc5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	dmsc inputKey: 'chugh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	318	self should: [ dmsc inputKey = 'CHUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	322	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	testProcessCix1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	dmsc inputKey: 'macgregor'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	self should: [ dmsc inputKey = 'MACGREGOR' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	testProcessCix2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	dmsc inputKey: 'zzzzcizzz'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	self should: [ dmsc inputKey = 'ZZZZCIZZZ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364	testProcessCv1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	dmsc inputKey: 'czarina'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	self should: [ dmsc inputKey = 'CZARINA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	testProcessCvi1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	dmsc inputKey: 'focaccia'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	self should: [ dmsc inputKey = 'FOCACCIA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	392	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393	self should: [ dmsc skipCount = 2 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	394	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	testProcessCvii11
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397	dmsc inputKey: 'accept'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	398	self should: [ dmsc inputKey = 'ACCEPT' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	399
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	400	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	self should: [ dmsc primaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408	self should: [ dmsc secondaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	self should: [ dmsc skipCount = 2 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	testProcessCvii12
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413	dmsc inputKey: 'succeed'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	self should: [ dmsc inputKey = 'SUCCEED' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	418	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423	self should: [ dmsc primaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	self should: [ dmsc secondaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	self should: [ dmsc skipCount = 2 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428	testProcessCvii2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429	dmsc inputKey: 'accord'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430	self should: [ dmsc inputKey = 'ACCORD' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	432	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	437	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	self should: [ dmsc skipCount = 2 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444	testProcessCviii1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	445	dmsc inputKey: 'trucking'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	self should: [ dmsc inputKey = 'TRUCKING' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	452
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	453	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	454
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	455	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460	testProcessCviii2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461	dmsc inputKey: 'acquire'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	462	self should: [ dmsc inputKey = 'ACQUIRE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	463
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	testProcessCviii3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	dmsc inputKey: 'macgregor'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478	self should: [ dmsc inputKey = 'MACGREGOR' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	self should: [ dmsc skipCount = 1 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492	testProcessCx1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493	dmsc inputKey: 'abcdefg'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	self should: [ dmsc inputKey = 'ABCDEFG' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	self should: [ dmsc skipCount = 0 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508	testProcessCx1a
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	509	dmsc inputKey: 'abcdefg'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510	self should: [ dmsc inputKey = 'ABCDEFG' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	511
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	512	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	514	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517	dmsc processC.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521	self should: [ dmsc skipCount = 0 ]
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	524	testProcessD1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525	dmsc inputKey: 'edge'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526	self should: [ dmsc inputKey = 'EDGE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	527
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	530	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	532
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533	dmsc processD.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	534
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540	testProcessD2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	dmsc inputKey: 'edgar'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542	self should: [ dmsc inputKey = 'EDGAR' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	dmsc processD.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	self should: [ dmsc primaryTranslation = 'TK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	self should: [ dmsc secondaryTranslation = 'TK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	testProcessD3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	dmsc inputKey: 'ludt'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	self should: [ dmsc inputKey = 'LUDT' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	dmsc processD.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	testProcessD4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	dmsc inputKey: 'lud'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	self should: [ dmsc inputKey = 'LUD' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	dmsc processD.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	testProcessF1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590	dmsc inputKey: 'felt'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	591	self should: [ dmsc inputKey = 'FELT' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598	dmsc processF.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	599
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	602	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	603	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	testProcessF2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	dmsc inputKey: 'affenpinscher'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607	self should: [ dmsc inputKey = 'AFFENPINSCHER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	609	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	610	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	611	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	614	dmsc processF.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621	testProcessG
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622	dmsc inputKey: 'bgh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	623	self should: [ dmsc inputKey = 'BGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	624
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	625	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	626	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	627	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	628	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	629
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	630	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	631
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	632	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	633	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	634	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	635	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	636
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	637	testProcessG1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	638	dmsc inputKey: 'ghi'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	639	self should: [ dmsc inputKey = 'GHI' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	641	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	652
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	testProcessG2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654	dmsc inputKey: 'ghr'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655	self should: [ dmsc inputKey = 'GHR' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	testProcessG3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670	dmsc inputKey: 'hugh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	self should: [ dmsc inputKey = 'HUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685	testProcessG4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	686	dmsc inputKey: 'bough'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	self should: [ dmsc inputKey = 'BOUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	691	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	693
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	694	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	698	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	testProcessG5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702	dmsc inputKey: 'laugh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	self should: [ dmsc inputKey = 'LAUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	705	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	706	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	708	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	709
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	710	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	711
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	712	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	713	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	714	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	715	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	716
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	717	testProcessG6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	718	dmsc inputKey: 'McLaughlin'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	719	self should: [ dmsc inputKey = 'MCLAUGHLIN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	720
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	725
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	726	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	727
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	728	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	729	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	730	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	731	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733	testProcessG7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	dmsc inputKey: 'cough'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	self should: [ dmsc inputKey = 'COUGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	740	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749	testProcessG8
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750	dmsc inputKey: 'langh'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	self should: [ dmsc inputKey = 'LANGH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	761	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765	testProcessG9
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	766	dmsc inputKey: 'agneiss'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767	self should: [ dmsc inputKey = 'AGNEISS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	774	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	775
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	776	self should: [ dmsc primaryTranslation = 'KN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	777	self should: [ dmsc secondaryTranslation = 'N' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	778	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	779	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	781	testProcessGa1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	782	dmsc inputKey: 'nignd'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	783	self should: [ dmsc inputKey = 'NIGND' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	786	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	791
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	792	self should: [ dmsc primaryTranslation = 'N' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793	self should: [ dmsc secondaryTranslation = 'KN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	795	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	796
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	797	testProcessGa2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	798	dmsc inputKey: 'cagney'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	799	self should: [ dmsc inputKey = 'CAGNEY' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	805
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808	self should: [ dmsc primaryTranslation = 'KN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809	self should: [ dmsc secondaryTranslation = 'KN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813	testProcessGa3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	814	dmsc inputKey: 'tagliaro'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	815	self should: [ dmsc inputKey = 'TAGLIARO' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	817	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	824	self should: [ dmsc primaryTranslation = 'KL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825	self should: [ dmsc secondaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829	testProcessGa4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	dmsc inputKey: 'GY'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831	self should: [ dmsc inputKey = 'GY' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	840	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	843	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845	testProcessGa5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846	dmsc inputKey: 'GES'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	847	self should: [ dmsc inputKey = 'GES' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	857	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	858	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	859	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861	testProcessGa6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	dmsc inputKey: 'GEP'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863	self should: [ dmsc inputKey = 'GEP' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	testProcessGa7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	dmsc inputKey: 'GEB'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	self should: [ dmsc inputKey = 'GEB' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	testProcessGa8
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	dmsc inputKey: 'GEL'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895	self should: [ dmsc inputKey = 'GEL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	908
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	909	testProcessGa9
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	dmsc inputKey: 'GEY'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	self should: [ dmsc inputKey = 'GEY' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	915	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	916	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	918	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	920	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	921	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	924
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	testProcessGb2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926	dmsc inputKey: 'gil'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	self should: [ dmsc inputKey = 'GIL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	936	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	938	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	testProcessGb3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942	dmsc inputKey: 'gin'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	943	self should: [ dmsc inputKey = 'GIN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	944
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	945	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	946	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	950	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	951
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	952	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	953	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	954	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	955	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	956
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	testProcessGb4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	958	dmsc inputKey: 'gei'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959	self should: [ dmsc inputKey = 'GEI' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	960
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	961	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	963	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	964	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	965
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	967
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	968	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	969	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	970	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	971	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	972
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	973	testProcessGb4a
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	974	dmsc inputKey: 'gie'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	975	self should: [ dmsc inputKey = 'GIE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	976
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	977	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	978	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	979	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	980	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	981
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	982	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	983
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	984	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	986	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	988
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	989	testProcessGb5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	990	dmsc inputKey: 'ger'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	991	self should: [ dmsc inputKey = 'GER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	993	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	999
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1000	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005	testProcessGb6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006	dmsc inputKey: 'nger'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	self should: [ dmsc inputKey = 'NGER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1011	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1012	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1013
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1017	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1018	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1020
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021	testProcessGb7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	dmsc inputKey: 'danger'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023	self should: [ dmsc inputKey = 'DANGER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1024
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1026	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1027	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1028	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1029
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1031
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1032	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1033	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1034	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1035	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	testProcessGb8
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	dmsc inputKey: 'biaggi'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	self should: [ dmsc inputKey = 'BIAGGI' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1041	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1042	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1043	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1044	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1049	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1050	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1051	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1052
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053	testProcessGb9
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	dmsc inputKey: 'von biaggi'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055	self should: [ dmsc inputKey = 'VON BIAGGI' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1056
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1057	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1058	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1060	dmsc currentIndex: 8.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1061
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1064	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1065	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1066	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1067	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1068
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1069	testProcessGc1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1070	dmsc inputKey: 'biagier'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071	self should: [ dmsc inputKey = 'BIAGIER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1072
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1073	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1074	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1075	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1076	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1077
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1078	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1082	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1083	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1084
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1085	testProcessGc2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086	dmsc inputKey: 'bigger'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1087	self should: [ dmsc inputKey = 'BIGGER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1088
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1089	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1093
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1094	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1095
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1096	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1097	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1101	testProcessGc3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1102	dmsc inputKey: 'grass'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1103	self should: [ dmsc inputKey = 'GRASS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1104
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1105	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1106	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1107	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1108	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1109
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1110	dmsc processG.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1114	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1115	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1116
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117	testProcessH
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118	dmsc inputKey: 'Hannah'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119	self should: [ dmsc inputKey = 'HANNAH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1123	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	dmsc processH.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128	self should: [ dmsc primaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	self should: [ dmsc secondaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1132
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133	testProcessH2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1134	dmsc inputKey: 'aha'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135	self should: [ dmsc inputKey = 'AHA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1136
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1137	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1138	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1139	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1140	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1141
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1142	dmsc processH.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1143
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1144	self should: [ dmsc primaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1145	self should: [ dmsc secondaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149	testProcessH3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	dmsc inputKey: 'doah'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151	self should: [ dmsc inputKey = 'DOAH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1153	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158	dmsc processH.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1164
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1165	testProcessJ
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1166	dmsc inputKey: 'jose'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167	self should: [ dmsc inputKey = 'JOSE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1169	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1171	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1172	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1173
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1174	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1175
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176	self should: [ dmsc primaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177	self should: [ dmsc secondaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1179	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1180
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1181	testProcessJ1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1182	dmsc inputKey: 'san jacinto'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1183	self should: [ dmsc inputKey = 'SAN JACINTO' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1184
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1185	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1186	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1187	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1188	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1189
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1190	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1191
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1192	self should: [ dmsc primaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1193	self should: [ dmsc secondaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1194	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1195	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1196
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1197	testProcessJ2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1198	dmsc inputKey: 'Jankelowicz'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199	self should: [ dmsc inputKey = 'JANKELOWICZ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1201	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1202	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1203	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1204	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1205
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1206	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1207
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1208	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1209	self should: [ dmsc secondaryTranslation = 'A' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1210	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1211	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1212
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1213	testProcessJ3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1214	dmsc inputKey: 'bajador'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1215	self should: [ dmsc inputKey = 'BAJADOR' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1216
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1217	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1221
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1222	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1223
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	self should: [ dmsc secondaryTranslation = 'H' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1229	testProcessJ4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1230	dmsc inputKey: 'borj'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1231	self should: [ dmsc inputKey = 'BORJ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1232
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1233	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1234	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1235	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1236	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1237
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1238	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1239
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1240	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1241	self should: [ dmsc secondaryTranslation = ' ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1242	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1244
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1245	testProcessJ5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1246	dmsc inputKey: 'bjl'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1247	self should: [ dmsc inputKey = 'BJL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1249	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1250	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1254	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1255
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	testProcessJ6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262	dmsc inputKey: 'bjC'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263	self should: [ dmsc inputKey = 'BJC' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277	testProcessJ7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278	dmsc inputKey: 'bjj'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1279	self should: [ dmsc inputKey = 'BJJ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1283	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286	dmsc processJ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293	testProcessK
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	dmsc inputKey: 'talk'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295	self should: [ dmsc inputKey = 'TALK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	dmsc processK.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309	testProcessK1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	dmsc inputKey: 'talkk'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	self should: [ dmsc inputKey = 'TALKK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	dmsc processK.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1323	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325	testProcessL
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326	dmsc inputKey: 'llamma'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1327	self should: [ dmsc inputKey = 'LLAMMA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1328
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1331	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1332	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1333
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1334	dmsc processL.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1335
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1336	self should: [ dmsc primaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1337	self should: [ dmsc secondaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1340
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341	testProcessL1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342	dmsc inputKey: 'camilla'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343	self should: [ dmsc inputKey = 'CAMILLA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1344
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1347	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350	dmsc processL.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352	self should: [ dmsc primaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353	self should: [ dmsc secondaryTranslation = ' ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357	testProcessL2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358	dmsc inputKey: 'cabrillo'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1359	self should: [ dmsc inputKey = 'CABRILLO' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1362	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1363	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1364	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1365
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1366	dmsc processL.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1367
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1368	self should: [ dmsc primaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1369	self should: [ dmsc secondaryTranslation = ' ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1370	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1372
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373	testProcessL3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1374	dmsc inputKey: 'lisa'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	self should: [ dmsc inputKey = 'LISA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1378	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382	dmsc processL.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1384	self should: [ dmsc primaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1385	self should: [ dmsc secondaryTranslation = 'L' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1386	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1387	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1388
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389	testProcessM
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1390	dmsc inputKey: 'dumb'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1391	self should: [ dmsc inputKey = 'DUMB' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1392
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1393	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1394	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1395	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1396	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1397
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398	dmsc processM.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1399
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1400	self should: [ dmsc primaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1401	self should: [ dmsc secondaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1402	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1403	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1404
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1405	testProcessM1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1406	dmsc inputKey: 'thumb'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1407	self should: [ dmsc inputKey = 'THUMB' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1408
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1409	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1410	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1412	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1414	dmsc processM.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1415
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1416	self should: [ dmsc primaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1417	self should: [ dmsc secondaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1418	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1419	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1420
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1421	testProcessM2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1422	dmsc inputKey: 'mmum'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423	self should: [ dmsc inputKey = 'MMUM' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1424
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1425	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430	dmsc processM.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1431
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1432	self should: [ dmsc primaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1433	self should: [ dmsc secondaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1434	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1435	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1436
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1437	testProcessM3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438	dmsc inputKey: 'mom'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1439	self should: [ dmsc inputKey = 'MOM' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1440
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1441	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1442	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1443	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1444	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1445
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1446	dmsc processM.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1447
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1448	self should: [ dmsc primaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1449	self should: [ dmsc secondaryTranslation = 'M' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1450	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1452
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1453	testProcessN
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1454	dmsc inputKey: 'tin'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1455	self should: [ dmsc inputKey = 'TIN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1456
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1457	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1459	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1460	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1461
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1462	dmsc processN.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1463
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464	self should: [ dmsc primaryTranslation = 'N' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1465	self should: [ dmsc secondaryTranslation = 'N' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1466	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1467	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1468
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1469	testProcessN1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1470	dmsc inputKey: 'TINN'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471	self should: [ dmsc inputKey = 'TINN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1476	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1477
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1478	dmsc processN.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1479
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1480	self should: [ dmsc primaryTranslation = 'N' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1481	self should: [ dmsc secondaryTranslation = 'N' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1482	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1483	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1484
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1485	testProcessNtilde
2408 888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	1486	dmsc inputKey: 'Naña'.
888711f2dca0 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 2175 diff changeset	1487	self should: [ dmsc inputKey = 'NAÑA' ].
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1488
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1489	self should: [ dmsc primaryTranslation = '' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1490	self should: [ dmsc secondaryTranslation = '' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1491	self should: [ dmsc skipCount = 0 ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1492	dmsc currentIndex: 3.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1493
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1494	dmsc processNtilde.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1495
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1496	self should: [ dmsc primaryTranslation = 'N' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1497	self should: [ dmsc secondaryTranslation = 'N' ].
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1498	self should: [ dmsc skipCount = 0 ].
527 e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1499	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1500
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1501	testProcessP
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1502	dmsc inputKey: 'phone'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1503	self should: [ dmsc inputKey = 'PHONE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1504
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1505	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1506	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1507	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1508	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1509
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1510	dmsc processP.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1511
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1512	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1513	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1514	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1515	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1516
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1517	testProcessP1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1518	dmsc inputKey: 'campbell'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1519	self should: [ dmsc inputKey = 'CAMPBELL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1520
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1521	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1522	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1523	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1524	dmsc currentIndex: 4.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1525
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1526	dmsc processP.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1527
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1528	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1529	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1530	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1531	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1532
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1533	testProcessP2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1534	dmsc inputKey: 'peanut'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1535	self should: [ dmsc inputKey = 'PEANUT' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1536
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1537	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1538	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1539	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1540	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1541
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1542	dmsc processP.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1543
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1544	self should: [ dmsc primaryTranslation = 'P' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1545	self should: [ dmsc secondaryTranslation = 'P' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1546	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1547	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1548
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1549	testProcessQ
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1550	dmsc inputKey: 'quiet'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1551	self should: [ dmsc inputKey = 'QUIET' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1552
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1553	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1554	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1555	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1556	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1557
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1558	dmsc processQ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1560	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1561	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1562	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1563	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1564
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	testProcessQ1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566	dmsc inputKey: 'qquiet'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567	self should: [ dmsc inputKey = 'QQUIET' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1569	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1570	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1571	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1572	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1573
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1574	dmsc processQ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1575
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1576	self should: [ dmsc primaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1577	self should: [ dmsc secondaryTranslation = 'K' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1578	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1579	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1580
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1581	testProcessR
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1582	dmsc inputKey: 'rogier'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1583	self should: [ dmsc inputKey = 'ROGIER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1584
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1585	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1586	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1587	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1588	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1589
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1590	dmsc processR.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1591
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1592	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1593	self should: [ dmsc secondaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1594	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1595	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1596
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1597	testProcessR1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1598	dmsc inputKey: 'hochmeier'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1599	self should: [ dmsc inputKey = 'HOCHMEIER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1600
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1601	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1602	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1603	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1604	dmsc currentIndex: 9.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1605
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	dmsc processR.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1607
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1608	self should: [ dmsc primaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1609	self should: [ dmsc secondaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1610	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1611	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1612
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1613	testProcessR2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1614	dmsc inputKey: 'french'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1615	self should: [ dmsc inputKey = 'FRENCH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1616
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1617	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1618	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1619	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1620	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1621
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1622	dmsc processR.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1623
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1624	self should: [ dmsc primaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1625	self should: [ dmsc secondaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1626	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1627	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1628
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1629	testProcessR3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1630	dmsc inputKey: 'frrench'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1631	self should: [ dmsc inputKey = 'FRRENCH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1632
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1633	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1634	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1635	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1636	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1637
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1638	dmsc processR.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1639
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1640	self should: [ dmsc primaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1641	self should: [ dmsc secondaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1642	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1643	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1644
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1645	testProcessS
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1646	dmsc inputKey: 'island'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1647	self should: [ dmsc inputKey = 'ISLAND' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1648
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1649	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1650	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1651	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1652	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1653
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1654	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1655
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1656	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1657	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1658	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1659	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1660
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1661	testProcessS1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1662	dmsc inputKey: 'isle'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1663	self should: [ dmsc inputKey = 'ISLE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1664
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1665	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1666	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1667	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1668	dmsc currentIndex: 2.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1669
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1670	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1671
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1672	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1673	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1674	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1675	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1676
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1677	testProcessS2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1678	dmsc inputKey: 'carlisle'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1679	self should: [ dmsc inputKey = 'CARLISLE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1680
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1681	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1682	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1683	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1684	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1685
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1686	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1687
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1688	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1689	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1690	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1691	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1692
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1693	testProcessS3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1694	dmsc inputKey: 'carlysle'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695	self should: [ dmsc inputKey = 'CARLYSLE' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1698	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1701
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1702	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1703
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1704	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1705	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1706	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1707	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1708
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1709	testProcessS4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1710	dmsc inputKey: 'sugar'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1711	self should: [ dmsc inputKey = 'SUGAR' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1712
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1713	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1714	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1715	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1716	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1717
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1718	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1719
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1720	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1721	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1722	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1723	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1724
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1725	testProcessS5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1726	dmsc inputKey: 'sheim'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1727	self should: [ dmsc inputKey = 'SHEIM' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1728
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1729	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1730	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1731	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1732	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1734	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1735
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1736	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1738	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1739	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1740
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1741	testProcessS6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742	dmsc inputKey: 'shook'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1743	self should: [ dmsc inputKey = 'SHOOK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1747	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1748	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1749
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1750	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1751
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1752	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1753	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1755	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1756
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1757	testProcessS7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1758	dmsc inputKey: 'sio'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759	self should: [ dmsc inputKey = 'SIO' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1760
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1762	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1763	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1764	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1765
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1766	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1767
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1768	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1769	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1770	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1771	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1772
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1773	testProcessS8
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1774	dmsc inputKey: 'sian'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1775	self should: [ dmsc inputKey = 'SIAN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1776
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1777	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1779	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1780	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1781
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1782	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1783
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1784	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1785	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1786	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1787	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1788
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1789	testProcessS9
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1790	dmsc inputKey: 'siowitz'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1791	self should: [ dmsc inputKey = 'SIOWITZ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1792
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1793	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1794	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1795	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1796	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1797
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1798	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1799
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1800	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1801	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1802	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1803	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1804
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1805	testProcessSa1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1806	dmsc inputKey: 'smith'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1807	self should: [ dmsc inputKey = 'SMITH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1808
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1809	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1810	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1811	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1812	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1813
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1814	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1815
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1816	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1817	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1818	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1819	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1820
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1821	testProcessSa2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1822	dmsc inputKey: 'snider'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1823	self should: [ dmsc inputKey = 'SNIDER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1824
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1825	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1826	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1827	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1828	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1829
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1830	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1831
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1832	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1833	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1834	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1835	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1836
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1837	testProcessSa3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1838	dmsc inputKey: 'szan'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1839	self should: [ dmsc inputKey = 'SZAN' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1840
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1841	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1842	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1843	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1844	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1845
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1846	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1847
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1848	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1849	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1850	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1851	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1852
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1853	testProcessSa4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1854	dmsc inputKey: 'school'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1855	self should: [ dmsc inputKey = 'SCHOOL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1856
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1857	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1858	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1859	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1860	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1861
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1862	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1863
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1864	self should: [ dmsc primaryTranslation = 'SK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1865	self should: [ dmsc secondaryTranslation = 'SK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1866	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1867	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1868
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1869	testProcessSa5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1870	dmsc inputKey: 'schenker'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1871	self should: [ dmsc inputKey = 'SCHENKER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1872
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1873	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1874	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1875	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1876	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1877
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1878	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1879
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1880	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1881	self should: [ dmsc secondaryTranslation = 'SK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1882	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1883	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1884
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1885	testProcessSa6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1886	dmsc inputKey: 'schank'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1887	self should: [ dmsc inputKey = 'SCHANK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1888
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1889	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1890	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1891	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1892	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1893
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1894	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1895
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1896	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1897	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1898	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1899	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1900
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1901	testProcessSa7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1902	dmsc inputKey: 'schbnk'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1903	self should: [ dmsc inputKey = 'SCHBNK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1904
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1905	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1906	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1907	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1908	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1909
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1910	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1911
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1912	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1913	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1914	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1915	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1916
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1917	testProcessSa8
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1918	dmsc inputKey: 'schwnk'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1919	self should: [ dmsc inputKey = 'SCHWNK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1920
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1921	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1922	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1923	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1924	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1925
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1926	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1927
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1928	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1929	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1930	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1931	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1932
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1933	testProcessSa9
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1934	dmsc inputKey: 'scewnk'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1935	self should: [ dmsc inputKey = 'SCEWNK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1936
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1937	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1938	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1939	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1940	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1941
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1942	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1943
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1944	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1945	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1946	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1947	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1949	testProcessSb1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1950	dmsc inputKey: 'scawnk'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1951	self should: [ dmsc inputKey = 'SCAWNK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1952
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1953	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1954	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1955	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1956	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1957
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1958	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1959
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960	self should: [ dmsc primaryTranslation = 'SK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961	self should: [ dmsc secondaryTranslation = 'SK' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1962	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1963	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1964
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1965	testProcessSb2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1966	dmsc inputKey: 'resnais'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1967	self should: [ dmsc inputKey = 'RESNAIS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1968
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1969	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1970	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1971	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1972	dmsc currentIndex: 7.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1973
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1974	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1975
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1976	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1977	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1978	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1979	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1980
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1981	testProcessSb3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1982	dmsc inputKey: 'resnas'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1983	self should: [ dmsc inputKey = 'RESNAS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1984
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1985	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1986	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1987	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1988	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1989
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1990	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1991
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1992	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1993	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1994	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1995	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1996
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1997	testProcessSb4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1998	dmsc inputKey: 'resnass'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1999	self should: [ dmsc inputKey = 'RESNASS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2000
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2001	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2002	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2003	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2004	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2005
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2006	dmsc processS.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2007
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2008	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2009	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2010	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2011	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2012
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2013	testProcessT1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2014	dmsc inputKey: 'action'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2015	self should: [ dmsc inputKey = 'ACTION' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2016
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2017	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2018	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2019	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2020	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2021
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2022	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2023
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2024	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2025	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2026	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2027	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2028
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2029	testProcessT2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2030	dmsc inputKey: 'actia'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2031	self should: [ dmsc inputKey = 'ACTIA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2032
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2033	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2034	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2035	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2036	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2037
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2038	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2039
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2040	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2041	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2042	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2043	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2044
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2045	testProcessT3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2046	dmsc inputKey: 'actch'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2047	self should: [ dmsc inputKey = 'ACTCH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2048
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2049	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2050	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2051	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2052	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2053
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2054	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2055
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2056	self should: [ dmsc primaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2057	self should: [ dmsc secondaryTranslation = 'X' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2058	self should: [ dmsc skipCount = 2 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2059	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2060
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2061	testProcessT4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2062	dmsc inputKey: 'thomas'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2063	self should: [ dmsc inputKey = 'THOMAS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2064
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2065	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2066	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2067	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2069
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2070	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2071
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2073	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2074	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2075	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2076
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2077	testProcessT5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2078	dmsc inputKey: 'thames'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2079	self should: [ dmsc inputKey = 'THAMES' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2080
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2081	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2082	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2083	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2084	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2085
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2086	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2087
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2088	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2089	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2090	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2091	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2092
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2093	testProcessT6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2094	dmsc inputKey: 'von thrapp'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2095	self should: [ dmsc inputKey = 'VON THRAPP' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2096
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2097	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2098	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2099	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2100	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2101
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2102	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2103
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2104	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2105	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2106	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2107	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2108
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2109	testProcessT7
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2110	dmsc inputKey: 'schrthop'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2111	self should: [ dmsc inputKey = 'SCHRTHOP' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2112
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2113	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2114	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2115	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2116	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2117
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2118	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2119
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2120	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2121	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2122	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2123	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2124
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2125	testProcessT8
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2126	dmsc inputKey: 'thrap'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2127	self should: [ dmsc inputKey = 'THRAP' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2128
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2129	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2130	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2131	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2132	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2133
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2134	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2135
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2136	self should: [ dmsc primaryTranslation = '0' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2137	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2138	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2139	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2140
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2141	testProcessT9
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2142	dmsc inputKey: 'ttrump'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2143	self should: [ dmsc inputKey = 'TTRUMP' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2144
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2145	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2146	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2147	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2148	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2149
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2150	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2151
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2152	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2153	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2154	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2155	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2156
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2157	testProcessTa1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2158	dmsc inputKey: 'trump'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2159	self should: [ dmsc inputKey = 'TRUMP' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2160
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2161	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2162	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2163	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2164	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2165
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2166	dmsc processT.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2167
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2168	self should: [ dmsc primaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2169	self should: [ dmsc secondaryTranslation = 'T' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2170	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2171	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2172
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2173	testProcessV
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2174	dmsc inputKey: 'violet'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2175	self should: [ dmsc inputKey = 'VIOLET' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2176
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2177	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2178	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2179	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2180	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2181
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2182	dmsc processV.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2183
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2184	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2185	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2186	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2187	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2188
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2189	testProcessV1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2190	dmsc inputKey: 'vviolet'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2191	self should: [ dmsc inputKey = 'VVIOLET' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2192
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2193	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2194	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2195	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2196	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2197
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2198	dmsc processV.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2199
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2200	self should: [ dmsc primaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2201	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2202	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2203	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2204
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2205	testProcessW
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2206	dmsc inputKey: 'wreath'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2207	self should: [ dmsc inputKey = 'WREATH' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2208
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2209	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2210	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2211	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2212	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2213
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2214	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2215
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2216	self should: [ dmsc primaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2217	self should: [ dmsc secondaryTranslation = 'R' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2218	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2219	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2220
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2221	testProcessW1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2222	dmsc inputKey: 'water'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2223	self should: [ dmsc inputKey = 'WATER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2224
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2225	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2226	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2227	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2228	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2229
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2230	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2231
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2232	self should: [ dmsc primaryTranslation = 'A' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2233	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2234	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2235	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2236
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2237	testProcessW2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2238	dmsc inputKey: 'whether'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2239	self should: [ dmsc inputKey = 'WHETHER' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2240
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2241	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2242	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2243	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2244	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2245
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2246	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2247
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2248	self should: [ dmsc primaryTranslation = 'A' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2249	self should: [ dmsc secondaryTranslation = 'A' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2250	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2251	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2252
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2253	testProcessW3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2254	dmsc inputKey: 'Arnow'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2255	self should: [ dmsc inputKey = 'ARNOW' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2256
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2257	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2258	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2259	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2260	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2261
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2262	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2263
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2264	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2265	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2266	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2267	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2268
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2269	testProcessW4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2270	dmsc inputKey: 'belewski'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2271	self should: [ dmsc inputKey = 'BELEWSKI' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2272
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2273	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2274	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2275	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2276	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2277
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2278	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2279
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2280	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2281	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2282	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2283	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2284
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2285	testProcessW5
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2286	dmsc inputKey: 'schewell'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2287	self should: [ dmsc inputKey = 'SCHEWELL' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2288
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2289	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2290	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2291	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2292	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2293
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2294	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2295
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2296	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2297	self should: [ dmsc secondaryTranslation = 'F' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2298	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2299	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2300
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2301	testProcessW6
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2302	dmsc inputKey: 'filipowicz'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2303	self should: [ dmsc inputKey = 'FILIPOWICZ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2304
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2305	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2306	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2307	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2308	dmsc currentIndex: 7.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2309
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2310	dmsc processW.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2311
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2312	self should: [ dmsc primaryTranslation = 'TS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2313	self should: [ dmsc secondaryTranslation = 'FX' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2314	self should: [ dmsc skipCount = 3 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2315	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2316
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2317	testProcessX
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2318	dmsc inputKey: 'breaux'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2319	self should: [ dmsc inputKey = 'BREAUX' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2320
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2321	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2322	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2323	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2324	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2325
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2326	dmsc processX.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2327
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2328	self should: [ dmsc primaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2329	self should: [ dmsc secondaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2330	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2331	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2332
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2333	testProcessX1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2334	dmsc inputKey: 'bordoux'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2335	self should: [ dmsc inputKey = 'BORDOUX' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2336
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2337	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2338	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2339	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2340	dmsc currentIndex: 7.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2341
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2342	dmsc processX.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2343
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2344	self should: [ dmsc primaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2345	self should: [ dmsc secondaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2346	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2347	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2348
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2349	testProcessX2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2350	dmsc inputKey: 'shoroxx'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2351	self should: [ dmsc inputKey = 'SHOROXX' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2352
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2353	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2354	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2355	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2356	dmsc currentIndex: 6.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2357
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2358	dmsc processX.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2359
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2360	self should: [ dmsc primaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2361	self should: [ dmsc secondaryTranslation = 'KS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2362	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2363	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2364
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2365	testProcessZ
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2366	dmsc inputKey: 'zhao'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2367	self should: [ dmsc inputKey = 'ZHAO' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2368
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2369	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2370	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2371	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2372	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2373
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2374	dmsc processZ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2375
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2376	self should: [ dmsc primaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2377	self should: [ dmsc secondaryTranslation = 'J' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2378	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2379	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2380
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2381	testProcessZ1
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2382	dmsc inputKey: 'pizza'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2383	self should: [ dmsc inputKey = 'PIZZA' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2384
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2385	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2386	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2387	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2388	dmsc currentIndex: 3.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2389
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2390	dmsc processZ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2391
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2392	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2393	self should: [ dmsc secondaryTranslation = 'TS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2394	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2395	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2396
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2397	testProcessZ2
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2398	dmsc inputKey: 'wkicz'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2399	self should: [ dmsc inputKey = 'WKICZ' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2400
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2401	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2402	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2403	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2404	dmsc currentIndex: 5.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2405
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2406	dmsc processZ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2407
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2408	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2409	self should: [ dmsc secondaryTranslation = 'TS' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2410	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2411	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2412
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2413	testProcessZ3
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2414	dmsc inputKey: 'zoo'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2415	self should: [ dmsc inputKey = 'ZOO' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2416
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2417	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2418	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2419	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2420	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2421
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2422	dmsc processZ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2423
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2424	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2425	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2426	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2427	!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2428
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2429	testProcessZ4
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2430	dmsc inputKey: 'zzyxx'.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2431	self should: [ dmsc inputKey = 'ZZYXX' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2432
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2433	self should: [ dmsc primaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2434	self should: [ dmsc secondaryTranslation = '' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2435	self should: [ dmsc skipCount = 0 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2436	dmsc currentIndex: 1.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2437
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2438	dmsc processZ.
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2439
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2440	self should: [ dmsc primaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2441	self should: [ dmsc secondaryTranslation = 'S' ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2442	self should: [ dmsc skipCount = 1 ].
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2443	! !
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2444
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2445	!DoubleMetaphoneStringComparatorTest class methodsFor:'documentation'!
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2446
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2447	version
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2448	^ '$Header$'
e6aa736ec741 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2449	! !
2041 9afa32f02da6 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 1447 diff changeset	2450

author	sr
	Wed, 05 Feb 2020 14:14:49 +0100
changeset 2555	b3fd3a67477b
parent 2408	888711f2dca0
permissions	-rw-r--r--