"{ 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$'
! !