#FEATURE by Stefan Reise
class: RegressionTests::WebSocketTest
removed:
#byteArray500
#data500
#testCommunication100WithMasking
#testCommunication100WithoutMasking
#testCommunication500
#testCommunicationByteArray500
#testMask500
#testMask500Speed
category of:
#testCommunication100Speed
#testMask100Speed
#testParallelSocketWrite
class: WebSocketTest
changed:
#testCommunicationFilename
#testParallelSocketWrite
"{ 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$'
! !