--- 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
"
! !