test[jl8] 80

.
self running: 'References - implementors'
#yourself implementors size = 1
#no-thing implementors isEmpty

self running: 'References - senders'
#yourself senders includes: Behavior>>#collection 
#+ senders includes: Rectangle>>#center 

self running: 'References - messages'
(Object>>#yourself) messages isEmpty
(Message>>#evaluate) messages includes: #perform
(BlockClosure>>#exception:matches:) messages includes: #isString
(Stream>>#do:) messages = #(#atEnd #next #value:)

self running: 'References - globals'
(MethodReferences ofGlobal: #Smalltalk) notEmpty
(MethodReferences ofGlobal: #Point) includes: Number>>#@ 

self running: 'References - misc'
(MethodReferences findClasses: #Col) includes: Collection
MethodReferences methodOverwrites includes: Object>>#smalltalk 
(MethodReferences findMessages: #isNumber) notEmpty
(MethodReferences globals at: #Smalltalk) includes: Object>>#smalltalk 
MethodReferences variableOverwrites isEmpty