class: RegressionTests::QuadFloatTest
changed:
#test01_Nan
#test02_Inf
#test03_Conversion
#test04_Arithmetic
#test05_Comparing
#test06_MiscMath
#test07_Truncation
#test08_Representation
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#ValueHolderTests
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'* uncategorized *'
!
!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$'
! !