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