hg/stx-goodies-regression: RegressionTests__StreamTests.st@0de4acfc2597 (annotated)

636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#StreamTests
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
1085 29bb4657f206 category change Claus Gittinger <cg@exept.de> parents: 952 diff changeset	9	category:'tests-Regression-Streams'
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	!StreamTests class methodsFor:'documentation'!
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	documentation
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	documentation to be added.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	[author:]
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	cg
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	[instance variables:]
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	[class variables:]
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	[see also:]
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	! !
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!StreamTests class methodsFor:'queries'!
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	coveredClassNames
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	^ #(
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	'PositionableStream'
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	)
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	"Created: / 16-09-2011 / 14:56:05 / cg"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	! !
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
661 e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	40	!StreamTests methodsFor:'setup'!
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	41
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	42	setUp
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	43	(Smalltalk classNamed:'stx_libcompat') isNil ifTrue:[
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	44	(Smalltalk loadPackage:'stx:libcompat') ifFalse:[
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	45	self error:'libcompat cannot be loaded'.
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	46	].
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	47	].
676 b90bca4aaa94 changed: #setUp Stefan Vogel <sv@exept.de> parents: 661 diff changeset	48	stx_libcompat load.
661 e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	49	! !
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	50
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	!StreamTests methodsFor:'tests'!
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
637 9dbf4cbf5bea added: #test01_numberReading_squeak Claus Gittinger <cg@exept.de> parents: 636 diff changeset	53	test01_numberReading_squeak
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	\|b s val\|
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	b := #[1 2 3 4].
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	s := b readStream.
661 e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	58	val := s nextLittleEndianNumber:4.
e1d4a83cc338 added: #setUp Stefan Vogel <sv@exept.de> parents: 637 diff changeset	59	self assert:val = 16r04030201.
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	self assert:( s atEnd ).
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	self assert:( val := #[16r81 16r82 16r83 16r84] readStream nextLittleEndianNumber:4 ) = 16r84838281.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	self assert:( val := #[16r81 16r82 16r83 16r84 16r85 16r86 16r87 16r88] readStream nextLittleEndianNumber:8 ) = 16r8887868584838281.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	"/ signed
952 e9e3c9e81bb1 class: RegressionTests::StreamTests Stefan Vogel <sv@exept.de> parents: 676 diff changeset	66	self assert:( val := #[16r01 16r02 16r03 16r04] readStream nextLongMSB:true ) = 16r01020304.
e9e3c9e81bb1 class: RegressionTests::StreamTests Stefan Vogel <sv@exept.de> parents: 676 diff changeset	67	self assert:( val := #[16rFF 16rFF 16rFF 16rFF] readStream nextLongMSB:true ) = -1.
e9e3c9e81bb1 class: RegressionTests::StreamTests Stefan Vogel <sv@exept.de> parents: 676 diff changeset	68	self assert:( val := #[16r80 16r00 16r00 16r00] readStream nextLongMSB:true ) = -2147483648.
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	s := WriteStream on:ByteArray new.
952 e9e3c9e81bb1 class: RegressionTests::StreamTests Stefan Vogel <sv@exept.de> parents: 676 diff changeset	71	s nextPutLong:16r01020304 MSB:true.
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	self assert:( val := s contents ) = #[16r01 16r02 16r03 16r04].
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	s := WriteStream on:ByteArray new.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	s nextLittleEndianNumber:4 put:16r01020304.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	self assert:( val := s contents ) = #[16r04 16r03 16r02 16r01].
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	s := WriteStream on:ByteArray new.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	s nextLittleEndianNumber:8 put:16r0102030405060708.
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	self assert:( val := s contents ) = #[16r08 16r07 16r06 16r05 16r04 16r03 16r02 16r01].
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	self run:#test01_numberReading
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	self new test01_numberReading
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	"
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86
637 9dbf4cbf5bea added: #test01_numberReading_squeak Claus Gittinger <cg@exept.de> parents: 636 diff changeset	87	"Created: / 16-09-2011 / 15:26:10 / cg"
1213 0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	88	!
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	89
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	90	test02_readStream
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	91	{
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	92	#($a $b $c $d $a $b $c $d $a $b $c $d $a $b $c $d) .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	93	#[97 98 99 100 97 98 99 100 97 98 99 100] .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	94	'abcdabcdabcdabcd' .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	95	'abcdabcdabcdabcd' asUnicode16String .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	96	'abcdabcdabcdabcd' asUnicode32String .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	97	} do:[:coll\|
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	98	\|s e t\|
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	99
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	100	s := coll readStream.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	101
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	102	"/ initial state?
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	103	self assert:(s atEnd not).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	104	self assert:(s position == 0).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	105	"/ peek returns the correct value
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	106	e := s peek.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	107	self assert:(e asInteger == 97).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	108
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	109	"/ peek should not change any state
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	110	self assert:(s atEnd not).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	111	self assert:(s position == 0).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	112	e := s next.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	113	self assert:(e asInteger == 97).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	114	self assert:(s position == 1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	115	self assert:(s atEnd not).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	116
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	117	e := s peek.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	118	self assert:(s position == 1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	119	self assert:(e asInteger == 98).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	120
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	121	s position:0.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	122	self assert:(s atEnd not).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	123	self assert:(s position == 0).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	124	e := s peek.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	125	self assert:(e asInteger == 97).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	126
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	127	s position:coll size.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	128	self assert:(s atEnd).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	129	self assert:(s position == coll size).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	130
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	131	s position:0.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	132	self assert:(s position == 0).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	133	e := s peek.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	134	self assert:(e asInteger == 97).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	135
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	136	t := s next:2.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	137	self assert:(t size == 2).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	138	self assert:(t at:1) asInteger == 97.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	139	self assert:(t at:2) asInteger == 98.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	140	self assert:(s position == 2).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	141
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	142	s position:1.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	143	self assert:(s position == 1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	144	e := s peek.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	145	self assert:(e asInteger == 98).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	146	t := s upTo:(coll at:1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	147	self assert:(t size == 3).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	148	self assert:(t at:1) == (coll at:2).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	149	self assert:(t at:2) == (coll at:3).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	150	self assert:(t at:3) == (coll at:4).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	151
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	152	self assert:(s position == 5).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	153	self assert:(s peek asInteger == (coll at:2) asInteger).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	154
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	155	s position:1.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	156	(coll at:1) isCharacter ifTrue:[
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	157	s skipSeparators.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	158	self assert:(s position == 1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	159	].
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	160
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	161	s position:(coll size - 1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	162	t := s upToEnd.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	163	self assert:(s position == coll size).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	164	self assert:(t size == 1).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	165	self assert:(t at:1) == (coll at:coll size).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	166
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	167	s position:0.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	168	(coll at:1) isCharacter ifTrue:[
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	169	t := s nextAlphaNumericWord.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	170	self assert:(t asArray = coll asArray).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	171	self assert:(s position == coll size).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	172	].
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	173
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	174	].
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	175
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	176	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	177	self run:#test02_readStream
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	178	self new test02_readStream
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	179	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	180	!
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	181
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	182	test03_readStream
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	183	{
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	184	#($a $b $c $d $ $a $b $c $d $a $b $c $d $a $b $c $d) .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	185	#[97 98 99 100 20 97 98 99 100 97 98 99 100] .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	186	'abcd abcdabcdabcd' .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	187	'abcd abcdabcdabcd' asUnicode16String .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	188	'abcd abcdabcdabcd' asUnicode32String .
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	189	} do:[:coll\|
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	190	\|s e t\|
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	191
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	192	s := coll readStream.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	193
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	194	s position:3.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	195	(coll at:1) isCharacter ifTrue:[
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	196	s skipSeparators.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	197	self assert:(s position == 3).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	198	s next.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	199	s skipSeparators.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	200	self assert:(s position == 5).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	201	].
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	202
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	203	s position:0.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	204	(coll at:1) isCharacter ifTrue:[
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	205	t := s nextAlphaNumericWord.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	206	self assert:(t asArray = (coll asArray copyTo:4)).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	207	self assert:(s position == 4).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	208	].
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	209
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	210	].
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	211
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	212	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	213	self run:#test02_readStream
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	214	self new test02_readStream
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	215	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	216	!
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	217
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	218	test04_readIntegers
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	219	\|s n\|
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	220
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	221	"0123456789012345678901"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	222	s := '1234 56789 123 ' readStream.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	223	self assert:((n := s nextDecimalInteger) == 1234).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	224	self assert:(s position == 4).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	225
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	226	s skipSeparators.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	227	self assert:(s position == 5).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	228
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	229	self assert:((n := s nextDecimalInteger) == 56789).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	230	self assert:(s position == 10).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	231
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	232	s skipSeparators.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	233	self assert:(s position == 14).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	234
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	235	self assert:((n := s nextDecimalInteger) == 123).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	236	self assert:(s position == 17).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	237
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	238	"/ is this the correct behavior?
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	239	self assert:((n := s nextDecimalInteger) == 0).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	240	self assert:(s position == 17).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	241
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	242	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	243	self run:#test04_readIntegers
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	244	self new test04_readIntegers
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	245	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	246	!
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	247
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	248	test05_readAlphanumericWords
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	249	\|s w\|
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	250
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	251	"0123456789012345678901"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	252	s := 'a234 b6789 c23 ' readStream.
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	253	self assert:((w := s nextAlphaNumericWord) = 'a234').
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	254	self assert:(s position == 4).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	255
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	256	self assert:((w := s nextAlphaNumericWord) = 'b6789').
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	257	self assert:(s position == 10).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	258
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	259	self assert:((w := s nextAlphaNumericWord) = 'c23').
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	260	self assert:(s position == 17).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	261
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	262	"/ is this the correct behavior?
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	263	self assert:((w := s nextAlphaNumericWord) isNil).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	264	self assert:(s position == 21).
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	265
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	266	"
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	267	self run:#test05_readAlphanumericWords
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	268	self new test05_readAlphanumericWords
0de4acfc2597 class: RegressionTests::StreamTests Claus Gittinger <cg@exept.de> parents: 1085 diff changeset	269	"
636 450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	! !
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	!StreamTests class methodsFor:'documentation'!
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	version
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	^ '$Header$'
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	!
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278	version_CVS
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279	^ '$Header$'
450f6c74861f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	! !
952 e9e3c9e81bb1 class: RegressionTests::StreamTests Stefan Vogel <sv@exept.de> parents: 676 diff changeset	281

author	Claus Gittinger <cg@exept.de>
	Sat, 04 Oct 2014 22:29:18 +0200
changeset 1213	0de4acfc2597
parent 1085	29bb4657f206
child 1249	3b882caff8e6
permissions	-rw-r--r--