Marcel Taeumel uploaded a new version of CollectionsTests to project The Treated Inbox: http://source.squeak.org/treated/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).!