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

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

Name: KernelTests-nice.102
Author: nice
Time: 14 October 2009, 11:09:03 am
UUID: be87c1c0-769a-482e-9479-051d761424a6
Ancestors: KernelTests-nice.101

hem... the test should have failed...
Provide a better test

=============== Diff against KernelTests-nice.101 ===============

Item was changed:
  ----- 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: ["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']]
- 		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 changed:
  ----- 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: ["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']]
- 		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'.!