Frank Shearar uploaded a new version of KernelTests to project The Inbox:
http://source.squeak.org/inbox/KernelTests-fbs.241.mcz==================== Summary ====================
Name: KernelTests-fbs.241
Author: fbs
Time: 30 January 2013, 12:30:48.257 pm
UUID: fa6acfce-7077-4564-88bf-8e1dfafcb7e2
Ancestors: KernelTests-nice.240
Tests for Kernel-fbs.734. Suggestions for avoiding the repeated execution of the method under test welcome!
=============== Diff against KernelTests-nice.240 ===============
Item was added:
+ Object subclass: #NotImplementedTestData
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'KernelTests-Objects'!
Item was added:
+ ----- Method: NotImplementedTestData>>shouldBeImplementedMsg (in category 'accessing') -----
+ shouldBeImplementedMsg
+ ^ self shouldBeImplemented.!
Item was added:
+ ----- Method: NotImplementedTestData>>shouldNotImplementMsg (in category 'accessing') -----
+ shouldNotImplementMsg
+ ^ self shouldNotImplement.!
Item was added:
+ ----- Method: ObjectTest>>testShouldBeImplemented (in category 'as yet unclassified') -----
+ testShouldBeImplemented
+ | testClass |
+ testClass := NotImplementedTestData.
+ self should: [testClass new shouldBeImplementedMsg] raise: NotImplementedError.
+ [testClass new shouldBeImplementedMsg] ifError: [:errDesc |
+ self assert: (errDesc includesSubString: testClass name) description: 'Error should include class name'.
+ self assert: (errDesc includesSubString: #shouldBeImplementedMsg asString) description: 'Error should include selector name'].!
Item was added:
+ ----- Method: ObjectTest>>testShouldNotImplement (in category 'as yet unclassified') -----
+ testShouldNotImplement
+ | testClass |
+ testClass := NotImplementedTestData.
+ self should: [testClass new shouldNotImplementMsg] raise: NotImplementedError.
+ [testClass new shouldNotImplementMsg] ifError: [:errDesc |
+ self assert: (errDesc includesSubString: testClass name) description: 'Error should include class name'.
+ self assert: (errDesc includesSubString: #shouldNotImplementMsg asString) description: 'Error should include selector name'].!