<div dir="ltr"><div dir="ltr"><div class="gmail_default" style="font-size:small">Hi Marcel,<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, Nov 22, 2022 at 1:58 AM Marcel Taeumel <<a href="mailto:marcel.taeumel@hpi.de">marcel.taeumel@hpi.de</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"><div id="m_-5008758099522280910__MailbirdStyleContent" style="font-size:10pt;font-family:Arial;color:rgb(0,0,0);text-align:left" dir="ltr">Hi all --<div></div><div><br></div><div>Should the following work?</div><div><br></div><div><div><span style="font-size:13.3333px">class := DoubleByteArray.</span></div><div><span style="font-size:13.3333px">size := 10.</span></div><div><span style="font-size:13.3333px">dummy := 123.</span></div><div><span style="font-size:13.3333px"><br></span></div><div><span style="font-size:13.3333px">array := class new: size.</span></div><div><span style="font-size:13.3333px">array  atAllPut: dummy.</span></div><div><span style="font-size:13.3333px"><br></span></div><div><span style="font-size:13.3333px">(DataStream newFileNamed: 'numbers')</span></div><div><span style="font-size:13.3333px"><span style="white-space:pre-wrap">    </span>nextPut: array;</span></div><div><span style="font-size:13.3333px"><span style="white-space:pre-wrap">   </span>close.</span></div><div><span style="font-size:13.3333px"><br></span></div><div><span style="font-size:13.3333px">stream := DataStream fileNamed: 'numbers'. </span></div><div><span style="font-size:13.3333px">load := stream readArray.</span></div><div><span style="font-size:13.3333px">stream close.</span></div><div><span style="font-size:13.3333px">load explore</span></div></div></div></blockquote><div><br></div><div class="gmail_default" style="font-size:small">Write a test :-)</div><div class="gmail_default" style="font-size:small"><br></div><div class="gmail_default" style="font-size:small">testRawBits<br>    ((RawBitsArray subclasses reject: #isAbstract), ((RawBitsArray subclasses select: #isAbstract) collect: #subclasses)) flatten do:<br>        [:class| | instance |<br>        instance := class new: 10.<br>        instance first isColor<br>            ifTrue:<br>                [1 to: instance size do: [:i| instance at: i put: (Color r: i * 1 g: i * 2 b: i * 3)]]<br>            ifFalse:<br>                [1 to: instance size do: [:i| instance at: i put: i]].<br>        self assert: instance equals: (self testObject: instance) description: 'A ', class name, ' should be serializable']<br></div><div class="gmail_default" style="font-size:small"><br></div><div class="gmail_default" style="font-size:small">see Tests-eem.494</div><div class="gmail_default" style="font-size:small"><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"><div id="m_-5008758099522280910__MailbirdStyleContent" style="font-size:10pt;font-family:Arial;color:rgb(0,0,0);text-align:left" dir="ltr"><div><br></div><div>Best,</div><div>Marcel</div></div><br>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><span style="font-size:small;border-collapse:separate"><div>_,,,^..^,,,_<br></div><div>best, Eliot</div></span></div></div></div></div>