[squeak-dev] The Trunk: KernelTests-ul.296.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Aug 14 20:31:15 UTC 2015
Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.296.mcz
==================== Summary ====================
Name: KernelTests-ul.296
Author: ul
Time: 14 August 2015, 7:01:31.26 pm
UUID: b3d99417-15da-4af1-88d6-0fc2f2abc25f
Ancestors: KernelTests-ul.295
#includesSubString: -> #includesSubstring:
=============== Diff against KernelTests-ul.295 ===============
Item was changed:
----- Method: BlockContextTest>>testNew (in category 'tests') -----
testNew
self should: [ContextPart new: 5] raise: Error.
[ContextPart new: 5]
on: Error do: [:e|
+ self assert: (e messageText includesSubstring: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new:'].
- self assert: (e messageText includesSubString: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new:'].
self should: [ContextPart new] raise: Error.
[ContextPart new]
on: Error do: [:e|
+ self assert: (e messageText includesSubstring: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new'].!
- self assert: (e messageText includesSubString: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new'].!
Item was changed:
----- Method: MethodPragmaTest>>assertPragma:givesKeyword:arguments: (in category 'utilities') -----
assertPragma: aString givesKeyword: aSymbol arguments: anArray
| pragma decompiled |
pragma := self pragma: aString selector: #zork.
self assert: pragma keyword = aSymbol.
self assert: pragma arguments = anArray.
decompiled := (self class>>#zork) decompile.
self assert: (decompiled properties pragmas includes: pragma).
+ self assert: (decompiled asString includesSubstring: pragma asString).!
- self assert: (decompiled asString includesSubString: pragma asString).!
Item was changed:
----- 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'].!
- 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 changed:
----- 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'].!
- 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
|