class: RegressionTests::JITTest
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 18 Nov 2014 12:52:33 +0100
changeset 1242 2c8e2e982f20
parent 1241 cb241ada2e6f
child 1243 2f3b23046891
class: RegressionTests::JITTest added: #not #testNot #tstSendNotTo: category of:
RegressionTests__JITTest.st
--- 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