"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#CollectionTests

	instanceVariableNames:'empty nonEmpty'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

Object subclass:#SortTestData

	instanceVariableNames:'value order'

	classVariableNames:''

	poolDictionaries:''

	privateIn:CollectionTests

!

!CollectionTests class methodsFor:'documentation'!

coveredClasses

    ^ Collection withAllSubclasses

!

documentation

"

    documentation to be added.

    [author:]

        Claus Gittinger (cg@alan)

    [see also:]

    [instance variables:]

    [class variables:]

"

!

history

    "Created: / 8.11.2001 / 08:17:09 / cg"

! !

!CollectionTests methodsFor:'helpers'!

checkSorted:aSortedCollection with:sortBlock against:anOriginalCollection

    |first|

    self assert:aSortedCollection size = anOriginalCollection size.

    "is it sorted?"

    first := true.

    aSortedCollection inject:nil into:[:last :each|

            first ifTrue:[first := false] 

                  ifFalse:[self assert:(sortBlock value:last value:each)]. each].

    "same elements as in original?"

    self assert:(aSortedCollection asBag = anOriginalCollection asBag).

!

collectedDoArgsOf:aCollection

    |collectedDoArgs|

    collectedDoArgs := OrderedCollection new.

    aCollection do:[:each | collectedDoArgs add:each].

    ^ collectedDoArgs

! !

!CollectionTests methodsFor:'initialize-release'!

setUp

        empty := Set new.

        nonEmpty := OrderedCollection with: #x.

! !

!CollectionTests methodsFor:'tests-dictionary'!

testDictionary01

    |d v1 v2 v3 ret|

    d := Dictionary new.

    d at:1 put:(v1 := 'one').

    d at:2 put:(v2 := 'two').

    d at:3 put:(v3 := 'three').

    self assert: ( d size == 3 ).

    self assert:(ret := self collectedDoArgsOf:d) asArray = #('one' 'two' 'three').

    self assert:(ret := d collect:[:each | each]) = #('one' 'two' 'three') asBag.

    self assert:(ret := d select:[:each | true]) = (Dictionary withAssociations:(Array with:(1->'one') with:(2->'two') with:(3->'three'))).

    self assert: ( (d at:1) == v1 ).

    self assert: ( (d at:2) == v2 ).

    self assert: ( (d at:3) == v3 ).

    d at:3 put:(v3 := 'drei').

    self assert: ( d size == 3 ).

    self assert: ( (d at:1) == v1 ).

    self assert: ( (d at:2) == v2 ).

    self assert: ( (d at:3) == v3 ).

    self assert: ( (d keyAtValue:v1) = 1 ).

    "

     self basicNew testDictionary01

    "

    "Modified: / 04-07-2011 / 19:28:39 / cg"

! !

!CollectionTests methodsFor:'tests-general'!

doTestDictionaryLikeAddRemoveOperationsIn:aClass

    |coll|

    coll := aClass new.

    self assert: ( coll size == 0 ).

    self assert: ( coll isEmpty ).

    self assert: ( coll notEmpty not ).

    self assert: ( coll isEmptyOrNil ).

    self assert: ( coll notEmptyOrNil not ).

    coll at:1 put:'one'.

    self assert: ( coll size == 1 ).

    self assert: ( coll isEmpty not).

    self assert: ( coll notEmpty ).

    self assert: ( coll isEmptyOrNil not ).

    self assert: ( coll notEmptyOrNil ).

    coll at:2 put:'two'.

    self assert: ( coll size == 2 ).

    self assert: ( coll isEmpty not).

    self assert: ( coll notEmpty ).

    self assert: ( coll isEmptyOrNil not ).

    self assert: ( coll notEmptyOrNil ).

    coll removeKey:2.

    self assert: ( coll size == 1 ).

    self assert: ( coll isEmpty not).

    self assert: ( coll notEmpty ).

    self assert: ( coll isEmptyOrNil not ).

    self assert: ( coll notEmptyOrNil ).

    coll removeKey:1.

    self assert: ( coll size == 0 ).

    self assert: ( coll isEmpty ).

    self assert: ( coll notEmpty not ).

    self assert: ( coll isEmptyOrNil ).

    self assert: ( coll notEmptyOrNil not ).

    "

     self basicNew doTestDictionaryLikeAddRemoveOperations

    "

    "Created: / 08-08-2011 / 16:01:14 / cg"

