[squeak-dev] The Trunk: System-ar.137.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 27 04:43:27 UTC 2009


Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.137.mcz

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

Name: System-ar.137
Author: ar
Time: 26 August 2009, 9:42:31 am
UUID: 49aa20fd-c8be-bf47-bda6-81e8a3dcdb83
Ancestors: System-ar.136

Tests for when:evaluate: with blocks. Remove EventTest while we are at it because it was a duplicate of EventManagerTest.

=============== Diff against System-ar.136 ===============

Item was added:
+ ----- Method: EventManagerTest>>testBlockReceiverNoArgs (in category 'running-dependent action') -----
+ testBlockReceiverNoArgs
+ 	eventSource when: #anEvent evaluate:[self heardEvent].
+ 	eventSource triggerEvent: #anEvent.
+ 	self should: [succeeded]!

Item was added:
+ ----- Method: EventManagerTest>>testBlockReceiverTwoArgs (in category 'running-dependent action') -----
+ testBlockReceiverTwoArgs
+ 	eventSource when: #anEvent:info: evaluate:[:arg1 :arg2| self addArg1: arg1 addArg2: arg2].
+ 	eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ).
+ 	self should: [(eventListener includes: 9) and: [eventListener includes: 42]]!

Item was added:
+ ----- Method: EventManagerTest>>testBlockReceiverOneArg (in category 'running-dependent action') -----
+ testBlockReceiverOneArg
+ 	eventSource when: #anEvent: evaluate:[:arg1| eventListener add: arg1].
+ 	eventSource triggerEvent: #anEvent: with: 9.
+ 	self should: [eventListener includes: 9]!

Item was removed:
- ----- Method: EventTest>>testReturnValueWithManyListeners (in category 'running-dependent value') -----
- testReturnValueWithManyListeners
- 
- 	| value newListener |
- 	newListener := 'busybody'.
- 	eventSource
- 		when: #needsValue
- 		send: #yourself
- 		to: eventListener.
- 	eventSource
- 		when: #needsValue
- 		send: #yourself
- 		to: newListener.
- 	value := eventSource triggerEvent: #needsValue.
- 	self should: [value == newListener]!

Item was removed:
- ----- Method: EventTest>>addArg1:addArg2: (in category 'private') -----
- addArg1: arg1
- addArg2: arg2
- 
- 	eventListener
- 		add: arg1;
- 		add: arg2!

Item was removed:
- ----- Method: EventTest>>testNoValueSupplierHasArguments (in category 'running-broadcast query') -----
- testNoValueSupplierHasArguments
- 
- 	succeeded := eventSource 
- 		triggerEvent: #needsValue:
- 		with: 'nelja'
- 		ifNotHandled: [true].
- 	self should: [succeeded]!

Item was removed:
- ----- Method: EventTest>>testOneArgumentEvent (in category 'running-dependent action') -----
- testOneArgumentEvent
- 
- 	eventSource when: #anEvent: send: #add: to: eventListener.
- 	eventSource triggerEvent: #anEvent: with: 9.
- 	self should: [eventListener includes: 9]!

Item was removed:
- ----- Method: EventTest>>testReturnValueWithNoListeners (in category 'running-dependent value') -----
- testReturnValueWithNoListeners
- 
- 	| value |
- 	value := eventSource triggerEvent: #needsValue.
- 	self should: [value == nil]!

Item was removed:
- ----- Method: EventTest>>testSingleValueSupplier (in category 'running-broadcast query') -----
- testSingleValueSupplier
- 
- 	eventSource
- 		when: #needsValue
- 		send: #getTrue
- 		to: self.
- 	succeeded := eventSource triggerEvent: #needsValue.
- 	self should: [succeeded]!

Item was removed:
- ----- Method: EventTest>>getTrue: (in category 'private') -----
- getTrue: anArg
- 
- 	^true!

Item was removed:
- ----- Method: EventTest>>getTrue (in category 'private') -----
- getTrue
- 
- 	^true!

Item was removed:
- ----- Method: EventTest>>testNoArgumentEventDependentSuppliedArgument (in category 'running-dependent action supplied arguments') -----
- testNoArgumentEventDependentSuppliedArgument
- 
- 	eventSource when: #anEvent send: #add: to: eventListener with: 'boundValue'.
- 	eventSource triggerEvent: #anEvent.
- 	self should: [eventListener includes: 'boundValue']!

Item was removed:
- ----- Method: EventTest>>testNoValueSupplier (in category 'running-broadcast query') -----
- testNoValueSupplier
- 
- 	succeeded := eventSource 
- 		triggerEvent: #needsValue
- 		ifNotHandled: [true].
- 	self should: [succeeded]!

Item was removed:
- ----- Method: EventTest>>testNoArgumentEvent (in category 'running-dependent action') -----
- testNoArgumentEvent
- 
- 	eventSource when: #anEvent send: #heardEvent to: self.
- 	eventSource triggerEvent: #anEvent.
- 	self should: [succeeded]!

Item was removed:
- ----- Method: EventTest>>testTwoArgumentEvent (in category 'running-dependent action') -----
- testTwoArgumentEvent
- 
- 	eventSource when: #anEvent:info: send: #addArg1:addArg2: to: self.
- 	eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ).
- 	self should: [(eventListener includes: 9) and: [eventListener includes: 42]]!

