The Inbox: Tests-ct.524.mcz

Christoph Thiede uploaded a new version of Tests to project The Inbox:
http://source.squeak.org/inbox/Tests-ct.524.mcz

==================== Summary ====================

Name: Tests-ct.524
Author: ct
Time: 2 August 2026, 10:48:58.022674 pm
UUID: b0a9ec44-8c90-41fe-a735-720dec816a08
Ancestors: Tests-eem.523

Adds test for space tally to spot similar regressions as in System-ct.1531. Tested for 32- and 64-bit images.

We don't necessarily need this for the release. :-)

=============== Diff against Tests-eem.523 ===============

Item was changed:
  SystemOrganization addCategory: #'Tests-Bugs'!
  SystemOrganization addCategory: #'Tests-Compiler'!
  SystemOrganization addCategory: #'Tests-Dependencies'!
  SystemOrganization addCategory: #'Tests-Digital Signatures'!
  SystemOrganization addCategory: #'Tests-Environments'!
  SystemOrganization addCategory: #'Tests-Exceptions'!
  SystemOrganization addCategory: #'Tests-FilePackage'!
  SystemOrganization addCategory: #'Tests-Files'!
  SystemOrganization addCategory: #'Tests-Finalization'!
  SystemOrganization addCategory: #'Tests-Hex'!
  SystemOrganization addCategory: #'Tests-Installer-Core'!
  SystemOrganization addCategory: #'Tests-Localization'!
  SystemOrganization addCategory: #'Tests-Monticello'!
  SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
  SystemOrganization addCategory: #'Tests-Monticello-Utils'!
  SystemOrganization addCategory: #'Tests-Object Events'!
  SystemOrganization addCategory: #'Tests-ObjectsAsMethods'!
  SystemOrganization addCategory: #'Tests-PrimCallController'!
  SystemOrganization addCategory: #'Tests-Release'!
  SystemOrganization addCategory: #'Tests-Sound'!
  SystemOrganization addCategory: #'Tests-System-Applications'!
  SystemOrganization addCategory: #'Tests-System-Digital Signatures'!
  SystemOrganization addCategory: #'Tests-System-Object Storage'!
  SystemOrganization addCategory: #'Tests-System-Preferences'!
  SystemOrganization addCategory: #'Tests-System-Support'!
  SystemOrganization addCategory: #'Tests-Utilities'!
  SystemOrganization addCategory: #'Tests-VM'!
+ SystemOrganization addCategory: #'Tests-System-Tools'!

Item was added:
+ ClassTestCase subclass: #SpaceTallyTest
+ 	instanceVariableNames: 'tally'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Tests-System-Tools'!

Item was added:
+ ----- Method: SpaceTallyTest>>setUp (in category 'running') -----
+ setUp
+ 
+ 	super setUp.
+ 	tally := self classToBeTested new.!

Item was added:
+ ----- Method: SpaceTallyTest>>testSpaceForInstance (in category 'tests') -----
+ testSpaceForInstance
+ 
+ 	| size2 |
+ 	size2 := 16 + (Smalltalk wordSize roundDownTo: 8).
+ 	self assert: 0 equals: (tally spaceForInstance: 0).
+ 	self assert: 16 equals: (tally spaceForInstance: SmallInteger maxVal + 1).
+ 	self assert: 16 equals: (tally spaceForInstance: Object new).
+ 	self assert: 16 equals: (tally spaceForInstance: #()).
+ 	self assert: size2 equals: (tally spaceForInstance: #(1 2)).
+ 	self assert: 16 equals: (tally spaceForInstance: #[1 2 3 4 5 6 7 8]).
+ 	self assert: 24 equals: (tally spaceForInstance: #[1 2 3 4 5 6 7 8 9]).
+ 	self assert: size2 equals: (tally spaceForInstance: 2 @ 3).
+ 	self assert: size2 equals: (tally spaceForInstance: 4 @ SmallInteger maxVal + 1).
+ 	self assert: size2 equals: (tally spaceForInstance: 4 @ SmallInteger maxVal + 1 depth: 0).
+ 	self assert: size2 + 16 equals: (tally spaceForInstance: 4 @ SmallInteger maxVal + 1 depth: 1).
+ 	self assert: 16 equals: (tally spaceForInstance: {4 @ SmallInteger maxVal + 1} depth: 0).
+ 	self assert: size2 + 16 equals: (tally spaceForInstance: {4 @ SmallInteger maxVal + 1} depth: 1).
+ 	self assert: size2 + 32 equals: (tally spaceForInstance: {4 @ SmallInteger maxVal + 1} depth: 2).
+ 	self assert: size2 + 32 equals: (tally spaceForInstance: {4 @ SmallInteger maxVal + 1} depth: 3).!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]