Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.402.mcz

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

Name: KernelTests-nice.402
Author: nice
Time: 15 April 2021, 9:58:38.391678 am
UUID: 5a87f120-bb53-462e-afb4-162791294c16
Ancestors: KernelTests-nice.401

Replay (some) changes of KernelTests-ct.395

Tests simulation of #perform:... primitives 83, 84, and 100. Reuploaded to add another fixture for the mirror primitive variant of primitive 100. Corrected order of assertion arguments.

=============== Diff against KernelTests-nice.401 ===============

Item was changed:
  ----- 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"
+ 		{{}. #=. {true}. SequenceableCollection}. "mirror primitive"
  		{#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: (nil tryPrimitive: 100 withArgs: args)
+ 			equals: (Context runSimulated: [nil tryPrimitive: 100 withArgs: args])].!
- 			assert: (Context runSimulated: [nil tryPrimitive: 100 withArgs: args])
- 			equals: (nil tryPrimitive: 100 withArgs: args)].!

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

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