A new version of CollectionsTests was added to project The Inbox:
http://source.squeak.org/inbox/CollectionsTests-ct.358.mcz

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

Name: CollectionsTests-ct.358
Author: ct
Time: 10 June 2021, 8:46:05.348588 pm
UUID: 38a6fe79-5645-2b44-bc79-952cd4cac3e3
Ancestors: CollectionsTests-nice.354

Tests Collections-ct.947.

=============== Diff against CollectionsTests-nice.354 ===============

Item was added:
+ ----- Method: SortFunctionTest>>testCompareSortBlock (in category 'tests') -----
+ testCompareSortBlock
+ 
+ 	| function block |
+ 	block := [:a :b | a x <= b x and: [a y >= b y]].
+ 	function := block asCompareSortFunction.
+ 	
+ 	self assert: (function value: 1 @ 1 value: 1 @ 1).
+ 	self assert: (function value: 0 @ 1 value: 1 @ 1).
+ 	self assert: (function value: 1 @ 2 value: 1 @ 1).
+ 	self deny: (function value: 2 @ 1 value: 1 @ 1).
+ 	self deny: (function value: 1 @ 2 value: 0 @ 1).!

Item was added:
+ ----- Method: SortFunctionTest>>testCompareSortSymbol (in category 'tests') -----
+ testCompareSortSymbol
+ 
+ 	| function symbol |
+ 	symbol := #compareSafely:.
+ 	function := symbol asCompareSortFunction.
+ 	
+ 	self assert: (function value: true value: nil).
+ 	self deny: (function value: nil value: true).
+ 	self assert: (function value: Object new value: true).
+ 	self deny: (function value: true value: Object new).
+ 	self assert: (function value: Object new value: nil).
+ 	self deny: (function value: nil value: Object new).!