"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#SortTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Collections'
!

!SortTests class methodsFor:'documentation'!

documentation
"
    documentation to be added.

    [author:]
	mb (mb@sixtyfour)

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!SortTests methodsFor:'helpers'!

checkSort:data
     |mergeSorted quickSorted definitivelySorted|

     definitivelySorted := self goodSort:(data copy).

     mergeSorted := data copy mergeSort.
     self assert:(mergeSorted isSorted).
     self assert:(mergeSorted = definitivelySorted).

     quickSorted := data copy quickSort.
     self assert:(quickSorted isSorted).
     self assert:(quickSorted = definitivelySorted).
!

goodSort:data
     |tree|

     tree := BinaryTree withAll:data.
     ^ tree asArray
! !

!SortTests methodsFor:'tests'!

test01_smallArrays
     self checkSort: #(1 16 7 98 3 19 4 0).
     self checkSort: #(1 16 7 98 9 3 19 4 0).

     self checkSort: #(1 16 7 98 7 1 3 19 4 0).
     self checkSort: #(1 16 7 98 7 1 3 19 4 0).
!

test02_largeArrays
     |data|

     data := (1 to:22581) collect:[:i | Random nextInteger] as:Array.

     self checkSort: data.
! !

!SortTests class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !