Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.702.mcz
==================== Summary ====================
Name: System-eem.702 Author: eem Time: 3 February 2015, 10:22:27.685 am UUID: b07f9f90-735b-4389-b13f-9ce95be674c2 Ancestors: System-eem.701
Make DataStream class>>testWith: compare the result if #= doesn't default to #== (or at least doesn't default to Object's#=)
=============== Diff against System-eem.701 ===============
Item was changed: ----- Method: DataStream class>>testWith: (in category 'as yet unclassified') ----- testWith: anObject "As a test of DataStream/ReferenceStream, write out anObject and read it back. 11/19/92 jhm: Set the file type. More informative file name." "DataStream testWith: 'hi'" "ReferenceStream testWith: 'hi'" | file result |
file := FileStream fileNamed: (self name, ' test'). file binary. (self on: file) nextPut: anObject. file close.
file := FileStream fileNamed: (self name, ' test'). file binary. result := (self on: file) next. file close. + (anObject class whichClassIncludesSelector: #=) ifFalse: + [self assert: result = anObject]. + ^result! - ^ result!
squeak-dev@lists.squeakfoundation.org