The Trunk: KernelTests-fbs.243.mcz

Frank Shearar uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-fbs.243.mcz

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

Name: KernelTests-fbs.243
Author: fbs
Time: 5 February 2013, 11:15:32.593 pm
UUID: 6566a862-0f12-4218-b502-b18369e49a11
Ancestors: KernelTests-nice.240
Backported From: KernelTests-fbs.242

Stay in the debugger for longer. Part 5 of _5_.

Tests showing the signalling of the new style marker methods.

=============== 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: NotImplemented.
+ [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: NotImplemented.
+ [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'].!