The Trunk: KernelTests-nice.402.mcz

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)].!