From 3989806b07b98a1f468d8027dbe2df206791c96f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 23 Jan 1999 17:54:43 +0000
Subject: [PATCH] [project @ 1999-01-23 17:54:42 by sof] Updated to work with
 current sources

---
 ghc/tests/lib/should_run/Makefile         |    6 +++++-
 ghc/tests/lib/should_run/dynamic001.hs    |    2 +-
 ghc/tests/lib/should_run/exceptions001.hs |    2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ghc/tests/lib/should_run/Makefile b/ghc/tests/lib/should_run/Makefile
index cfe7880..0afbdc1 100644
--- a/ghc/tests/lib/should_run/Makefile
+++ b/ghc/tests/lib/should_run/Makefile
@@ -1,5 +1,5 @@
 #-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.9 1999/01/18 15:44:44 simonm Exp $
+# $Id: Makefile,v 1.10 1999/01/23 17:54:42 sof Exp $
 
 TOP = ../..
 include $(TOP)/mk/boilerplate.mk
@@ -12,6 +12,10 @@ exceptions001_HC_OPTS   = -fglasgow-exts -fno-warn-missing-methods
 stableptr002_HC_OPTS    = -fglasgow-exts
 list001_HC_OPTS         = -fglasgow-exts
 
+enum01_HC_OPTS		= -cpp -fglasgow-exts -H12m
+enum02_HC_OPTS		= -cpp -fglasgow-exts -H12m
+enum03_HC_OPTS		= -cpp -fglasgow-exts -H12m
+
 stableptr001_RUNTEST_OPTS = +RTS -K4m
 dynamic001_HC_OPTS = -syslib exts
 
diff --git a/ghc/tests/lib/should_run/dynamic001.hs b/ghc/tests/lib/should_run/dynamic001.hs
index 8126cbe..9da1bb5 100644
--- a/ghc/tests/lib/should_run/dynamic001.hs
+++ b/ghc/tests/lib/should_run/dynamic001.hs
@@ -1,4 +1,4 @@
---!!! Dynamic library tests
+-- !!! Dynamic library regression tests
 module Main(main) where
 
 import Dynamic
diff --git a/ghc/tests/lib/should_run/exceptions001.hs b/ghc/tests/lib/should_run/exceptions001.hs
index 5afa536..4e28e94 100644
--- a/ghc/tests/lib/should_run/exceptions001.hs
+++ b/ghc/tests/lib/should_run/exceptions001.hs
@@ -13,7 +13,7 @@ main = do
   dynTest
 
 ioTest :: IO ()
-ioTest = catchIO justIoErrors (fail (userError "wibble")) 
+ioTest = catchIO justIoErrors (ioError (userError "wibble")) 
 	   (\ex -> if isUserError ex then putStr "io exception caught\n" 
 				     else error "help!")
 
-- 
1.7.10.4