From 06bc7755b5cf61403a0a06f0e004da7549c05984 Mon Sep 17 00:00:00 2001 From: Gabriel Omar Cotelli Date: Mon, 31 Oct 2022 17:23:27 -0300 Subject: [PATCH] Improve test portabiltiy so it also works in VAST --- .../ExceptionHandlingSystemTest.class.st | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/Buoy-Exception-Handling-Tests/ExceptionHandlingSystemTest.class.st b/source/Buoy-Exception-Handling-Tests/ExceptionHandlingSystemTest.class.st index 79ad1ea..7e569dd 100644 --- a/source/Buoy-Exception-Handling-Tests/ExceptionHandlingSystemTest.class.st +++ b/source/Buoy-Exception-Handling-Tests/ExceptionHandlingSystemTest.class.st @@ -34,7 +34,7 @@ ExceptionHandlingSystemTest >> testCatchingSetsOfExceptions [ | result | - result := [ 1 / 0 + Warning signal ] + result := [ ZeroDivide signal + Warning signal ] on: Warning , ZeroDivide do: [ :ex | ex resume: 1 ]. @@ -46,7 +46,7 @@ ExceptionHandlingSystemTest >> testCatchingSetsOfExceptionsWithHierarchy [ | result | - result := [ 1 / 0 + Warning signal ] + result := [ ZeroDivide signal + Warning signal ] on: Notification , Error do: [ :ex | ex resume: 1 ]. @@ -87,13 +87,13 @@ ExceptionHandlingSystemTest >> testExceptionSetsConcatenation [ | result | - result := [ 1 / 0 + Warning signal ] + result := [ ZeroDivide signal + Warning signal ] on: Warning , ZeroDivide , ( MessageNotUnderstood , Error ) do: [ :ex | ex resume: 1 ]. self assert: result equals: 2. - result := [ 1 / 0 + Warning signal ] + result := [ ZeroDivide signal + Warning signal ] on: MessageNotUnderstood , Error , ( Warning , ZeroDivide ) do: [ :ex | ex resume: 1 ].