[squeak-dev] The Trunk: KernelTests-cbc.336.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Mar 25 20:51:47 UTC 2018
Chris Cunningham uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cbc.336.mcz
==================== Summary ====================
Name: KernelTests-cbc.336
Author: cbc
Time: 25 March 2018, 1:51:33.345291 pm
UUID: 6e6b91ac-d706-8f4d-bd60-1057109994cb
Ancestors: KernelTests-eem.335
Test that new xor: takes blocks - but only those that result in booleans. Others raise errors.
=============== Diff against KernelTests-eem.335 ===============
Item was changed:
----- Method: FalseTest>>testXor (in category 'tests') -----
testXor
self assert: (false xor: true) = true.
self assert: (false xor: false) = false.
+ self assert: (false xor: [true]) = true.
+ self assert: (false xor: [false]) = false.
+ self should: [false xor: [1]] raise: NonBooleanReceiver.!
-
- self
- should: [(false xor: [false])
- ifTrue: ["This should never be true, do not signal an Error and let the test fail"]
- ifFalse: [self error: 'OK, this should be false, raise an Error']]
- raise: Error
- description: 'a Block argument is not allowed. If it were, answer would be false'.!
Item was changed:
----- Method: TrueTest>>testXor (in category 'testing') -----
testXor
self assert: (true xor: true) = false.
self assert: (true xor: false) = true.
+ self assert: (true xor: [true]) = false.
+ self assert: (true xor: [false]) = true.
+ self should: [true xor: [1]] raise: NonBooleanReceiver.!
-
- self
- should: [(true xor: [true])
- ifTrue: ["This should never be true, do not signal an Error and let the test fail"]
- ifFalse: [self error: 'OK, this should be false, raise an Error']]
- raise: Error
- description: 'a Block argument is not allowed. If it were, answer would be false'.!
More information about the Squeak-dev
mailing list
|