Chris Cunningham uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cbc.337.mcz==================== Summary ====================
Name: KernelTests-cbc.337
Author: cbc
Time: 26 March 2018, 11:16:17.932291 am
UUID: 412bf5e8-a7c6-334f-9353-153edac45fd9
Ancestors: KernelTests-cbc.336
Correct expected xor: failure to be any type of error, not a specific one.
=============== Diff against KernelTests-cbc.336 ===============
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.
+ "Verify that boolean with non-boolean raise errors."
+ self should: [false xor: [1]] raise: Error.
+ self should: [false xor: 1] raise: Error.!
- self should: [false xor: [1]] raise: NonBooleanReceiver.!
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.
+ "Verify that boolean with non-boolean raise errors."
+ self should: [true xor: [1]] raise: Error.
+ self should: [true xor: 1] raise: Error.!
- self should: [true xor: [1]] raise: NonBooleanReceiver.!