!

doTestGeneralAddRemoveOperationsIn:aClass

    |coll|

    coll := aClass new.

    self assert: ( coll size == 0 ).

    self assert: ( coll isEmpty ).

    self assert: ( coll notEmpty not ).

    self assert: ( coll isEmptyOrNil ).

    self assert: ( coll notEmptyOrNil not ).

    coll add:1.

    self assert: ( coll size == 1 ).

    self assert: ( coll isEmpty not).

    self assert: ( coll notEmpty ).

    self assert: ( coll isEmptyOrNil not ).

    self assert: ( coll notEmptyOrNil ).

    coll add:2.

    self assert: ( coll size == 2 ).

    self assert: ( coll isEmpty not).

    self assert: ( coll notEmpty ).

    self assert: ( coll isEmptyOrNil not ).

    self assert: ( coll notEmptyOrNil ).

    coll remove:2.

    self assert: ( coll size == 1 ).

    self assert: ( coll isEmpty not).

    self assert: ( coll notEmpty ).

    self assert: ( coll isEmptyOrNil not ).

    self assert: ( coll notEmptyOrNil ).

    coll remove:1.

    self assert: ( coll size == 0 ).

    self assert: ( coll isEmpty ).

    self assert: ( coll notEmpty not ).

    self assert: ( coll isEmptyOrNil ).

    self assert: ( coll notEmptyOrNil not ).

    "

     self basicNew testGeneralOperations

    "

    "Created: / 08-08-2011 / 16:00:06 / cg"

!

doTestGeneralCollectionOperationsIn:aClass

    |coll|

    coll := aClass new.

    self assert: ( coll size == 0 ).

    self assert: ( coll isEmpty ).

    self assert: ( coll notEmpty not ).

    self assert: ( coll isEmptyOrNil ).

    self assert: ( coll notEmptyOrNil not ).

    self should: [ coll first ] raise:Error.

    self should: [ coll last ] raise:Error.

    self should: [ (coll at:1) ] raise:Error.

    self assert: ( (coll includes:0) not ).

    "

     self basicNew testGeneralOperations

    "

!

testDictionaryLikeAddRemoveOperations

    |classes|

    classes := OrderedCollection new.

    classes 

        add:Dictionary;

        add:IdentityDictionary;

        add:OrderedDictionary;

        add:BTree.

    classes do:[:eachClass |

        self doTestDictionaryLikeAddRemoveOperationsIn:eachClass

    ].

    "

     self basicNew testDictionaryLikeAddRemoveOperations

    "

    "Created: / 08-08-2011 / 15:59:52 / cg"

!

testGeneralAddRemoveOperations

    |classes|

    classes := OrderedCollection new.

    classes 

        "/ add:RunArray;

        add:Bag;

        add:Set;

        add:IdentitySet;

        "/add:Dictionary;

        "/add:IdentityDictionary;

        add:OrderedCollection;

        add:SortedCollection;

        "/add:Queue;

        "/add:Stack;

        add:SortedCollection;

        "/add:OrderedDictionary;

        add:OrderedSet.

        "/add:BTree.

    classes do:[:eachClass |

        self doTestGeneralAddRemoveOperationsIn:eachClass

    ].

    "

     self basicNew testGeneralAddRemoveOperations

    "

    "Created: / 08-08-2011 / 15:59:02 / cg"

!

testGeneralOperations

    |classes|

    classes := OrderedCollection new.

    classes 

        add:RunArray;

        add:Bag;

        add:Set;

        add:IdentitySet;

        add:Dictionary;

        add:IdentityDictionary;

        add:OrderedCollection;

        add:SortedCollection;

        add:Queue;

        add:Stack;

        add:SortedCollection;

        add:OrderedDictionary;

        add:OrderedSet;

        add:BTree.

    classes do:[:eachClass |

        self doTestGeneralCollectionOperationsIn:eachClass

    ].

    "

     self basicNew testGeneralOperations

    "

    "Modified: / 08-08-2011 / 15:53:16 / cg"

! !

!CollectionTests methodsFor:'tests-interval'!

