RosettaCodeData/Task/Detect-division-by-zero/Smalltalk/detect-division-by-zero-2.st

testZeroDivide :=
    [:aBlock |
	[
            aBlock value.
            false
        ] on: ZeroDivide do: [true].
    ].

"Testing"
testZeroDivide value: [2/1] "------> false"
testZeroDivide value: [2/0] "------> true"