#DOCUMENTATION by cg
class: RegressionTests::Win32OLETests
changed: #test00_loadOLE
"{ Package: 'exept: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$'
! !