RegressionTests__ValueHolderTests.st
author Stefan Vogel <sv@exept.de>
Tue, 11 Jun 2019 10:34:41 +0200
changeset 2321 32ea6329f5ad
parent 2285 76870e37bb57
permissions -rw-r--r--
class: stx_goodies_regression class changed: #classNamesAndAttributes make classes autoloaded that stc cannot compile (yet)

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

"{ NameSpace: RegressionTests }"

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


!ValueHolderTests methodsFor:'tests'!

test01_BlockValue
    |h1 h2|

    h1 := false asValue.
    h2 := BlockValue forLogicalNot:(h1).
    self assert:(h2 value == true).

    h1 value:true.
    self assert:(h2 value == false).

    "Created: / 01-05-2019 / 22:46:40 / Claus Gittinger"
! !

!ValueHolderTests class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !