hg/stx-goodies-regression: RegressionTests__CharacterEncoderTests.st@c79339643624 (annotated)

229 de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	TestCase subclass:#CharacterEncoderTests
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'Collections-Text-Encodings'
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!CharacterEncoderTests class methodsFor:'documentation'!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	documentation
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	documentation to be added.
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	[author:]
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	Claus Gittinger (cg@alan)
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	[instance variables:]
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	[class variables:]
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	[see also:]
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	history
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	"Created: / 11.2.2004 / 12:25:54 / cg"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	! !
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	!CharacterEncoderTests methodsFor:'helpers'!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	xTestReversability:encoderClass
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	self xTestReversability:encoderClass skip:#()
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	self new xTestReversability: (CharacterEncoder::ISO8859_1)
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
231 c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	42	xTestReversability:encoderClass ignoreInvalid:ignoreInvalid
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	43	self xTestReversability:encoderClass skip:#() ignoreInvalid:ignoreInvalid
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	44
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	45	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	46	self new xTestReversability: (CharacterEncoder::ISO8859_1)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	47	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	48	!
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	49
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	50	xTestReversability:encoderClass range:range skip:skippedCodes
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	51	self
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	52	xTestReversability:encoderClass
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	53	range:range
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	54	skip:skippedCodes
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	55	ignoreInvalid:false
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	56
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	57	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	58	self new xTestReversability: (CharacterEncoder::ISO8859_1)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	59	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	60	!
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	61
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	62	xTestReversability:encoderClass range:range skip:skippedCodes ignoreInvalid:ignoreInvalid
229 de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	\|encoder\|
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	encoder := encoderClass new.
231 c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	66	range do:[:code \|
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	67	\|unicode code2 invalid\|
229 de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	(skippedCodes includes:code) ifTrue:[
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	self should:[ encoder decode:code ] raise:CharacterEncoderError.
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	] ifFalse:[
231 c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	72	ignoreInvalid ifTrue:[
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	73	invalid := false.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	74	CharacterEncoderError handle:[:ex \|
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	75	invalid := true.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	76	] do:[
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	77	unicode := encoder decode:code.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	78	].
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	79	invalid ifFalse:[
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	80	code2 := encoder encode:unicode.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	81	self assert:(code == code2).
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	82	].
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	83	] ifFalse:[
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	84	unicode := encoder decode:code.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	85	code2 := encoder encode:unicode.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	86	self assert:(code == code2).
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	87	]
229 de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	]
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	].
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	self new xTestReversability: (CharacterEncoder::ISO8859_1)
231 c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	93
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	94	self new
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	95	xTestReversability:(CharacterEncoder::JIS0208)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	96	range:(16r8140 to:16rEAA4)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	97	skip:#()
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	98	ignoreInvalid:true
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	99	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	100	!
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	101
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	102	xTestReversability:encoderClass skip:skippedCodes
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	103	self
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	104	xTestReversability:encoderClass
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	105	range:(encoderClass minCode to:encoderClass maxCode)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	106	skip:skippedCodes
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	107
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	108	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	109	self new xTestReversability: (CharacterEncoder::ISO8859_1)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	110	self new xTestReversability: (CharacterEncoder::JIS0208)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	111	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	112	!
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	113
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	114	xTestReversability:encoderClass skip:skippedCodes ignoreInvalid:ignoreInvalid
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	115	self
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	116	xTestReversability:encoderClass
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	117	range:(encoderClass minCode to:encoderClass maxCode)
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	118	skip:skippedCodes
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	119	ignoreInvalid:ignoreInvalid
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	120
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	121	"
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	122	self new xTestReversability: (CharacterEncoder::ISO8859_1)
230 4cfe3e0aa415 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	123	self new xTestReversability: (CharacterEncoder::JIS0208)
229 de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	! !
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	!CharacterEncoderTests methodsFor:'initialize / release'!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	setUp
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	"common setup - invoked before testing."
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	super setUp
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	tearDown
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	"common cleanup - invoked after testing."
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	super tearDown
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	! !
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	!CharacterEncoderTests methodsFor:'tests'!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	test1
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	self xTestReversability: (CharacterEncoder::ISO8859_1).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	self xTestReversability: (CharacterEncoder::ISO8859_2).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	self xTestReversability: (CharacterEncoder::ISO8859_3) skip:#( 16rA5 16rAE 16rBE 16rC3 16rD0 16rE3 16rF0 ).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	self xTestReversability: (CharacterEncoder::ISO8859_4).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	self xTestReversability: (CharacterEncoder::ISO8859_5).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	self xTestReversability: (CharacterEncoder::ISO8859_6) skip:#( 16rA1 16rA2 16rA3 16rA5 16rA6 16rA7
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	16rA8 16rA9 16rAA 16rAB 16rAE 16rAF
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	16rB0 16rB1 16rB2 16rB3 16rB4 16rB5 16rB6 16rB7
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	16rB8 16rB9 16rBA 16rBC 16rBD 16rBE
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	16rC0
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154	16rDB 16rDC 16rDD 16rDE 16rDF
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	16rF3 16rF4 16rF5 16rF6 16rF7
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	16rF8 16rF9 16rFA 16rFB 16rFC 16rFD 16rFE 16rFF
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	self xTestReversability: (CharacterEncoder::ISO8859_7) skip:#( 16rAE 16rD2 16rFF ).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	self xTestReversability: (CharacterEncoder::ISO8859_8) skip:#( 16rA1 16rBF
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	16rC0 16rC1 16rC2 16rC3 16rC4 16rC5 16rC6 16rC7
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	16rC8 16rC9 16rCA 16rCB 16rCC 16rCD 16rCE 16rCF
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	16rD0 16rD1 16rD2 16rD3 16rD4 16rD5 16rD6 16rD7
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	16rD8 16rD9 16rDA 16rDB 16rDC 16rDD 16rDE
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	16rFB 16rFC 16rFF
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	self xTestReversability: (CharacterEncoder::ISO8859_9).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	self xTestReversability: (CharacterEncoder::ISO8859_10).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	self xTestReversability: (CharacterEncoder::ISO8859_11) skip:#( 16rDB 16rDC 16rDD 16rDE 16rFC 16rFD 16rFE 16rFF ).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	self xTestReversability: (CharacterEncoder::ISO8859_13).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	self xTestReversability: (CharacterEncoder::ISO8859_14).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	self xTestReversability: (CharacterEncoder::ISO8859_15).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	self xTestReversability: (CharacterEncoder::ISO8859_16).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	self xTestReversability: (CharacterEncoder::KOI8_U).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	self xTestReversability: (CharacterEncoder::KOI8_R).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	self xTestReversability: (CharacterEncoder::GSM0338) skip:( 16r80 to: 16rFF).
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177
231 c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	178	self xTestReversability: (CharacterEncoder::JIS0208) ignoreInvalid:true.
c79339643624 * empty log message * Claus Gittinger <cg@exept.de> parents: 230 diff changeset	179
229 de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	self new test1
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	"
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	! !
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	!CharacterEncoderTests class methodsFor:'documentation'!
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	version
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	^ '$Header$'
de65129066f8 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 11 Feb 2004 18:32:02 +0100
changeset 231	c79339643624
parent 230	4cfe3e0aa415
child 232	7bb8b3e1de1d
permissions	-rw-r--r--