[squeak-dev] The Trunk: Tests-ul.161.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 19 17:05:26 UTC 2012


Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.161.mcz

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

Name: Tests-ul.161
Author: ul
Time: 19 August 2012, 6:53:41.704 pm
UUID: 9e72a8cb-b86e-3e45-819d-e98c1f3a84c9
Ancestors: Tests-cwp.160

Added a test for Clipboard, mainly for the new notification mechanism.

=============== Diff against Tests-cwp.160 ===============

Item was added:
+ TestCase subclass: #ClipboardTest
+ 	instanceVariableNames: 'originalClipboardText'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Tests-System-Support'!

Item was added:
+ ----- Method: ClipboardTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	"Store the contents of the default clipboard. This is necessary, because all Clipboard instances modify the contents of the system clipboard."
+ 
+ 	originalClipboardText := Clipboard default clipboardText!

Item was added:
+ ----- Method: ClipboardTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ 	"Restore the contents of the default clipboard. This is necessary, because all Clipboard instances modify the contents of the system clipboard."
+ 
+ 	Clipboard default clipboardText: originalClipboardText!

Item was added:
+ ----- Method: ClipboardTest>>testClipboardText (in category 'as yet unclassified') -----
+ testClipboardText
+ 
+ 	| uuidString clipboard |
+ 	uuidString := UUID new asString36.
+ 	clipboard := Clipboard new.
+ 	clipboard clipboardText: uuidString.
+ 	self assert: uuidString equals: clipboard clipboardText asString!

Item was added:
+ ----- Method: ClipboardTest>>testClipboardTextNotifyWith (in category 'as yet unclassified') -----
+ testClipboardTextNotifyWith
+ 
+ 	| uuidString clipboard subscriber notifiedText notifiedSource |
+ 	uuidString := UUID new asString36.
+ 	clipboard := Clipboard new.
+ 	subscriber := [ :text :source | 
+ 		notifiedText := text.
+ 		notifiedSource := source ].
+ 	clipboard 
+ 		when: #contentChanged
+ 		send: #value:value:
+ 		to: subscriber.
+ 	clipboard clipboardText: uuidString.
+ 	self
+ 		assert: uuidString equals: notifiedText;
+ 		assert: nil equals: notifiedSource.
+ 	clipboard clipboardText: uuidString reversed notifyWith: self.
+ 	self
+ 		assert: uuidString reversed equals: notifiedText;
+ 		assert: self == notifiedSource.
+ 	clipboard removeActionsWithReceiver: subscriber.
+ 	clipboard clipboardText: uuidString.
+ 	self
+ 		assert: uuidString reversed equals: notifiedText;
+ 		assert: self == notifiedSource!



More information about the Squeak-dev mailing list