testInterval01

    |i1 i2|

    i1 := 1 to:10.

    self assert: ( i1 size == 10 ).

    self assert: ( i1 includes:1 ).

    self assert: ( i1 includes:10 ).

    self assert: ( i1 min == 1 ).

    self assert: ( i1 max == 10 ).

    "cannot add/remove"

    self should:[i1 add:99] raise:Error.

    self should:[i1 remove:10] raise:Error.

    i2 := 2 to:20 by:2.

    self assert: ( i2 size == 10 ).

    self assert: ( i2 includes:0 ) not.

    self assert: ( i2 includes:1 ) not.

    self assert: ( i2 includes:2 ).

    self assert: ( i2 includes:3 ) not.

    self assert: ( i2 includes:10 ).

    self assert: ( i2 includes:19 ) not.

    self assert: ( i2 includes:20 ).

    self assert: ( i2 includes:21 ) not.

    self assert: ( i2 includes:22 ) not.

    self assert: ( i2 min == 2 ).

    self assert: ( i2 max == 20 ).

    self assert: ( i2 keys asArray = (1 to:10) asArray ).

    "

     self basicNew testInterval01

    "

    "Modified: / 10-10-2011 / 13:10:43 / cg"

! !

!CollectionTests methodsFor:'tests-orderedCollection'!

testOrderedCollection01_Sort1

    |col col2|

    col := #( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ) copy.

    col sort.

    self assert:( col sameContentsAs: (1 to:20)).

    col := #( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ) copy reverse.

    col sort.

    self assert:( col sameContentsAs: (1 to:20) ).

    col := #( 10 2 13 4 15 6 17 8 19 11 1 12 3 14 5 16 7 18 9 20 ) copy.

    col sort.

    self assert:( col sameContentsAs: (1 to:20) ).

    col := ( 1 to: 10000 ) asOrderedCollection.

    col sort.

    self assert:( col sameContentsAs: (1 to:10000) ).

    col := ( 1 to: 10000 ) asOrderedCollection.

    col2 := ( 1 to: 10000 ) asOrderedCollection.

    col sortWith:col2.

    self assert:( col sameContentsAs: (1 to:10000) ).

    self assert:( col2 sameContentsAs: (1 to:10000) ).

    col := ( 10000 to: 1 by:-1) asOrderedCollection.

    col2 := ( 10000 to: 1 by:-1) asOrderedCollection.

    col sortWith:col2.

    self assert:( col sameContentsAs: (1 to:10000) ).

    self assert:( col2 sameContentsAs: (1 to:10000) ).

    "

     self new testOrderedCollection01_Sort1  

    "

    "Modified: / 04-07-2011 / 19:29:54 / cg"

!

testOrderedCollection02_SortBigCollection

    | size col sortBlock|

    size := 12500.

    col := OrderedCollection new.

    1 to:size do:[:el|

        col add:nil.

    ].

    sortBlock := [:entry1 :entry2 |  

        ((entry1 isNil) or:[entry2 isNil]) ifTrue:[

            true

        ] ifFalse:[

            false

        ]

    ].

    self shouldnt:[col sort:sortBlock] raise:RecursionInterruptSignal.

    "

     self new testOrderedCollection02_SortBigCollection

    "

!

testOrderedCollection03_SortBigCollection2

    | size col|

    size := 12500.

    col := OrderedCollection new.

    1 to:size do:[:el|

        col add:'abc'.

    ].

    self shouldnt:[col sort] raise:RecursionInterruptSignal.

    "

     self new testOrderedCollection03_SortBigCollection2

    "

!

testOrderedCollection04_SortNilsInCollection

    | size col sortBlock|

    size := 125.

    col := OrderedCollection new.

    1 to:size do:[:el|

        col add:nil.

    ].

    sortBlock := [:entry1 :entry2 |  

        ((entry1 isNil) or:[entry2 isNil]) ifTrue:[

            true

        ] ifFalse:[

            false

        ]

    ].

    "/ col sort:sortBlock.

    self shouldnt:[col sort:sortBlock] raise:RecursionInterruptSignal.

    "

     self new testOrderedCollection04_SortNilsInCollection

    "

!

testOrderedCollection05_SortRandomCollection

     |data sorted rg coData checkBlock|