12 lines
222 B
Smalltalk
12 lines
222 B
Smalltalk
|
testZeroDivide :=
|
||
|
|
[:aBlock |
|
||
|
|
[
|
||
|
|
aBlock value.
|
||
|
|
false
|
||
|
|
] on: ZeroDivide do: [true].
|
||
|
|
].
|
||
|
|
|
||
|
|
"Testing"
|
||
|
|
testZeroDivide value: [2/1] "------> false"
|
||
|
|
testZeroDivide value: [2/0] "------> true"
|