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

"{ NameSpace: RegressionTests }"

TSTreeTests subclass:#TSMultiTreeTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections'

!

!TSMultiTreeTests methodsFor:'as yet unclassified'!

tstreeClass

    ^ TSMultiTree

    "Created: / 26-04-2014 / 11:46:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TSMultiTreeTests methodsFor:'tests'!

test_multiple_01

    | matches |

    tree at: 'Object' put: 1.

    tree at: 'Object' put: 2.

    matches := tree matchesForPrefix: 'Obj'.

    self assert: matches size == 2.

    self assert: (matches includes: 1).

    self assert: (matches includes: 2)

    "Created: / 26-04-2014 / 11:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_multiple_02

    | values |

    tree := self tstreeClass new.

    tree at: 'Object' put: 1.

    tree at: 'Object' put: 2.

    values := tree values.

    self assert: values size == 2.

    self assert: (values includes: 1).

    self assert: (values includes: 2)

    "Created: / 26-04-2014 / 11:41:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_multiple_03a

    | values |

    tree := self tstreeClass new.

    tree at: 'Object' put: 1.

    tree at: 'Object' put: 1.

    values := tree values.

    self assert: values size == 1.

    self assert: (values includes: 1).

    "Created: / 26-04-2014 / 12:09:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_multiple_03b

    | values |

    tree := self tstreeClass new.

    tree at: 'Object' put: 1.

    tree at: 'Object' put: 2.

    tree at: 'Object' put: 1.

    values := tree values.

    self assert: values size == 2.

    self assert: (values includes: 1).

    self assert: (values includes: 2).

    "Created: / 26-04-2014 / 12:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TSMultiTreeTests class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !