Frank Shearar uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-fbs.56.mcz==================== Summary ====================
Name: ToolBuilder-Kernel-fbs.56
Author: fbs
Time: 25 June 2013, 9:58:05.394 am
UUID: 31af859c-9e28-4086-8353-36c8d53ef0d4
Ancestors: ToolBuilder-Kernel-fbs.55
Better descriptions for some assertions. Also, I don't know what I was thinking when I first submitted these tests. They were completely broken.
=============== Diff against ToolBuilder-Kernel-fbs.55 ===============
Item was changed:
----- Method: PluggableMenuItemSpecTests>>testBeCheckableMakesItemCheckable (in category 'as yet unclassified') -----
testBeCheckableMakesItemCheckable
| itemSpec |
itemSpec := PluggableMenuItemSpec new.
itemSpec beCheckable.
+ self assert: itemSpec isCheckable description: 'Item not checkable'.!
- self deny: itemSpec isCheckable.!
Item was changed:
----- Method: PluggableMenuItemSpecTests>>testNoMarkerMakesItemChecked (in category 'as yet unclassified') -----
testNoMarkerMakesItemChecked
| itemSpec |
itemSpec := PluggableMenuItemSpec new.
itemSpec label: '<no>no'.
itemSpec analyzeLabel.
self assert: itemSpec isCheckable description: 'item not checkable'.
+ self deny: itemSpec checked description: 'item checked'.!
- self deny: itemSpec isCheckable description: 'item checked'.!
Item was changed:
----- Method: PluggableMenuItemSpecTests>>testOffMarkerMakesItemChecked (in category 'as yet unclassified') -----
testOffMarkerMakesItemChecked
| itemSpec |
itemSpec := PluggableMenuItemSpec new.
itemSpec label: '<off>off'.
itemSpec analyzeLabel.
self assert: itemSpec isCheckable description: 'item not checkable'.
+ self deny: itemSpec checked description: 'item checked'.!
- self deny: itemSpec isCheckable description: 'item checked'.!