Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.101.mcz

==================== Summary ====================

Name: KernelTests-nice.101
Author: nice
Time: 14 October 2009, 10:54 am
UUID: 029c1612-5adb-4944-acc3-cdb0473f45d0
Ancestors: KernelTests-mha.100

Add some tests for xor:
Especially when providing a block argument (which should not be)

=============== Diff against KernelTests-mha.100 ===============

Item was added:
+ ----- Method: FalseTest>>testXor (in category 'tests') -----
+ testXor
+ 	self assert: (false xor: true) = true.
+ 	self assert: (false xor: false) = false.
+ 		
+ 	self
+ 		should: [(false xor: [false]) ifTrue: [self error: 'this is false']]
+ 		raise: Error
+ 		description: 'a Block argument is not allowed. If it were, answer would be false'.!

Item was added:
+ ----- Method: TrueTest>>testXor (in category 'testing') -----
+ testXor
+ 	self assert: (true xor: true) = false.
+ 	self assert: (true xor: false) = true.
+ 	
+ 	self
+ 		should: [(true xor: [true]) ifTrue: [self error: 'this is not true']]
+ 		raise: Error
+ 		description: 'a Block argument is not allowed. If it were, answer would be false'.!