testsuite: Make T229 less sensitive to exception context

tests/T229.hs

@@ -2,12 +2,13 @@
 
 #include "MachDeps.h"
 
+import Control.Exception
 import Data.Array.MArray
 import Data.Array.IO
 import Data.Word
 
 main :: IO ()
-main = do
+main = handle (\(exc :: SomeException) -> print exc) $ do
   -- This should fail due to integer overflow
 #if WORD_SIZE_IN_BITS == 64
   m <- newArray_ (0,2^62-1) :: IO (IOUArray Int Word32) -- allocates 0 bytes

tests/T229.stderr-ws-32

-T229: Data.Array.Base.safe_scale: Overflow; scale: 4, n: 1073741824
-CallStack (from HasCallStack):
-  error, called at libraries/array/Data/Array/Base.hs:1356:20 in array-0.5.1.2:Data.Array.Base
-
-Package: base
-Module: GHC.Exception
-Name: ErrorCall
\ No newline at end of file

tests/T229.stderr-ws-64

-T229: Data.Array.Base.safe_scale: Overflow; scale: 4, n: 4611686018427387904
-CallStack (from HasCallStack):
-  error, called at libraries/array/Data/Array/Base.hs:1356:20 in array-0.5.1.2:Data.Array.Base
-
-Package: base
-Module: GHC.Exception
-Name: ErrorCall
\ No newline at end of file

tests/T229.stdout

+Data.Array.Base.safe_scale: Overflow; scale: 4, n: 4611686018427387904
+CallStack (from HasCallStack):
+  error, called at libraries/array/Data/Array/Base.hs:1418:20 in array-0.5.6.0-inplace:Data.Array.Base

tests/all.T

@@ -6,4 +6,4 @@ test('array001', [
   compile_and_run, [''])
 
 test('T9220', filter_stdout_lines('.*type role .*'), ghci_script, ['T9220.script'])
-test('T229', [exit_code(1)], compile_and_run, [''])
+test('T229', normal, compile_and_run, [''])