Item was removed:
- ----- Method: EventTest>>testReturnValueWithOneListener (in category 'running-dependent value') -----
- testReturnValueWithOneListener
- 
- 	| value |
- 	eventSource
- 		when: #needsValue
- 		send: #yourself
- 		to: eventListener.
- 	value := eventSource triggerEvent: #needsValue.
- 	self should: [value == eventListener]!

Item was removed:
- ----- Method: EventTest>>getFalse (in category 'private') -----
- getFalse
- 
- 	^false!

Item was removed:
- ----- Method: EventTest>>setUp (in category 'running') -----
- setUp
- 
- 	super setUp.
- 	eventSource := Object new.
- 	eventListener := Bag new.
- 	succeeded := false!

Item was removed:
- TestCase subclass: #EventTest
- 	instanceVariableNames: 'eventSource eventListener succeeded'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'System-Object Events-Tests'!

Item was removed:
- ----- Method: EventTest>>heardEvent (in category 'private') -----
- heardEvent
- 
- 	succeeded := true!

Item was removed:
- ----- Method: EventTest>>testRemoveActionsTwiceForEvent (in category 'running-remove actions') -----
- testRemoveActionsTwiceForEvent
- 
- 	eventSource
- 		when: #anEvent send: #size to: eventListener;
- 		when: #anEvent send: #getTrue to: self;
- 		when: #anEvent: send: #fizzbin to: self.
- 	eventSource removeActionsForEvent: #anEvent.
- 	self assert: (eventSource hasActionForEvent: #anEvent) not.
- 	eventSource removeActionsForEvent: #anEvent.
- 	self assert: (eventSource hasActionForEvent: #anEvent) not.!

Item was removed:
- ----- Method: EventTest>>testRemoveActionsForEvent (in category 'running-remove actions') -----
- testRemoveActionsForEvent
- 
- 	eventSource
- 		when: #anEvent send: #size to: eventListener;
- 		when: #anEvent send: #getTrue to: self;
- 		when: #anEvent: send: #fizzbin to: self.
- 	eventSource removeActionsForEvent: #anEvent.
- 	self shouldnt: [eventSource hasActionForEvent: #anEvent]!

Item was removed:
- ----- Method: EventTest>>testMultipleValueSuppliers (in category 'running-broadcast query') -----
- testMultipleValueSuppliers
- 
- 	eventSource
- 		when: #needsValue
- 		send: #getFalse
- 		to: self.
- 	eventSource
- 		when: #needsValue
- 		send: #getTrue
- 		to: self.
- 	succeeded := eventSource triggerEvent: #needsValue.
- 	self should: [succeeded]!

Item was removed:
- ----- Method: EventTest>>testRemoveActionsWithReceiver (in category 'running-remove actions') -----
- testRemoveActionsWithReceiver
- 
- 	| action |
- 	eventSource
- 		when: #anEvent send: #size to: eventListener;
- 		when: #anEvent send: #getTrue to: self;
- 		when: #anEvent: send: #fizzbin to: self.
- 	eventSource removeActionsWithReceiver: self.
- 	action := eventSource actionForEvent: #anEvent.
- 	self assert: (action respondsTo: #receiver).
- 	self assert: ((action receiver == self) not)!

Item was removed:
- ----- Method: EventTest>>testMultipleValueSuppliersEventHasArgumentsWithGC (in category 'running-broadcast query') -----
- testMultipleValueSuppliersEventHasArgumentsWithGC
- 
- 	eventSource
- 		when: #needsValue:
- 		send: #getFalse:
- 		to: self
- 		with: Object new.
- 	eventSource
- 		when: #needsValue:
- 		send: #getTrue:
- 		to: self
- 		with: Object new.
- 	Smalltalk garbageCollectMost.
- 	succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'.
- 	self should: [succeeded = nil]
- !

Item was removed:
- ----- Method: EventTest>>testMultipleValueSuppliersEventHasArguments (in category 'running-broadcast query') -----
- testMultipleValueSuppliersEventHasArguments
- 
- 	eventSource
- 		when: #needsValue:
- 		send: #getFalse:
- 		to: self.
- 	eventSource
- 		when: #needsValue:
- 		send: #getTrue:
- 		to: self.
- 	succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'.
- 	self should: [succeeded]!

Item was removed:
- ----- Method: EventTest>>tearDown (in category 'running') -----
- tearDown
- 
- 	eventSource releaseActionMap.
- 	eventSource := nil.
- 	eventListener := nil.
- 	super tearDown.
- !

Item was removed:
- ----- Method: EventTest>>getFalse: (in category 'private') -----
- getFalse: anArg
- 
- 	^false!

Item was removed:
- ----- Method: EventTest>>testNoArgumentEventDependentSuppliedArguments (in category 'running-dependent action supplied arguments') -----
- testNoArgumentEventDependentSuppliedArguments
- 
- 	eventSource 
- 		when: #anEvent 
- 		send: #addArg1:addArg2: 
- 		to: self 
- 		withArguments: #('hello' 'world').
- 	eventSource triggerEvent: #anEvent.
- 	self should: [(eventListener includes: 'hello') and: [eventListener includes: 'world']]!




More information about the Squeak-dev mailing list