[squeak-dev] The Inbox: KernelTests-fbs.241.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jan 30 12:31:02 UTC 2013


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



More information about the Squeak-dev mailing list