1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
[| :array
main
self testBlock.
self testExceptions.
^self
!
testBlock
| count array |
Transcript showLine:'> Block test'.
array := #( ).
1 to: 5 do: [ :i | array addObject:i ].
count := 0.
array do: [ :element | count := count + 1. ].
Transcript showLine:'count ', (count stringValue).
array do: [ :i |
array do: [ :j |
Transcript show:((i stringValue), (j stringValue),' ').
].
Transcript show:'\n'.
].
^self
!
testExceptions
Transcript showLine:'> Exception handler test'.
[ NSException raise:'Some exception' format:' '. ]
handler:
[ :localException |
Transcript showLine:(' Exception: ', localException name).
].
^self
]
|
