[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