RegressionTests__JITTest.st
changeset 1237 37750bf2a462
parent 1235 72294626e832
child 1238 2c5be7c7e74c
--- a/RegressionTests__JITTest.st	Thu Nov 13 15:04:57 2014 +0100
+++ b/RegressionTests__JITTest.st	Thu Nov 13 15:11:22 2014 +0100
@@ -285,16 +285,6 @@
     "
      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'!
@@ -499,6 +489,30 @@
 
     "Created: / 16.11.2001 / 00:08:49 / cg"
     "Modified: / 16.11.2001 / 00:09:29 / cg"
+!
+
+testFailingValueHolderCode
+    self shouldnt:[
+        JITTest new tstValueHolderCode1.
+    ] raise:Exception.
+    self assert:(JITTest new tstValueHolderCode1 value = Date tomorrow).
+    self class recompile:#tstValueHolderCode1.
+    self shouldnt:[
+        JITTest new tstValueHolderCode1.
+    ] raise:Exception.
+    self assert:(JITTest new tstValueHolderCode1 value = Date tomorrow).
+
+    self shouldnt:[
+        JITTest new tstValueHolderCode2.
+    ] raise:Exception.
+    self class recompile:#tstValueHolderCode2.
+    self shouldnt:[
+        JITTest new tstValueHolderCode2.
+    ] raise:Exception.
+
+    "
+     self basicNew testFailingValueHolderCode
+    "
 ! !
 
 !JITTest methodsFor:'test - arithmetic'!
@@ -2150,7 +2164,20 @@
     "
 !
 
-tstValueHolderCode
+tstValueHolderCode1
+    |v|
+
+    v := ValueHolder new.
+
+    v value:(Date today).
+    v value:(Date today + 1).
+
+    "
+     self new tstValueHolderCode1      
+    "
+!
+
+tstValueHolderCode2
     |v|
 
     v := ValueHolder new.
@@ -2160,7 +2187,7 @@
     ^ v.
 
     "
-     self new tstValueHolderCode      
+     self new tstValueHolderCode2      
     "
 ! !