[Pkg] The Trunk: KernelTests-cmm.254.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.254.mcz

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

Name: KernelTests-cmm.254
Author: cmm
Time: 25 October 2013, 3:01:47.351 pm
UUID: 7ab6a8b8-b2d1-414c-a1f9-c164e489eef9
Ancestors: KernelTests-nice.253

Test for valueWithAllPossibleArguments:.

=============== Diff against KernelTests-nice.253 ===============

Item was added:
+ ----- Method: BlockContextTest>>testValueWithAllPossibleArgs (in category 'tests - evaluating') -----
+ testValueWithAllPossibleArgs
+ 	| block  blockWithArg blockWith2Arg |
+ 
+ 	block := [1].
+ 	blockWithArg  := [:arg | arg].
+ 	blockWith2Arg := [:arg1 :arg2 | {arg1. arg2}].
+ 
+ 	self assert: (block valueWithAllPossibleArguments: #()) = 1.
+ 	self assert: (block valueWithAllPossibleArguments: #(1)) = 1.
+ 	
+ 	self assert: (blockWithArg valueWithAllPossibleArguments: #()) = nil.
+ 	self assert: (blockWithArg valueWithAllPossibleArguments: #(1)) = 1.
+ 	self assert: (blockWithArg valueWithAllPossibleArguments: #(1 2)) = #(1 2).
+ 
+ 	self assert: (blockWith2Arg valueWithAllPossibleArguments: #()) = {nil .nil}.
+ 	self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1)) =  {1 . nil}.
+ 	self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1 2)) =  #(1 2).
+ 	self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1 2 3)) = #(1 2).
+ 		
+ 
+ 	!