[squeak-dev] The Inbox: KernelTests-ct.382.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jan 1 18:59:15 UTC 2021


Christoph Thiede uploaded a new version of KernelTests to project The Inbox:
http://source.squeak.org/inbox/KernelTests-ct.382.mcz

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

Name: KernelTests-ct.382
Author: ct
Time: 1 January 2021, 7:59:13.17819 pm
UUID: 812293dd-db7d-4c03-a33d-8b6f4354d1fa
Ancestors: KernelTests-ct.375, KernelTests-tonyg.381

Tests simulation of #perform:... primitives 83, 84, and 100. Complements Kernel-ct.1367.

Depends indeed not only on KernelTests-tonyg.381 but also on KernelTests-ct.375, it would be nice if we could get the latter merged soon, this has already been causing too many merge conflicts in the past. :-)

=============== Diff against KernelTests-ct.375 ===============

Item was added:
+ ----- Method: ContextTest>>testPrimitive100 (in category 'tests') -----
+ testPrimitive100
+ 
+ 	{
+ 		{#isNil. {}. Object}. "valid 0-arg message"
+ 		{#=. {true}. UndefinedObject}. "valid unary message"
+ 		{#ifNil:ifNotNil:. {[2]. [:x | x]}. Object}. "valid binary message"
+ 		{}. "missing selector"
+ 		{#isNil}. "missing arguments"
+ 		{#isNil. 'not an array'}. "invalid arguments"
+ 		{#isNil. {}}. "missing lookupClass"
+ 		{#isNil. {'excess arg'}. Object}. "too many arguments"
+ 		{#=. {}. UndefinedObject}. "missing argument"
+ 		{#isNil. {}. Boolean}. "lookupClass not in inheritance chain"
+ 	} do: [:args |
+ 		self
+ 			assert: (Context runSimulated: [nil tryPrimitive: 100 withArgs: args])
+ 			equals: (nil tryPrimitive: 100 withArgs: args)].!

Item was added:
+ ----- Method: ContextTest>>testPrimitive83 (in category 'tests') -----
+ testPrimitive83
+ 
+ 	{
+ 		{#isNil}. "valid 0-arg message"
+ 		{#=. true}. "valid unary message"
+ 		{#ifNil:ifNotNil:. [2]. [:x | x]}. "valid binary message"
+ 		{}. "missing selector"
+ 		{#isNil. 'excess arg'}. "too many arguments"
+ 		{#=}. "missing argument"
+ 	} do: [:args |
+ 		self
+ 			assert: (Context runSimulated: [nil tryPrimitive: 83 withArgs: args])
+ 			equals: (nil tryPrimitive: 83 withArgs: args)].!

Item was added:
+ ----- Method: ContextTest>>testPrimitive84 (in category 'tests') -----
+ testPrimitive84
+ 
+ 	{
+ 		{#isNil. {}}. "valid 0-arg message"
+ 		{#=. {true}}. "valid unary message"
+ 		{#ifNil:ifNotNil:. {[2]. [:x | x]}}. "valid binary message"
+ 		{}. "missing selector"
+ 		{#isNil}. "missing arguments"
+ 		{#isNil. 'not an array'}. "invalid arguments"
+ 		{#isNil. {'excess arg'}}. "too many arguments"
+ 		{#=. {}}. "missing argument"
+ 	} do: [:args |
+ 		self
+ 			assert: (Context runSimulated: [nil tryPrimitive: 84 withArgs: args])
+ 			equals: (nil tryPrimitive: 84 withArgs: args)].!



More information about the Squeak-dev mailing list