[Pkg] The Trunk: KernelTests-fbs.243.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 7 22:39:44 UTC 2013


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'].!



More information about the Packages mailing list