Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.501.mcz
==================== Summary ====================
Name: Tests-mt.501 Author: mt Time: 7 November 2023, 11:34:39.524949 am UUID: abcc3d86-5baf-9d4b-bf0c-f3734c8f4072 Ancestors: Tests-mt.500
Let Monticello tests not spill new change sets all over the place. And don't let them add things to the current change set.
=============== Diff against Tests-mt.500 ===============
Item was changed: ----- Method: MCClassDefinitionTest>>tearDown (in category 'running') ----- tearDown
+ Smalltalk at: 'MCMockClassC' ifPresent: [:c | c removeFromSystemUnlogged]. + super tearDown.! - Smalltalk at: 'MCMockClassC' ifPresent: [:c | c removeFromSystem]. - - ^ super tearDown!
Item was changed: ----- Method: MCEnvironmentLoadTest>>tearDown (in category 'running') ----- tearDown
(environment allClassesAndTraits sorted: [:a :b | (a allSuperclasses includes: b) or: [a name < b name]]) + do: [:each | each removeFromSystemUnlogged]. - do: [:each | each removeFromSystem]. + super tearDown.! - ^ super tearDown!
Item was changed: ----- Method: MCMethodDefinitionTest>>tearDown (in category 'running') ----- tearDown
self restoreMocks. extensionPackage unregister. extensionPackage := nil. MCMockPackageInfo new mcPackage workingCopy unregister. + SystemChangeNotifier uniqueInstance doSilently: [ + self class + compile: 'override ^ 1' + classified: 'mocks' + withStamp: overrideTimestamp + notifying: nil]. - self class - compile: 'override ^ 1' - classified: 'mocks' - withStamp: overrideTimestamp - notifying: nil. SystemOrganizer default removeEmptyCategories. + MCMethodDefinitionTest organization removeEmptyCategories. self ownPackage modified: isModified. + super tearDown.! - ^ super tearDown!
Item was changed: TestCase subclass: #MCTestCase + instanceVariableNames: 'priorChangeSetNames' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Monticello'!
!MCTestCase commentStamp: 'nice 12/7/2017 00:11' prior: 0! Abstract superclass for Monticello tests Monticello is the distributed source code management system.!
Item was added: + ----- Method: MCTestCase>>deleteChangeSets (in category 'running') ----- + deleteChangeSets + "Some tests create extra change sets because of, for example, MCPackageLoader>>load. Remove those change sets." + + | toDelete | + toDelete := ChangeSet allChangeSetNames copyWithoutAll: priorChangeSetNames. + ChangeSet removeChangeSetsNamedSuchThat: [:nm | toDelete includes: nm].!
Item was changed: ----- Method: MCTestCase>>performTest (in category 'private') ----- performTest
Utilities useAuthorInitials: self className + during: [ MCPackageLoader new "TODO: Extract utility method into base system?" + useNewChangeSetNamedLike: self className + during: [ super performTest ]]! - during: [ super performTest ]!
Item was changed: ----- Method: MCTestCase>>setUp (in category 'running') ----- setUp
super setUp. + priorChangeSetNames := ChangeSet allChangeSetNames. MCMockPackageInfo new register.!
Item was changed: ----- Method: MCTestCase>>tearDown (in category 'running') ----- tearDown
self clearPackageCache. + self deleteChangeSets. + + self flag: #todo. "Unfortunately breaks the tests" "Environment current packageOrganizer unregisterPackageNamed: MCSnapshotResource mockPackageName." - self flag: #todo. "Unfortunately breaks the tests" + super tearDown.! - ^ super tearDown!
packages@lists.squeakfoundation.org