class: RegressionTests::JITTest
added:
#not
#testNot
#tstSendNotTo:
category of:
--- a/RegressionTests__JITTest.st Mon Nov 17 14:45:18 2014 +0100
+++ b/RegressionTests__JITTest.st Tue Nov 18 12:52:33 2014 +0100
@@ -448,6 +448,18 @@
"
! !
+!JITTest methodsFor:'public - test - logical'!
+
+testNot
+
+ self assert: (self tstSendNotTo: true) == false.
+ self assert: (self tstSendNotTo: false) == true.
+ self should: [ self tstSendNotTo: 1 ] raise: MessageNotUnderstood.
+ self assert: (self tstSendNotTo: self) == #'not properly handled'.
+
+ "Created: / 18-11-2014 / 11:47:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!JITTest methodsFor:'public - test - misc'!
testAndGreater1
@@ -1808,6 +1820,28 @@
"
! !
+!JITTest methodsFor:'test - logical'!
+
+not
+ ^ #'not properly handled'
+
+ "Created: / 18-11-2014 / 11:48:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+tstSendNotTo: object
+
+ ^ object not
+
+ "
+ JITTest new tstSendNotTo: true.
+ JITTest new tstSendNotTo: false.
+ JITTest new tstSendNotTo: 1.
+ JITTest new tstSendNotTo: JITTest new.
+ "
+
+ "Created: / 18-11-2014 / 11:49:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!JITTest methodsFor:'test - loops'!
loop1