ghc/tests/codeGen/should_run/cg025.hs

   1 -- !!! test various I/O Requests
   2 --
   3 --
   4 import IO
   5 import System
   6 import IOExts (trace)
   7 import RegexString
   8 import Maybe
   9
  10 main = do
  11     prog <- getProgName
  12     let Just (name:_) = matchRegex (mkRegex ".*(cg025.bin)") prog
  13     hPutStr stderr (shows name "\n")
  14     args <- getArgs
  15     hPutStr stderr (shows args "\n")
  16     path <- getEnv "PATH"
  17     hPutStr stderr ("GOT PATH\n")
  18     stdin_txt <- getContents
  19     putStr stdin_txt
  20     file_cts <- readFile (head args)
  21     hPutStr  stderr file_cts
  22     trace "hello, trace" $
  23       catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error")