`anObject `at: `@key `ifAbsent: [^false]
`anObject `at: `@key `ifAbsent: []

someObject isNil ifTrue: [^false].
`@x isNil `ifTrue: [^false]
`@x isNil `ifTrue: []

`@x `indexOfSubCollection: `@k `startingAt: `@k1 `ifAbsent:   [^false]
`@x `indexOfSubCollection: `@k `startingAt: `@k1 `ifAbsent:   []

`self `assert: (true) `description: `testPurpose
`self `assert: (false) `description: `testPurpose

——————————————————- *

`@anObject = `@anObject2 ifFalse: [^false]
self assert: (( `@anObject = `@anObject2 )) description: testPurpose

`@anObject   ifFalse: [^false]
self assert: (( `@anObject  )) description: testPurpose

`@obj isCfsError ifTrue: [^false].
self deny: `@obj  isCfsError description: testPurpose

self 	assert: ((`anObject) isCloseTo: `anotherObject)	description: testPurpose
self 	assert: ((`anObject) isCloseToForSunit: `anotherObject)	description: testPurpose

self assert: ((`@anObject) isCloseTo: `@anotherObject)  description: testPurpose 
self assert: ((`@anObject) isCloseToForSunit: `@anotherObject)  description: testPurpose