# HG changeset patch # User Jan Vrany # Date 1416311553 -3600 # Node ID 2c8e2e982f202d8a7a3887bfcb6f410e4de2aca1 # Parent cb241ada2e6f048943fbebbf3fbddc850bfa1242 class: RegressionTests::JITTest added: #not #testNot #tstSendNotTo: category of: diff -r cb241ada2e6f -r 2c8e2e982f20 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 " +! ! + !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 " +! + +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 " +! ! + !JITTest methodsFor:'test - loops'! loop1