Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.401.mcz==================== Summary ====================
Name: KernelTests-nice.401
Author: nice
Time: 14 April 2021, 6:44:29.769889 pm
UUID: b726ca09-62ef-fc40-ae2b-4bdb0a57c490
Ancestors: KernelTests-ul.400
Remove the tests simulating primitive perform: &al without selector.
They make not much sense and make the VM crash.
=============== Diff against KernelTests-ul.400 ===============
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"
- {}. "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 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"
- {}. "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 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"
- {}. "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)].!