hg/stx-goodies-regression: RegressionTests__BinaryIOTests.st@27e6519ac900 (annotated)

243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#BinaryIOTests
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	9	category:'tests-Regression-Streams'
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	!BinaryIOTests class methodsFor:'documentation'!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	documentation
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	documentation to be added.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	[author:]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	Claus Gittinger (cg@alan)
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	[instance variables:]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	[class variables:]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	[see also:]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	history
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	"Created: / 09-09-2004 / 13:13:39 / cg"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	! !
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
1486 27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	34	!BinaryIOTests class methodsFor:'queries'!
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	35
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	36	coveredPackageNames
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	37	^ #( 'stx:libboss' )
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	38	! !
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	39
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	!BinaryIOTests methodsFor:'initialize / release'!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	setUp
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	"common setup - invoked before testing."
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	super setUp
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	tearDown
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	"common cleanup - invoked after testing."
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	super tearDown
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	! !
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	!BinaryIOTests methodsFor:'tests'!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	test1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	\|test test2 loaders bytes outStream inStream\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	loaders := OrderedCollection new.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	outStream := ByteArray new writeStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	test := [:objWritten \|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	objWritten storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	loaders add:[
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	\|objRead expected\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	expected := objWritten.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	objRead := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	self assert:( objRead = expected )
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	test2 := [:val \| test value:val. test value: val negated].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	test value:(1 to:99).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	test value:(1 to:99) asArray.
1274 8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	78	test value:(1 to:99) asArray beImmutable.
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	bytes := outStream contents.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	inStream := BinaryInputManager on:bytes readStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	loaders do:[:action \| action value ].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	self run:#test1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	self new test1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
1274 8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	91	testArrays1
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	92	\|objs outStream inStream\|
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	93
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	94	outStream := ByteArray new writeStream.
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	95
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	96	objs := #(
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	97	()
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	98	(1)
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	99	(1 2)
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	100	(1 2 3)
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	101	(nil true false 1 1.0)
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	102	).
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	103
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	104	objs do:[:written \|
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	105	written storeBinaryOn:outStream.
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	106	].
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	107
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	108
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	109	inStream := BinaryInputManager on:(outStream contents readStream).
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	110
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	111	objs do:[:expected \| \|read\|
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	112	read := inStream nextObject.
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	113	self assert:( read = expected).
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	114	].
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	115
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	116	"
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	117	self run:#testArrays1
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	118	self new testArrays1
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	119	"
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	120	!
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	121
1486 27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	122	testBehavior
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	123	\|clsOut clsIn outStream boss inStream\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	124
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	125	Class withoutUpdatingChangesDo:[
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	126	clsOut := Object
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	127	subclass:#BinarioTestClass
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	128	instanceVariableNames:'a b c'
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	129	classVariableNames:''
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	130	poolDictionaries:''
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	131	category:'tests'
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	132	inEnvironment:nil.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	133	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	134
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	135	outStream := ByteArray new writeStream.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	136	boss := BinaryOutputManager new.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	137	clsOut storeBinaryClassOn:outStream manager:boss.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	138
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	139	inStream := BinaryInputManager on:(outStream contents readStream).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	140	BinaryIOManager nonexistingClassSignal handle:[:ex \|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	141	ex proceedWith:ex parameter
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	142	] do:[
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	143	clsIn := inStream nextObject.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	144	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	145	self assert:( clsIn name = clsOut name ).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	146	self assert:( clsIn superclass == clsOut superclass ).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	147	self assert:( clsIn instVarNames = clsOut instVarNames ).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	148	self assert:( clsIn category = clsOut category ).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	149	self assert:( clsIn poolDictionaries = clsOut poolDictionaries ).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	150	self assert:( clsIn methodDictionary sameContentsAs: clsOut methodDictionary ).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	151
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	152	"
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	153	self run:#testBehavior
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	154	self new testBehavior
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	155	"
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	156	!
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	157
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	testByteArrays1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	\|objs outStream inStream\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	outStream := ByteArray new writeStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	objs := #(
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	[]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	[1]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	[1 2]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	[1 2 3]
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	objs do:[:written \|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	written storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	inStream := BinaryInputManager on:(outStream contents readStream).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	objs do:[:expected \| \|read\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	read := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	self assert:( read = expected).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	self run:#testByteArrays1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	self new testByteArrays1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	testByteArrays2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	\|outStream inStream test\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	test := [:obj \|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	\|written read\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	outStream := ByteArray new writeStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	written := obj.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	written storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	inStream := BinaryInputManager on:(outStream contents readStream).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	read := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	self assert:( read = written).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	test value:(1 to:254) asByteArray.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	test value:(1 to:255) asByteArray.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	test value:(0 to:255) asByteArray.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	test value:(ByteArray new:100).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	test value:(ByteArray new:127).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	test value:(ByteArray new:128).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	test value:(ByteArray new:129).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	test value:(ByteArray new:254).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	test value:(ByteArray new:255).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	test value:(ByteArray new:256).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	test value:(ByteArray new:257).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	test value:(ByteArray new:1000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	test value:(ByteArray new:10000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	test value:(ByteArray new:100000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	test value:(ByteArray new:1000000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	test value:(ByteArray new:10000000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221
1274 8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	222	test value:(ByteArray new:1000) beImmutable.
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	223
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	224
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	self run:#testByteArrays2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	self new testByteArrays2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230
1486 27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	231	testCharacters
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	232	\|objs outStream inStream\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	233
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	234	outStream := ByteArray new writeStream.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	235
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	236	objs :=
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	237	{
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	238	$a .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	239	(Character value:0) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	240	(Character value:255) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	241	(Character value:256) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	242	(Character value:16rFFFF) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	243	(Character value:16r10000) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	244	(Character value:16rFFFFFF) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	245	}.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	246
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	247	objs do:[:written \|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	248	written storeBinaryOn:outStream.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	249	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	250
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	251
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	252	inStream := BinaryInputManager on:(outStream contents readStream).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	253
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	254	objs do:[:expected \| \|read\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	255	read := inStream nextObject.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	256	self assert:( read = expected).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	257	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	258
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	259	"
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	260	self run:#testCharacters
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	261	self new testCharacters
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	262	"
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	263	!
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	264
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	testIntegers1
649 415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	266	\|nums outStream bytes inStream verbose\|
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	267
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	268	verbose := false.
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	outStream := ByteArray new writeStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	nums := #(
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	0
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	1
1486 27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	275	15
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	276	16
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	277	30
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	278	31
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	279	32
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	280	62
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	281	63
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	282	64
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	127
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	128
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	129
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	254
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	255
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	256
244 cbabc6730fb7 * empty log message * Claus Gittinger <cg@exept.de> parents: 243 diff changeset	289	16r0FFF
cbabc6730fb7 * empty log message * Claus Gittinger <cg@exept.de> parents: 243 diff changeset	290	16r1000
cbabc6730fb7 * empty log message * Claus Gittinger <cg@exept.de> parents: 243 diff changeset	291	16r1001
cbabc6730fb7 * empty log message * Claus Gittinger <cg@exept.de> parents: 243 diff changeset	292	16r1FFF
cbabc6730fb7 * empty log message * Claus Gittinger <cg@exept.de> parents: 243 diff changeset	293	16r2000
cbabc6730fb7 * empty log message * Claus Gittinger <cg@exept.de> parents: 243 diff changeset	294	16r2001
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	16r3FFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	16r4000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	16r4001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	16r7FFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	16r8000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	16r8001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	16rFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	16r10000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	16r10001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	16r3FFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	16r400000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307	16r400001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	16r7FFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	16r800000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	16r800001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	16rFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312	16r1000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313	16r1000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	315	16r3FFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	316	16r40000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	16r40000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	318	16r7FFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319	16r80000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320	16r80000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321	16rFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	322	16r100000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	16r100000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	16r3FFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326	16r4000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327	16r4000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	16r7FFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	16r8000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	16r8000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331	16rFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	16r10000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	16r10000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	16r3FFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	16r400000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	16r400000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	16r7FFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339	16r800000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	16r800000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341	16rFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342	16r1000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	16r1000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	16r3FFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346	16r40000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347	16r40000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	16r7FFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	16r80000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	16r80000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351	16rFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	16r100000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353	16r100000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354
554 2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	355	16r3FFFFFFFFFFFFFFF
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356	16r4000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	16r4000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	16r7FFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	16r8000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	16r8000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	16rFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	16r10000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	16r10000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	16r3FFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	16r400000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367	16r400000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	16r7FFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	16r800000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	16r800000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	16rFFFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	16r1000000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373	16r1000000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	16r3FFFFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	16r40000000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	16r40000000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378	16r7FFFFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	16r80000000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	16r80000000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	16rFFFFFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	16r100000000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383	16r100000000000000000001
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385	16r7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	16r80000000000000000000000000000000000000
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	16rFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388	).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	nums do:[:written \|
554 2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	391	\|bytes read\|
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	392
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	393	bytes := written binaryStoreBytes.
649 415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	394	verbose ifTrue:[
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	395	Transcript show:written.
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	396	Transcript show:' -> '.
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	397	Transcript showCR:bytes.
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	398	].
554 2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	399	read := Object fromBinaryStoreBytes:bytes.
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	400	self assert:(read = written).
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	401	].
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	402
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	403	nums do:[:written \|
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	404	\|bytes read\|
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	405
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	406	bytes := written negated binaryStoreBytes.
649 415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	407	verbose ifTrue:[
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	408	Transcript show:written.
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	409	Transcript show:' -> '.
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	410	Transcript showCR:bytes.
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	411	].
554 2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	412	read := Object fromBinaryStoreBytes:bytes.
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	413	self assert:(read = written negated).
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	414	].
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	415
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	416	nums do:[:written \|
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417	written storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	418	written negated storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420
554 2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	421	bytes := outStream contents.
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	422	inStream := BinaryInputManager on:(bytes readStream).
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	nums do:[:expected \| \|read\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	read := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	self assert:( read = expected).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428	read := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429	self assert:( read = expected negated).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	432
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434	self run:#testIntegers1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435	self new testIntegers1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436	"
649 415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	437
415a9f079659 verbose Claus Gittinger <cg@exept.de> parents: 614 diff changeset	438	"Modified: / 10-01-2012 / 19:23:44 / cg"
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440
1486 27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	441	testNumbers1
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	442	\|floats fractions nums outStream bytes inStream verbose\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	443
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	444	verbose := false.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	445
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	446	outStream := ByteArray new writeStream.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	447
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	448	floats := #(
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	449	0.0
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	450	1.0
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	451	2.0
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	452	1.23456
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	453	1e17
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	454	).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	455	fractions := {
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	456	(1/2) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	457	(3/17) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	458	(1234567890123456789/17) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	459	(12345678901234567890123456789/17) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	460	(17/1234567890123456789) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	461	(17/12345678901234567890123456789) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	462	(1234567890123456788/1234567890123456789) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	463	(12345678901234567890123456788/12345678901234567890123456789) .
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	464	}.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	465	nums := floats , fractions.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	466
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	467	nums do:[:written \|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	468	\|bytes read\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	469
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	470	bytes := written binaryStoreBytes.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	471	verbose ifTrue:[
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	472	Transcript show:written.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	473	Transcript show:' -> '.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	474	Transcript showCR:bytes.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	475	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	476	read := Object fromBinaryStoreBytes:bytes.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	477	self assert:(read = written).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	478	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	479
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	480	nums do:[:written \|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	481	\|bytes read\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	482
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	483	bytes := written negated binaryStoreBytes.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	484	verbose ifTrue:[
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	485	Transcript show:written.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	486	Transcript show:' -> '.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	487	Transcript showCR:bytes.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	488	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	489	read := Object fromBinaryStoreBytes:bytes.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	490	self assert:(read = written negated).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	491	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	492
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	493	nums do:[:written \|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	494	written storeBinaryOn:outStream.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	495	written negated storeBinaryOn:outStream.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	496	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	497
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	498	bytes := outStream contents.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	499	inStream := BinaryInputManager on:(bytes readStream).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	500
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	501	nums do:[:expected \| \|read\|
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	502	read := inStream nextObject.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	503	self assert:( read = expected).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	504
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	505	read := inStream nextObject.
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	506	self assert:( read = expected negated).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	507
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	508	].
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	509
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	510	"
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	511	self run:#testNumbers1
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	512	self new testNumbers1
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	513	"
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	514	!
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	515
555 9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	516	testOrderedCollection1
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	517	\|o rw\|
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	518
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	519	rw := [:obj \|
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	520	\|read outStream inStream\|
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	521
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	522	outStream := ByteArray new writeStream.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	523
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	524	obj storeBinaryOn:outStream.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	525
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	526	inStream := BinaryInputManager on:(outStream contents readStream).
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	527	read := inStream nextObject.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	528	self assert:( read = obj).
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	529	].
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	530
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	531	o := OrderedCollection new.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	532	rw value:o.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	533
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	534	o add:1.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	535	rw value:o.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	536
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	537	o add:2.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	538	rw value:o.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	539
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	540	o add:#().
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	541	rw value:o.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	542
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	543	o add:#(1 2 3).
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	544	rw value:o.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	545
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	546	"
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	547	self run:#testOrderedCollection1
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	548	self new testOrderedCollection1
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	549	"
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	550	!
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	551
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	552	testSaveReadBOS
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	553
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	554	\|objStored childStored childrenStored objLoaded childrenLoaded childLoaded
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	555	fn bos privateClass didConvert verbose\|
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	556
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	557	verbose := false.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	558	"/ verbose := true.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	559
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	560	Class withoutUpdatingChangesDo:[
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	561	HierarchicalItem subclass:#XHierarchicalItem
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	562	instanceVariableNames:''
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	563	classVariableNames:''
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	564	poolDictionaries:''
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	565	category:'Views-Support'.
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	566
61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	567	privateClass := Smalltalk at:#XHierarchicalItem.
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	568	].
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	569
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	570	objStored := privateClass new.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	571	childStored := privateClass new.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	572	objStored add: childStored.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	573	childStored instVarNamed:#width put:privateClass.
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	574
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	575	self assert:(objStored hasChildren).
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	576	self assert:(objStored children size == 1).
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	577	self assert:(objStored children first == childStored).
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	578
555 9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	579	"/ fn := '/tmp/HI' asFilename.
9ffbf260e086 * empty log message * Claus Gittinger <cg@exept.de> parents: 554 diff changeset	580	fn := Filename newTemporary.
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	581	bos := BinaryObjectStorage onNew: (fn writeStream).
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	582	bos nextPut: objStored.
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	583
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	584	verbose ifTrue:[
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	585	Transcript showCR:'object saved:'.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	586	"/ obj inspect.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	587	ObjectMemory dumpObject:objStored.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	588	].
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	589	bos close.
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	590
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	591	didConvert := false.
61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	592
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	593	"/ now, change the class (stored object is old)
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	594	Class withoutUpdatingChangesDo:[
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	595	verbose ifTrue:[
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	596	Transcript showCR:'changing the class (add a slot)...'.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	597	].
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	598	privateClass addInstVarName:'foo'.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	599	verbose ifTrue:[
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	600	Transcript showCR:'done.'.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	601	].
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	602	].
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	603
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	604	bos := BinaryObjectStorage onOld: fn readStream.
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	605	BinaryIOManager requestConversionSignal handle:[:ex\|
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	606	\| oldObject newClass \|
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	607
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	608	newClass := ex parameter key.
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	609	oldObject := ex parameter value.
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	610	verbose ifTrue:[
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	611	Transcript showCR: 'converting...'.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	612	].
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	613	didConvert := true.
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	614	ex proceedWith: (newClass cloneFrom: oldObject).
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	615	] do:[
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	616	BinaryIOManager invalidClassSignal handle:[:ex2\|
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	617	\| oldClass newClass proceedClass \|
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	618
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	619	newClass := Smalltalk at: ex2 parameter name asSymbol.
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	620	oldClass := ex2 parameter.
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	621
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	622	verbose ifTrue:[
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	623	Transcript showCR: 'will convert instance of ',oldClass name.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	624	].
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	625	proceedClass :=(((newClass isSubclassOf: HierarchicalItem) or:[newClass == HierarchicalItem]) ifTrue:[newClass] ifFalse:[oldClass]).
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	626	ex2 proceedWith: proceedClass.
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	627	] do:[
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	628	objLoaded := bos next.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	629	verbose ifTrue:[
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	630	"/ obj inspect.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	631	Transcript showCR:'object restored (new class):'.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	632	ObjectMemory dumpObject:objLoaded.
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	633	].
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	634	].
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	635	].
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	636
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	637	self assert:(didConvert).
1485 5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	638	self assert:(objLoaded class instSize == (HierarchicalItem instSize + 1)).
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	639
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	640	self assert:(objLoaded hasChildren).
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	641	self assert:(objLoaded children size == 1).
5a1aadddbc7f Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1274 diff changeset	642	self assert:(objLoaded children == (objLoaded instVarNamed:#children) ).
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	643
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	644	"Created: / 26-09-2007 / 18:21:11 / cg"
614 61a039961050 changed: #testSaveReadBOS Claus Gittinger <cg@exept.de> parents: 555 diff changeset	645	"Modified: / 07-08-2011 / 15:29:35 / cg"
339 adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	646	!
adbb9ff06135 conversion fixes Claus Gittinger <cg@exept.de> parents: 244 diff changeset	647
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	testStrings1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649	\|objs outStream inStream\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651	outStream := ByteArray new writeStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	652
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	objs := #(
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654	''
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655	'1'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656	'12'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657	'123'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	"/ 1 2 3 4 5 6 7 8 9 0 1 2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659	'12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661	"/ 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662	'123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	"/ 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	'1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667	"/ 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668	'12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567'
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	objs do:[:written \|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672	written storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	inStream := BinaryInputManager on:(outStream contents readStream).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	objs do:[:expected \| \|read\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	read := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	self assert:( read = expected).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	self run:#testStrings1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685	self new testStrings1
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	686	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	testStrings2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690	\|outStream inStream test\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	691
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	test := [:obj \|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	693	\|written read\|
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	694
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695	outStream := ByteArray new writeStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	written := obj.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697	written storeBinaryOn:outStream.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	698
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	inStream := BinaryInputManager on:(outStream contents readStream).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	read := inStream nextObject.
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702	self assert:( read = written).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	].
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704
1486 27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	705	test value:(String new:14).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	706	test value:(String new:15).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	707	test value:(String new:16).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	708	test value:(String new:30).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	709	test value:(String new:31).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	710	test value:(String new:32).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	711	test value:(String new:62).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	712	test value:(String new:63).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	713	test value:(String new:64).
27e6519ac900 Merge Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1485 diff changeset	714	test value:(String new:65).
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	715	test value:(String new:100).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	716	test value:(String new:127).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	717	test value:(String new:128).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	718	test value:(String new:129).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	719	test value:(String new:254).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	720	test value:(String new:255).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721	test value:(String new:256).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	test value:(String new:257).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	test value:(String new:1000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724	test value:(String new:10000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	725	test value:(String new:100000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	726	test value:(String new:1000000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	727	test value:(String new:10000000).
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	728
1274 8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	729	test value:(ImmutableString new:1000).
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	730
8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	731
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732	"
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733	self run:#testStrings2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	self new testStrings2
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	"
693 29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	736	!
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	737
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	738	test_store_retrieve_string_and_array_01
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	739	\|original retrieved hello inStream outStream\|
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	740
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	741	hello := 'hello'.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	742	original := Array with:hello with:hello.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	743
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	744	[
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	745	outStream := 'data.bos' asFilename writeStream binary.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	746	original storeBinaryOn:outStream.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	747	outStream close.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	748
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	749	inStream := 'data.bos' asFilename readStream binary.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	750	retrieved := Object readBinaryFrom:inStream.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	751	inStream close.
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	752	] ensure:[
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	753	'data.bos' asFilename delete
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	754	].
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	755
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	756	self assert:( (original at:1) == (original at:2) ). "must be identical"
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	757	self assert:( (retrieved at:1) == (retrieved at:2) ). "must be identical"
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	758
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	759	"
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	760	self new test01_store_retrieve_string_and_array_01
29463cb88dd5 added: #test_store_retrieve_string_and_array_01 Claus Gittinger <cg@exept.de> parents: 649 diff changeset	761	"
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762	! !
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764	!BinaryIOTests class methodsFor:'documentation'!
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	766	version
a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767	^ '$Header$'
554 2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	768	!
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	769
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	770	version_CVS
2498f18d1e95 changed: #testIntegers1 Claus Gittinger <cg@exept.de> parents: 339 diff changeset	771	^ '$Header$'
243 a4d2af7147c7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	! !
1274 8501a2b641b2 class: RegressionTests::BinaryIOTests Stefan Vogel <sv@exept.de> parents: 693 diff changeset	773

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 13 Apr 2016 23:15:27 +0100
branch	jv
changeset 1486	27e6519ac900
parent 1485	5a1aadddbc7f
child 1487	c737fa75ba5a
permissions	-rw-r--r--