Christoph Thiede uploaded a new version of Tests to project The Inbox:
http://source.squeak.org/inbox/Tests-ct.431.mcz

==================== Summary ====================

Name: Tests-ct.431
Author: ct
Time: 18 April 2020, 4:46:07.629949 pm
UUID: d457d2ab-d1cc-b74b-a42e-a1a328ae12df
Ancestors: Tests-mt.430

Complements Monticello-ct.717.

=============== Diff against Tests-mt.430 ===============

Item was changed:
  ----- Method: MCDependencySorterTest>>itemWithSpec: (in category 'building') -----
  itemWithSpec: anArray
+ 	"anArray has the following format: #(name [provisions requirements [wantsToBeOutermost]])"
+ 
+ 	| item stream |
+ 	stream := anArray readStream.
+ 	item := MCMockDependentItem new.
+ 	item name: stream next.
+ 	stream atEnd ifTrue: [^ item].
+ 	item provides: stream next.
+ 	item requires: stream next.
+ 	stream atEnd ifTrue: [^ item].
+ 	item wantsToBeOutermost: stream next.
+ 	self assert: stream atEnd.
+ 	^ item!
- 	^ MCMockDependentItem new
- 		name: anArray first;
- 		provides: anArray second;
- 		requires: anArray third!

Item was added:
+ ----- Method: MCDependencySorterTest>>testDeferredItems (in category 'tests') -----
+ testDeferredItems
+ 
+ 	self assertItems: #(
+ 			(a () () true)
+ 			(d (x) ())
+ 			(c () (y))
+ 			(b (y) (x)) )
+ 		orderAs: #(d b c a)
+ 		withRequired: #()
+ 		toLoad: #().!

Item was changed:
  ----- Method: MCDependencySorterTest>>testSimpleOrdering (in category 'tests') -----
  testSimpleOrdering
+ 	self assertItems: #(
+ 			(a (x) ())
+ 			(c () (y))
+ 			(b (y) (x)) )
- 	self assertItems: #((a (x) ())
- 								 (c () (y))
- 								 (b (y) (x)))
  		orderAs: #(a b c)
  		withRequired: #()
  		toLoad: #()!

Item was changed:
  MCMock subclass: #MCMockDependentItem
+ 	instanceVariableNames: 'name provides requires wantsToBeOutermost'
- 	instanceVariableNames: 'name provides requires'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-Monticello-Mocks'!

Item was changed:
+ ----- Method: MCMockDependentItem>><= (in category 'comparing') -----
- ----- Method: MCMockDependentItem>><= (in category 'as yet unclassified') -----
  <= other
  	^ self name <= other name!

Item was changed:
+ ----- Method: MCMockDependentItem>>name (in category 'accessing') -----
- ----- Method: MCMockDependentItem>>name (in category 'as yet unclassified') -----
  name
  
  	^ name!

Item was changed:
+ ----- Method: MCMockDependentItem>>name: (in category 'initialization') -----
- ----- Method: MCMockDependentItem>>name: (in category 'as yet unclassified') -----
  name: aString
  
  	name := aString!

Item was changed:
+ ----- Method: MCMockDependentItem>>provides: (in category 'initialization') -----
- ----- Method: MCMockDependentItem>>provides: (in category 'as yet unclassified') -----
  provides: anArray
  
  	provides := anArray!

Item was changed:
+ ----- Method: MCMockDependentItem>>provisions (in category 'accessing') -----
- ----- Method: MCMockDependentItem>>provisions (in category 'as yet unclassified') -----
  provisions
  
  	^ provides ifNil: [#()]!

Item was changed:
+ ----- Method: MCMockDependentItem>>requirements (in category 'accessing') -----
- ----- Method: MCMockDependentItem>>requirements (in category 'as yet unclassified') -----
  requirements
  
  	^ requires ifNil: [#()]!

Item was changed:
+ ----- Method: MCMockDependentItem>>requires: (in category 'initialization') -----
- ----- Method: MCMockDependentItem>>requires: (in category 'as yet unclassified') -----
  requires: anArray
  
  	requires := anArray!

Item was changed:
  ----- Method: MCMockDependentItem>>wantsToBeOutermost (in category 'testing') -----
  wantsToBeOutermost
+ 
+ 	^ wantsToBeOutermost ifNil: [false]!
- 	^false!

Item was added:
+ ----- Method: MCMockDependentItem>>wantsToBeOutermost: (in category 'initialization') -----
+ wantsToBeOutermost: aBoolean
+ 
+ 	wantsToBeOutermost := aBoolean!