[squeak-dev] The Trunk: Tests-eem.464.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jul 27 04:14:47 UTC 2021
Eliot Miranda uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-eem.464.mcz
==================== Summary ====================
Name: Tests-eem.464
Author: eem
Time: 26 July 2021, 9:14:45.156871 pm
UUID: 0bae90ef-3457-4e4a-955d-42f207da8dea
Ancestors: Tests-jar.463
Have BitmapStreamTests>>testOtherClasses test core Collections RawBitsArray concrete subclasses.
=============== Diff against Tests-jar.463 ===============
Item was changed:
----- Method: BitmapStreamTests>>testOtherClasses (in category 'tests-misc') -----
testOtherClasses
+ #(WordArrayForSegment Float32Array Float64Array PointArray IntegerArray SoundBuffer String ShortPointArray ShortIntegerArray WordArray Array ByteArray Bitmap ColorArray ) do:
+ [:className | | a |
+ a := (Smalltalk at: className) new: 3.
+ self assert: a byteSize equals: a basicSize * a bytesPerBasicElement].
+ RawBitsArray allSubclassesDo:
+ [:class| | a |
+ (class isAbstract or: [class category ~~ RawBitsArray category]) ifFalse:
+ [a := class new: 3.
+ self assert: a byteSize equals: a basicSize * a bytesPerBasicElement]]
+
+ "self new testOtherClasses"!
- #(WordArrayForSegment FloatArray PointArray IntegerArray SoundBuffer String ShortPointArray ShortIntegerArray WordArray Array ByteArray Bitmap ColorArray ) do: [:s | | a |
- a := (Smalltalk at: s) new: 3.
- self assert: a byteSize equals: a basicSize * a bytesPerBasicElement. ]
- !
More information about the Squeak-dev
mailing list
|