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

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

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Jul 2019 18:53:03 +0200
changeset 2327	bf482d49aeaf
parent 2175	c2e359dfc0fc
child 2408	888711f2dca0
permissions	-rw-r--r--