A new version of KernelTests was added to project The Inbox:
http://source.squeak.org/inbox/KernelTests-it.66.mcz

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

Name: KernelTests-it.66
Author: it
Time: 13 July 2009, 10:42 am
UUID: 0be7f179-6a60-9347-8e0c-65da54566286
Ancestors: KernelTests-dtl.465

Testing False class
   * added tests for instance methods asBit and isInMemory.

Testing True class
   * added tests for instance methods and:, asBit, ifFalse, ifFalse:IfTrue:, ifTrue:, ifTrue:ifFalse:, not, |, or:.
   * fixed testInMemory and testNot to test true rather than false.

=============== Diff against KernelTests-dtl.465 ===============

Item was added:
+ ----- Method: TrueTest>>testAnd (in category 'testing') -----
+ testAnd
+ 
+ 	self assert: (true and: ['alternativeBlock']) = 'alternativeBlock'.!

Item was added:
+ ----- Method: TrueTest>>testIfTrue (in category 'testing') -----
+ testIfTrue
+ 	
+ 	self assert: (true ifTrue: ['alternativeBlock']) = 'alternativeBlock'. !

Item was added:
+ ----- Method: TrueTest>>testOR (in category 'testing') -----
+ testOR
+ 
+ 	self assert: (true | true) = true.
+ 	self assert: (true | false) = true.!

Item was changed:
  ----- Method: TrueTest>>testNot (in category 'testing') -----
  testNot
  
+ 	self assert: (true not = false).!
- 	self assert: (false not = true).!

Item was added:
+ ----- Method: TrueTest>>testIfTrueIfFalse (in category 'testing') -----
+ testIfTrueIfFalse
+ 
+ 	self assert: (true ifTrue: ['trueAlternativeBlock'] 
+                       ifFalse: ['falseAlternativeBlock']) = 'trueAlternativeBlock'. !

Item was added:
+ ----- Method: TrueTest>>testIfFalse (in category 'testing') -----
+ testIfFalse
+ 
+ 	self assert: (true ifFalse: ['alternativeBlock']) = nil. !

Item was added:
+ ----- Method: FalseTest>>testAsBit (in category 'tests') -----
+ testAsBit
+ 
+ 	self assert: (false asBit = 0).!

Item was changed:
  ----- Method: TrueTest>>testInMemory (in category 'testing') -----
  testInMemory
  
+ 	self assert: (true isInMemory = true).!
- 	self assert: (false isInMemory = true).!

Item was added:
+ ----- Method: TrueTest>>testIfFalseIfTrue (in category 'testing') -----
+ testIfFalseIfTrue
+ 
+ 	self assert: (true ifFalse: ['falseAlternativeBlock'] 
+                       ifTrue: ['trueAlternativeBlock']) = 'trueAlternativeBlock'. !

Item was added:
+ ----- Method: FalseTest>>testInMemory (in category 'tests') -----
+ testInMemory
+ 
+ 	self assert: (false isInMemory = true).!

Item was added:
+ ----- Method: TrueTest>>testOr (in category 'testing') -----
+ testOr
+ 
+ 	self assert: (true or: ['alternativeBlock']) = true.!

Item was added:
+ ----- Method: TrueTest>>testAsBit (in category 'testing') -----
+ testAsBit
+ 
+ 	self assert: (true asBit = 1).!