Packages July 2016

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: SystemChangeNotification-Tests-pre.24.mcz
by commits＠source.squeak.org 01 Jul '16

01 Jul '16

Patrick Rein uploaded a new version of SystemChangeNotification-Tests to project The Trunk: http://source.squeak.org/trunk/SystemChangeNotification-Tests-pre.24.mcz ==================== Summary ==================== Name: SystemChangeNotification-Tests-pre.24 Author: pre Time: 1 July 2016, 4:32:20.840983 pm UUID: 3d2acb51-0e7b-1b46-a301-79ea87277a78 Ancestors: SystemChangeNotification-Tests-nice.23 Fixes system notifcation tests to not polute the existing kernel packages with changes by writing new classes into a temporary package =============== Diff against SystemChangeNotification-Tests-nice.23 =============== Item was added: + ----- Method: ChangeHooksTest>>categoryForTestName (in category 'Private-Generation') ----- + categoryForTestName + + ^ self class name select: [:c | c isUppercase ]! Item was added: + ----- Method: ChangeHooksTest>>categoryForTestName1 (in category 'Private-Generation') ----- + categoryForTestName1 + + ^ self categoryForTestName , 1! Item was added: + ----- Method: ChangeHooksTest>>categoryForTestName2 (in category 'Private-Generation') ----- + categoryForTestName2 + + ^ self categoryForTestName , 2! Item was changed: ----- Method: ChangeHooksTest>>classCreationEvent: (in category 'Events-Classes') ----- classCreationEvent: event | classCreated | self addSingleEvent: event. classCreated := Smalltalk classNamed: self newlyCreatedClassName. self assert: classCreated notNil. self assert: ((Smalltalk organization + listAtCategoryNamed: self categoryForTestName1) - listAtCategoryNamed: #'System-Change Notification') includes: self newlyCreatedClassName). self checkEvent: event kind: #Added item: classCreated itemKind: AbstractEvent classKind! Item was changed: ----- Method: ChangeHooksTest>>classRecategorizedEvent: (in category 'Events-Classes') ----- classRecategorizedEvent: event self addSingleEvent: event. self checkEvent: event kind: #Recategorized item: generatedTestClass itemKind: AbstractEvent classKind. + self assert: event oldCategory = self categoryForTestName1! - self assert: event oldCategory = #'System-Change Notification'! Item was changed: ----- Method: ChangeHooksTest>>generateTestClass (in category 'Private-Generation') ----- generateTestClass generatedTestClass := Object subclass: self generatedTestClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName1.! - category: 'System-Change Notification'.! Item was changed: ----- Method: ChangeHooksTest>>generateTestClassX (in category 'Private-Generation') ----- generateTestClassX generatedTestClassX := Object subclass: self generatedTestClassNameX instanceVariableNames: 'x' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName1.! - category: 'System-Change Notification'.! Item was changed: ----- Method: ChangeHooksTest>>tearDown (in category 'Running') ----- tearDown self removeGeneratedTestClasses. ChangeSet newChanges: previousChangeSet. ChangesOrganizer removeChangeSet: testsChangeSet. previousChangeSet := nil. testsChangeSet := nil. capturedEvents := nil. createdMethod := nil. + (PackageOrganizer default packages select: [:packageInfo | {self categoryForTestName1 . self categoryForTestName2} includes: packageInfo packageName ]) + do: [:packageInfo | packageInfo workingCopy unload]. super tearDown! Item was changed: ----- Method: ChangeHooksTest>>testClassCreationEvent (in category 'Testing-Classes') ----- testClassCreationEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classCreationEvent:. Object subclass: self newlyCreatedClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName1. - category: 'System-Change Notification'. self checkForOnlySingleEvent! Item was changed: ----- Method: ChangeHooksTest>>testClassRecategorizedEvent1 (in category 'Testing-Classes') ----- testClassRecategorizedEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRecategorizedEvent:. Object subclass: generatedTestClass name instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName2. - category: 'Collections-Abstract'. self checkForOnlySingleEvent! Item was changed: ----- Method: ChangeHooksTest>>testClassRecategorizedEvent2 (in category 'Testing-Classes') ----- testClassRecategorizedEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRecategorizedEvent:. + generatedTestClass category: self categoryForTestName2. - generatedTestClass category: 'Collections-Abstract'. self checkForOnlySingleEvent! Item was changed: ----- Method: ChangeHooksTest>>testClassSuperChangedEvent (in category 'Testing-Classes') ----- testClassSuperChangedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classSuperChangedEvent:. Model subclass: generatedTestClass name instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName1. - category: 'System-Change Notification'. self checkForOnlySingleEvent! Item was changed: ----- Method: ChangeHooksTest>>testInstanceVariableCreationEvent1 (in category 'Testing-Instance Variables') ----- testInstanceVariableCreationEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #instanceVariableCreationEvent:. Object subclass: self generatedTestClassName instanceVariableNames: 'x' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName1. - category: 'System-Change Notification'. self checkForOnlySingleEvent! Item was changed: ----- Method: ChangeHooksTest>>testInstanceVariableRemovedEvent1 (in category 'Testing-Instance Variables') ----- testInstanceVariableRemovedEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #instanceVariableRemovedEvent:. Object subclass: generatedTestClassX name instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryForTestName1. - category: 'System-Change Notification'. self checkForOnlySingleEvent!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2016