Hi Marcel,

On Tue, Nov 22, 2022 at 1:58 AM Marcel Taeumel <marcel.taeumel at 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 explore
>

Write 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.494


> Best,
> Marcel
>
>

-- 
_,,,^..^,,,_
best, Eliot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20221122/7d92ecb3/attachment.html>