test[py8] 60

.
"self running: 'test[s8] points and rectangles - http://swiki.smalltalking.net/s8-media/574'
"self test_Point
"self test_Rectangle

"self running: 'test[s8] deep calls - http://swiki.smalltalking.net/s8-media/449'
"self test_RecursiveCallToBlock
"self test_ComplexBlock
"self test_Early

"self running: 'test[s8] hashed collections - http://swiki.smalltalking.net/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| 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