Move tests from tests/ghc-regress/* to just tests/*

1 files changed, 34 insertions, 0 deletions

diff --git a/testsuite/tests/lib/libposix/posix007.hs b/testsuite/tests/lib/libposix/posix007.hs
new file mode 100644
index 0000000000..2e62820511
--- /dev/null
+++ b/testsuite/tests/lib/libposix/posix007.hs
@@ -0,0 +1,34 @@
+import Posix
+
+-- This test is an example of where something more sophisticated than runstdtest
+-- is required, as its interactive.
+
+main = do
+    installHandler keyboardSignal (Catch doCtrlC) Nothing
+    ta  <- getTerminalAttributes stdInput
+    case (controlChar ta Interrupt) of
+      Nothing -> fixMe ta
+      Just x  -> continue x
+
+fixMe ta = do
+    putStr "Oops...no interrupt character?\nI can fix that...\n"
+    setTerminalAttributes stdInput (withCC ta (Interrupt, '\ETX')) Immediately
+    ta   <- getTerminalAttributes stdInput
+    case (controlChar ta Interrupt) of
+      Nothing -> putStr "...Then again, maybe I can't\n"
+      Just x -> continue x
+
+continue x =
+    putStr "Press '"
+    putStr (ccStr x)
+    putStr "'.\n"
+    awaitSignal Nothing
+    putStr "How did I get here?\n"
+
+doCtrlC =
+    putStr "Caught an interrupt.\n"
+
+ccStr '\DEL' = "^?"
+ccStr x 
+  | x >= ' ' = [x]
+  | otherwise = ['^', (toEnum (fromEnum x + fromEnum '@'))]