[squeak-dev] The Inbox: Tests-ct.482.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Apr 7 21:15:34 UTC 2022
A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-ct.482.mcz
==================== Summary ====================
Name: Tests-ct.482
Author: ct
Time: 7 April 2022, 11:15:32.087279 pm
UUID: ebde9ce5-35af-cb43-8b00-ec39e63fbb5d
Ancestors: Tests-ct.481
Complements Monticello-ct.777.
=============== Diff against Tests-ct.481 ===============
Item was changed:
TestCase subclass: #LocaleTest
instanceVariableNames: 'sut'
classVariableNames: ''
poolDictionaries: ''
category: 'Tests-Localization'!
+
+ !LocaleTest commentStamp: 'tak 8/3/2005 18:24' prior: 0!
+ LocaleTest buildSuite run!
Item was changed:
----- Method: MCAncestryTest>>testDescendants (in category 'tests') -----
testDescendants
| c1 a1 b3 q1 q2 c2 |
c1 := self tree.
a1 := self treeFrom: #(a1 (('00'))).
b3 := self treeFrom: #(b3
((b2
((b1
((b0
(('00')))))))
(a1
(('00'))))).
q1 := MCWorkingAncestry new addAncestor: a1.
q2 := MCWorkingAncestry new addAncestor: q1.
self assert: (q2 commonAncestorWith: b3) = a1.
self assert: (b3 commonAncestorWith: q2) = a1.
self assert: (q2 commonAncestorWith: c1) = a1.
self assert: (c1 commonAncestorWith: q2) = a1.
q1 addStepChild: c1.
self assert: (q2 commonAncestorWith: c1) = q1.
self assert: (c1 commonAncestorWith: q2) = q1.
c2 := MCWorkingAncestry new addAncestor: c1.
self assert: (q2 commonAncestorWith: c2) = q1.
self assert: (c2 commonAncestorWith: q2) = q1.
+
+ c2 removeAncestor: c1.
+ self assert: (q2 commonAncestorWith: c2) isNil.
+ self assert: (c2 commonAncestorWith: q2) isNil.!
- !
More information about the Squeak-dev
mailing list
|