--- a/RegressionTests__JITTest.st Tue Nov 11 15:25:32 2014 +0100
+++ b/RegressionTests__JITTest.st Thu Nov 13 14:20:56 2014 +0100
@@ -285,6 +285,16 @@
"
self basicNew testAdd1
"
+!
+
+testFailingValueHolderCode
+ self assert:(JITTest new tstValueHolderCode value = Date tomorrow).
+ self class recompile:#tstValueHolderCode.
+ self assert:(JITTest new tstValueHolderCode value = Date tomorrow).
+
+ "
+ self basicNew testFailingValueHolderCode
+ "
! !
!JITTest methodsFor:'public - test - blocks'!
@@ -2138,6 +2148,20 @@
"
self new testOddEven1
"
+!
+
+tstValueHolderCode
+ |v|
+
+ v := ValueHolder new.
+
+ v value:(Date today).
+ v value:(Date today + 1).
+ ^ v.
+
+ "
+ self new tstValueHolderCode
+ "
! !
!JITTest methodsFor:'tests - args'!