[squeak-dev] The Trunk: ToolsTests-ct.115.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jun 16 10:16:21 UTC 2022
Christoph Thiede uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-ct.115.mcz
==================== Summary ====================
Name: ToolsTests-ct.115
Author: ct
Time: 16 June 2022, 12:16:20.614149 pm
UUID: a3666a0b-9104-8b40-a4cd-82625d91095b
Ancestors: ToolsTests-ct.114
Migrates from #targetClass to #classToBeTested. Complements SUnit-ct.143.
=============== Diff against ToolsTests-ct.114 ===============
Item was changed:
----- Method: InspectorTest>>setUp (in category 'running') -----
setUp
super setUp.
+ inspector := self classToBeTested on: self createObject.!
- inspector := self targetClass on: self createObject.!
Item was changed:
----- Method: InspectorTest>>testTruncationEllipsis (in category 'tests - special') -----
testTruncationEllipsis
"Even the most generic inspector supports truncation of indexed variables."
| ellipsis |
(self class includesSelector: #createObjectWithTruncation)
ifFalse: [^ self "Run this test only if explicitely refined."].
self inspector object: self createObjectWithTruncation.
+ self assert: self inspector class = self classToBeTested. "No change."
- self assert: self inspector class = self targetClass. "No change."
self assert: self inspector fields size >= self inspector truncationLimit.
self assertFieldVisible: '...'.
self inspector selectFieldSuchThat: [:field | field type = #ellipsis].
ellipsis := self inspector selectedField.
self assert: '*...*' matches: ellipsis name.
self assertValuePaneShows: '*not shown*'.
self inspector fields do: [:field |
"All visible elements are from that object."
self assert: (field type = #element) ==> [self inspector object includes: field value]].!
More information about the Squeak-dev
mailing list
|