[project @ 2001-08-22 11:45:06 by sewardj]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg025.hs

diff --git a/ghc/tests/codeGen/should_run/cg025.hs b/ghc/tests/codeGen/should_run/cg025.hs
index 6b2a820..dae4827 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg025.hs
+++ b/ghc/tests/codeGen/should_run/cg025.hs
@@ -1,21 +1,23 @@
---!!! test various I/O Requests
+-- !!! test various I/O Requests
 --
 --
 import IO
 import System
-import IOBase (trace)
---import Trace ToDo: get this via GlaExts -- SOF
+import IOExts (trace)
+import RegexString
+import Maybe
 
 main = do
     prog <- getProgName
-    hPutStr stderr (shows prog "\n")
+    let Just (name:_) = matchRegex (mkRegex ".*(cg025.bin)") prog
+    hPutStr stderr (shows name "\n")
     args <- getArgs
     hPutStr stderr (shows args "\n")
     path <- getEnv "PATH"
-    hPutStr stderr (shows path "\n")
+    hPutStr stderr ("GOT PATH\n")
     stdin_txt <- getContents
     putStr stdin_txt
     file_cts <- readFile (head args)
     hPutStr  stderr file_cts
     trace "hello, trace" $
-      catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error\n")
+      catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error")