[squeak-dev] The Trunk: Tests-mt.498.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 15 14:49:47 UTC 2023
Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.498.mcz
==================== Summary ====================
Name: Tests-mt.498
Author: mt
Time: 15 March 2023, 3:49:46.759667 pm
UUID: 41c6c6f0-c49d-4048-97db-14836db1810a
Ancestors: Tests-eem.497
Remove dependency between Clipboard tests and SqueakMap project.
=============== Diff against Tests-eem.497 ===============
Item was changed:
----- Method: ClipboardTest>>testClipboardText (in category 'tests') -----
testClipboardText
| uuidString clipboard |
+ uuidString := UUID new asString.
- uuidString := UUID new asString36.
clipboard := Clipboard new.
clipboard clipboardText: uuidString.
self assert: uuidString equals: clipboard clipboardText asString!
Item was changed:
----- Method: ClipboardTest>>testClipboardTextNotifyWith (in category 'tests') -----
testClipboardTextNotifyWith
| uuidString clipboard subscriber notifiedText notifiedSource |
+ uuidString := UUID new asString.
- 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
|