RegressionTests__JITTest.st
changeset 1235 72294626e832
parent 1164 048b76d14acb
child 1237 37750bf2a462
--- 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'!