Am 22.11.2022 13:50:30 schrieb Eliot Miranda <eliot.miranda@gmail.com>:
Hi Marcel,On Tue, Nov 22, 2022 at 1:58 AM Marcel Taeumel <marcel.taeumel@hpi.de> wrote:Hi all --Should the following work?class := DoubleByteArray.size := 10.dummy := 123.array := class new: size.array atAllPut: dummy.(DataStream newFileNamed: 'numbers')nextPut: array;close.stream := DataStream fileNamed: 'numbers'.load := stream readArray.stream close.load exploreWrite a test :-)testRawBits
((RawBitsArray subclasses reject: #isAbstract), ((RawBitsArray subclasses select: #isAbstract) collect: #subclasses)) flatten do:
[:class| | instance |
instance := class new: 10.
instance first isColor
ifTrue:
[1 to: instance size do: [:i| instance at: i put: (Color r: i * 1 g: i * 2 b: i * 3)]]
ifFalse:
[1 to: instance size do: [:i| instance at: i put: i]].
self assert: instance equals: (self testObject: instance) description: 'A ', class name, ' should be serializable']see Tests-eem.494Best,Marcel
--_,,,^..^,,,_best, Eliot