[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