test[jl8] 30

.

self running: 'Accessing selectors'
Point selectors notEmpty
Point selectors size > 1
Point class selectors size > 1
Object selectors ~= Point selectors
Point selectors asLiteral size > 0
Point selectors includes: #x
Point selectors includes: #x:

self running: 'Accessing compiled methods'
(Point compiledMethodAt: #x) notNil
(Point compiledMethodAt: #x) source startsWith: #x
(Object compiledMethodAt: 77) isNil
(Object compiledMethodAt: 'missing selector') isNil
(Object>>#yourself) source includes: #yourself
(Object>>#accept:) source includes: #note:
(Point>>>#yourself) notNil
(Point>>>#yourself) == (Object>>#yourself)

self running: 'Lookup tests'
Object new respondsTo: #->
Point zero respondsTo: #x:
Point respondsTo: #zero

self running: 'super tests'
Point zero test_SuperInstanceSend = true
7 test_SuperInstanceSend = Object
Point test_SuperInstanceSend = true
Class test_SuperInstanceSend = Object class
Set test_SuperInstanceSend = Object class
Object test_SuperInstanceSend = Object class
12 test_SuperSendClass = 12 class
Point zero test_SuperSendClass = true
Point zero test_SuperSendOther = true

self running: 'Object Events tests'
Object new canTriggerEvent: #changed
(Object new canTriggerEvent: #hello) not
TestServer constructEventsTriggered size > 1
TestServer new canTriggerEvent: #needsContents:with: 
TestServer new when: #needsContents:with: do: [:uri :headers| self note: #ok ]; notNil
TestServer new when: #needsContents:with: do: [:uri :headers| true ]; triggerEvent: #needsContents:with: withArguments: #(1 2)

self running: 'Accessing subclasses'
(EventManager subclasses collect: [:each| each class ]) = EventManager class subclasses
Point subclasses isEmpty
Class class subclasses isEmpty

self running: 'Behavior, classes and metaclasses'
EventManager isKindOf: Behavior
EventManager class isKindOf: Behavior
Array instanceClass == Array class instanceClass