Frank Shearar uploaded a new version of SystemChangeNotification-Tests to project The Trunk:
http://source.squeak.org/trunk/SystemChangeNotification-Tests-fbs.22.mcz==================== Summary ====================
Name: SystemChangeNotification-Tests-fbs.22
Author: fbs
Time: 6 November 2013, 6:40:50.652 pm
UUID: e1173a94-99d0-e742-a5a2-5a6c8a44776d
Ancestors: SystemChangeNotification-Tests-fbs.21
More #shouldnt:raise: Error fixes.
=============== Diff against SystemChangeNotification-Tests-fbs.21 ===============
Item was changed:
----- Method: ChangeHooksTest>>methodCreationEvent1: (in category 'Events-Methods') -----
methodCreationEvent1: event
| methodCreated |
self addSingleEvent: event.
+ methodCreated := generatedTestClass >> createdMethodName.
- self shouldnt: [methodCreated := generatedTestClass >> createdMethodName]
- raise: Error.
self
checkEvent: event
kind: #Added
item: methodCreated
itemKind: AbstractEvent methodKind!
Item was changed:
----- Method: ChangeHooksTest>>methodCreationEvent2: (in category 'Events-Methods') -----
methodCreationEvent2: event
| methodCreated |
self addSingleEvent: event.
+ methodCreated := generatedTestClass >> createdMethodName.
- self shouldnt: [methodCreated := generatedTestClass >> createdMethodName]
- raise: Error.
self
checkEvent: event
kind: #Added
item: methodCreated
itemKind: AbstractEvent methodKind!
Item was changed:
----- Method: ChangeHooksTest>>methodRecategorizationEvent: (in category 'Events-Methods') -----
methodRecategorizationEvent: event
| methodCreated |
self addSingleEvent: event.
+ methodCreated := generatedTestClass >> createdMethodName.
- self shouldnt: [methodCreated := generatedTestClass >> createdMethodName]
- raise: Error.
self assert: ((generatedTestClass organization categoryOfElement: createdMethodName) = #newCategory).
self assert: event oldCategory = #testing.
self
checkEvent: event
kind: #Recategorized
item: methodCreated
itemKind: AbstractEvent methodKind.!