test[jl8] 60

.
self running: 'test[s8] points and rectangles - http://alereimondo.no-ip.org/s8-media/574'
self test_Point
self test_Rectangle

self running: 'test[s8] deep calls - http://alereimondo.no-ip.org/s8-media/449'
"self test_RecursiveCallToBlock
self test_ComplexBlock
self test_Early

self running: 'test[s8] hashed collections - http://alereimondo.no-ip.org/s8-media/573'
self test_HashedSet
self test_Pool
self test_Inject
self test_InjectSimple

self running: 'superSends on class side'
|ok| ok := false. [ ok := 7 + 3 = Point sample ] on: Exception do: [:ex| ok := true. self note: ex description ]. ^ok

self running: 'NativeHandle support'
NativeHandle support notNil

self running: 'Name tests'
| class | class := 23. ^class class = Number
| not | not := false. ^not not
| raise | raise := #raise. ^raise class = String

self running: 'accessing subarrays'
|a| a:=#(1 #(2 #(3 4 5) 6 7) 8 9). ^a second second third = 5
|a| a:=#(1 #(2 #(3 4 5) 6 7) 8 9). a second second at: 3 put: 3. ^a second second third = 3
|a| a:=#(1 #(2) 3 4 5). a at: 2 put: PoolDictionary new. a second at: #x put: #x. ^(a second at: #x) = #x
|a| a:=#(1 #(2) 3 4 5). a at: 2 put: PoolDictionary new. a second at: #x put: #(1 2 3). ^(a second at: #x) second = 2

self running: #isClass
Array isClass = true
Array class isClass = false