--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__ValueHolderTests.st	Wed May 01 22:48:55 2019 +0200
@@ -0,0 +1,33 @@
+"{ 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$'
+! !
+