[squeak-dev] The Trunk: Tests-fbs.285.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jan 9 12:32:57 UTC 2014
Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.285.mcz
==================== Summary ====================
Name: Tests-fbs.285
Author: fbs
Time: 9 January 2014, 12:32:14.059 pm
UUID: 8a2dc139-e417-ff40-8a02-1077909eff36
Ancestors: Tests-fbs.284
More "more descriptive errors" items: I missed these last time round.
=============== Diff against Tests-fbs.284 ===============
Item was changed:
----- Method: EnvironmentTest>>testUndeclare (in category 'binding tests') -----
testUndeclare
| one two |
one := env undeclare: #Griffle.
two := env bindingOf: #Griffle.
+ self assert: two equals: one description: '#bindingOf: value doesn''t match that returned by #undeclare'.
- self assert: one == two description: '#bindingOf: value doesn''t match that returned by #undeclare'.
self assert: Global equals: one class description: 'Type of binding'.
self assert: nil equals: one value description: 'Value of binding'.!
Item was changed:
----- Method: MCPackageTest>>testUnload (in category 'tests') -----
testUnload
| mock |
self mockPackage unload.
+ self deny: (Smalltalk hasClassNamed: #MCMockClassA) description: 'Class not removed'.
+ self deny: (MCSnapshotTest includesSelector: #mockClassExtension) description: 'Extension method not removed'.
- self deny: (Smalltalk hasClassNamed: #MCMockClassA).
- self deny: (MCSnapshotTest includesSelector: #mockClassExtension).
mock := (Smalltalk at: #MCMock).
+ self assert: (mock subclasses noneSatisfy: [:c | c name = #MCMockClassA]) description: 'Can still find the "removed" subclass'.!
- self assert: (mock subclasses noneSatisfy: [:c | c name = #MCMockClassA])!
More information about the Squeak-dev
mailing list
|