The Inbox: KernelTests-ct.383.mcz

A new version of KernelTests was added to project The Inbox:
http://source.squeak.org/inbox/KernelTests-ct.383.mcz

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

Name: KernelTests-ct.383
Author: ct
Time: 24 January 2021, 4:39:37.623504 pm
UUID: 27645338-d085-9c45-ae2b-4263aade35b4
Ancestors: KernelTests-ct.382

Removes inappropriate test case for perform primitives with invalid number of arguments. Depends on KernelTests-ct.382.

=============== Diff against KernelTests-ct.382 ===============

Item was changed:
  SystemOrganization addCategory: #'KernelTests-Classes'!
  SystemOrganization addCategory: #'KernelTests-Methods'!
  SystemOrganization addCategory: #'KernelTests-Numbers'!
  SystemOrganization addCategory: #'KernelTests-Objects'!
  SystemOrganization addCategory: #'KernelTests-Processes'!
+ SystemOrganization addCategory: #'KernelTests-Models'!

Item was added:
+ ----- Method: BlockClosureTest>>return: (in category 'private') -----
+ return: something
+
+ ^ something!

Item was changed:
  ----- Method: BlockClosureTest>>testRunSimulated (in category 'tests') -----
  testRunSimulated
+ self assert: Rectangle equals:
+ (Context runSimulated: aBlockClosure asContext) class.
+ self assert: 42 equals:
+ (Context runSimulated: [self return: 42]).
+ self
+ should: [Context runSimulated: [self halt]]
+ raise: Halt.!
- self assert: Rectangle equals: (Context runSimulated: aBlockClosure asContext) class!

Item was added:
+ ----- Method: BlockClosureTest>>testRunSimulatedContextAtEachStep (in category 'tests') -----
+ testRunSimulatedContextAtEachStep
+
+ | context |
+ context := aBlockClosure asContext.
+ self assert: Rectangle equals: (thisContext
+ runSimulated: context
+ contextAtEachStep: [:ctxt | self assert:
+ [ctxt == context or: [ctxt hasSender: context]]]) class.!

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

Item was added:
+ TestCase subclass: #ModelTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'KernelTests-Models'!

Item was added:
+ ----- Method: ModelTest>>testCopyDependents (in category 'tests') -----
+ testCopyDependents
+
+ | bar foo |
+ foo := Model new.
+ foo addDependent: 42.
+ self assert: {42} equals: foo dependents asArray.
+
+ bar := foo copy.
+ self assert: bar dependents isEmpty.!

Item was added:
+ ----- Method: ObjectTest>>testCopyDependents (in category 'tests') -----
+ testCopyDependents
+
+ | bar foo |
+ foo := Object new.
+ foo addDependent: 42.
+ self assert: {42} equals: foo dependents asArray.
+
+ bar := foo copy.
+ self assert: bar dependents isEmpty.!

Item was added:
+ ----- Method: PromiseTest>>testNilErrBlockPropagation (in category 'tests - monad') -----
+ testNilErrBlockPropagation
+ "https://promisesaplus.com section 2.2.7.4"
+ | p q |
+ p := Promise new.
+ q := p then: [:v | self error: 'Shouldn''t call resolvedBlock'] ifRejected: nil.
+ p rejectWith: 1.
+ self assert: p isRejected.
+ self assert: q isRejected.
+ self assert: p error equals: 1.
+ self assert: q error equals: 1.!

Item was added:
+ ----- Method: PromiseTest>>testNilResolvedBlockPropagation (in category 'tests - monad') -----
+ testNilResolvedBlockPropagation
+ "https://promisesaplus.com section 2.2.7.3"
+ | p q |
+ p := Promise new.
+ q := p then: nil ifRejected: [:e | self error: 'Shouldn''t call errBlock'].
+ p resolveWith: 1.
+ self assert: p isResolved.
+ self assert: q isResolved.
+ self assert: p value equals: 1.
+ self assert: q value equals: 1.!