1 files changed, 28 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/cgrun025.stderr b/testsuite/tests/codeGen/should_run/cgrun025.stderr
new file mode 100644
index 0000000000..a62fc44c04
--- /dev/null
+++ b/testsuite/tests/codeGen/should_run/cgrun025.stderr
@@ -0,0 +1,28 @@
+"cgrun025"
+["cgrun025.hs"]
+GOT PATH
+-- !!! test various I/O Requests
+--
+--
+import IO
+import System
+import Debug.Trace (trace)
+import Text.Regex
+import Maybe
+
+main = do
+    prog <- getProgName
+    let Just (name:_) = matchRegex (mkRegex ".*(cgrun025)") prog
+    hPutStr stderr (shows name "\n")
+    args <- getArgs
+    hPutStr stderr (shows args "\n")
+    path <- getEnv "PATH"
+    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")
+hello, trace
+cgrun025: hello, error