Michael Haupt uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-mha.177.mcz

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

Name: KernelTests-mha.177
Author: mha
Time: 24 March 2011, 8:18:44.275 pm
UUID: fdea5e4b-57b4-40d7-8b1c-34497475a398
Ancestors: KernelTests-ul.176

tests for revamped closures protocol in CompiledMethod

=============== Diff against KernelTests-ul.176 ===============

Item was added:
+ ----- Method: CompiledMethodTest>>testClosureCompiled (in category 'tests - closures') -----
+ testClosureCompiled
+ 	self
+ 		assert: (self class >> #withClosure) isClosureCompiled;
+ 		assert: (self class >> #withClosureNoNLR) isClosureCompiled!

Item was added:
+ ----- Method: CompiledMethodTest>>testClosureNLRs (in category 'tests - closures') -----
+ testClosureNLRs
+ 	self
+ 		assert:
+ 			((self class >> #withClosure) embeddedBlockMethods at: 1)
+ 				hasMethodReturn;
+ 		assert:
+ 			((self class >> #withClosureNoNLR) embeddedBlockMethods at: 1) 
+ 				hasMethodReturn not!

Item was added:
+ ----- Method: CompiledMethodTest>>testClosureSize (in category 'tests - closures') -----
+ testClosureSize
+ 	self
+ 		assert: ((self class >> #withClosure) embeddedBlockMethods at: 1) size
+ 			equals: 2;
+ 		assert: ((self class >> #withClosureNoNLR) embeddedBlockMethods at: 1) size
+ 			equals: 2!

Item was added:
+ ----- Method: CompiledMethodTest>>testHasClosure (in category 'tests - closures') -----
+ testHasClosure
+ 	self
+ 		assert: (self class >> #withClosure) containsBlockClosures;
+ 		assert: (self class >> #withClosureNoNLR) containsBlockClosures;
+ 		assert: (self class >> #withoutClosure) containsBlockClosures not!

Item was added:
+ ----- Method: CompiledMethodTest>>withClosure (in category 'examples') -----
+ withClosure
+ 	[ ^ 23 ] value!

Item was added:
+ ----- Method: CompiledMethodTest>>withClosureNoNLR (in category 'examples') -----
+ withClosureNoNLR
+ 	^ [ 23 ] value!

Item was added:
+ ----- Method: CompiledMethodTest>>withoutClosure (in category 'examples') -----
+ withoutClosure
+ 	^ 23 + 42!