Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.284.mcz
==================== Summary ====================
Name: CollectionsTests-nice.284 Author: nice Time: 8 November 2017, 12:33:12.625652 am UUID: dc0e00e8-72ad-4698-a05c-fe0fba0bf7dc Ancestors: CollectionsTests-nice.283
Update tests for SortFunction refactorings
=============== Diff against CollectionsTests-nice.283 ===============
Item was changed: SystemOrganization addCategory: #'CollectionsTests-Abstract'! SystemOrganization addCategory: #'CollectionsTests-Arrayed'! SystemOrganization addCategory: #'CollectionsTests-Sequenceable'! + SystemOrganization addCategory: #'CollectionsTests-SortFunctions'! SystemOrganization addCategory: #'CollectionsTests-Stack'! SystemOrganization addCategory: #'CollectionsTests-Streams'! SystemOrganization addCategory: #'CollectionsTests-Support'! SystemOrganization addCategory: #'CollectionsTests-Text'! SystemOrganization addCategory: #'CollectionsTests-Unordered'! SystemOrganization addCategory: #'CollectionsTests-Weak'!
Item was changed: TestCase subclass: #ChainedSortFunctionTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'CollectionsTests-SortFunctions'! - category: 'CollectionsTests-Support'!
Item was added: + ----- Method: ChainedSortFunctionTest>>testComparisonOfFunctions (in category 'tests') ----- + testComparisonOfFunctions + + self assert: #name ascending, #surname equals: #name ascending, #surname. + self assert: (#name ascending, #surname) hash equals: (#name ascending, #surname) hash. + + self deny: #name ascending, #surname = (#name ascending, #surname2). + self deny: #name ascending, #surname = (#name descending, #surname). + self deny: #name ascending, #surname ascending = (#name ascending, #surname descending).!
Item was changed: TestCase subclass: #SortFunctionTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'CollectionsTests-SortFunctions'! - category: 'CollectionsTests-Support'!
Item was added: + ----- Method: SortFunctionTest>>testAsSortFunction (in category 'tests') ----- + testAsSortFunction + | function | + function := #name ascending. + self assert: function equals: function asSortFunction. + function := #name asSortFunction. + self assert: function equals: function asSortFunction. + function := [ :each | each name ] ascending. + self assert: function equals: function asSortFunction. + function := [ :x :y | x <=> y ] asSortFunction. + self assert: function equals: function asSortFunction.!
Item was added: + ----- Method: SortFunctionTest>>testComparisonOfFunctionsDefinedByBlock (in category 'tests') ----- + testComparisonOfFunctionsDefinedByBlock + | collatorBlock | + collatorBlock := [ :a :b | 1 ]. + + self assert: collatorBlock ascending equals: collatorBlock ascending. + self assert: collatorBlock ascending hash equals: collatorBlock ascending hash. + + self deny: collatorBlock ascending = collatorBlock descending. + self deny: collatorBlock ascending = [ :a :b | -1 ] ascending!
Item was added: + ----- Method: SortFunctionTest>>testComparisonOfFunctionsDefinedBySymbol (in category 'tests') ----- + testComparisonOfFunctionsDefinedBySymbol + + self assert: #name ascending equals: #name ascending. + self assert: #name ascending hash equals: #name ascending hash. + + self deny: #name ascending = #name descending. + self deny: #name ascending = #name2 ascending. + self deny: #name ascending undefinedFirst = #name ascending undefinedLast!
Item was changed: ----- Method: SortFunctionTest>>testDirectionToggling (in category 'tests') ----- testDirectionToggling
| function | function := #x ascending. self assert: (function value: 0 @ 2 value: 1 @ 1). self assert: (function value: 1 @ 2 value: 1 @ 1). self deny: (function value: 2 @ 2 value: 1 @ 1). + function := function reversed. - function := function toggleDirection. self deny: (function value: 1 @ 2 value: 2 @ 1). self assert: (function value: 1 @ 2 value: 1 @ 1). self assert: (function value: 2 @ 2 value: 1 @ 1). + function := function reversed. - function := function toggleDirection. self assert: (function value: 0 @ 2 value: 1 @ 1). self assert: (function value: 1 @ 2 value: 1 @ 1). self deny: (function value: 2 @ 2 value: 1 @ 1)!
Item was changed: ----- Method: SortFunctionTest>>testPropertyWithOddCollator (in category 'tests') ----- testPropertyWithOddCollator
| function | + function := #y collatedBy: [:a :b | "sort the odd first" (b bitAnd: 1) - (a bitAnd: 1)]. - function := #y sortedWith: [:a :b | "sort the odd first" (b bitAnd: 1) - (a bitAnd: 1)]. self assert: (function value: 0@1 value: 0@0). self assert: (function value: 0@1 value: 0@2). self deny: (function value: 0@2 value: 0@1). self deny: (function value: 0@2 value: 0@3).!
Item was added: + ----- Method: SortFunctionTest>>testUndefinedFirstUnary (in category 'tests') ----- + testUndefinedFirstUnary + + | function | + function := #y ascending undefinedFirst. + self assert: (function value: 0 @ nil value: 1 @ 1). + self assert: (function value: 1 @ 2 value: 1 @ 2). + self deny: (function value: 2 @ 2 value: 1 @ 1). + function := #y descending undefinedFirst. + self assert: (function value: 1 @ nil value: 2 @ 1). + self deny: (function value: 1 @ 2 value: 1 @ 3). + self deny: (function value: 2 @ 2 value: 1 @ 3)!
Item was added: + ----- Method: SortFunctionTest>>testUndefinedLastUnary (in category 'tests') ----- + testUndefinedLastUnary + + | function | + function := #y ascending undefinedLast. + self assert: (function value: 0 @ 2 value: 1 @ nil). + self assert: (function value: 1 @ 2 value: 1 @ 2). + self deny: (function value: 2 @ 2 value: 1 @ 1). + function := #y descending undefinedLast. + self assert: (function value: 1 @ 2 value: 2 @ nil). + self deny: (function value: 1 @ 2 value: 1 @ 3). + self deny: (function value: 2 @ 2 value: 1 @ 3)!
Item was changed: TestCase subclass: #TestSpaceshipOperator instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'CollectionsTests-SortFunctions'! - category: 'CollectionsTests-Support'!
Item was added: + ----- Method: TestSpaceshipOperator>>testIntegers (in category 'tests') ----- + testIntegers + self assert: (42 <=> 42) equals: 0. + self assert: (1 <=> 42) equals: -1. + self assert: (100 <=> 42) equals: 1!
packages@lists.squeakfoundation.org