Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/330460c219bbdeeffcd4e508394d5acf5d6606ac >--------------------------------------------------------------- commit 330460c219bbdeeffcd4e508394d5acf5d6606ac Author: Ian Lynagh <[email protected]> Date: Sun Nov 20 13:39:42 2011 +0000 Remove posix007 It was an interactive test >--------------------------------------------------------------- tests/lib/libposix/posix007.hs | 34 ---------------------------------- 1 files changed, 0 insertions(+), 34 deletions(-) diff --git a/tests/lib/libposix/posix007.hs b/tests/lib/libposix/posix007.hs deleted file mode 100644 index 2e62820..0000000 --- a/tests/lib/libposix/posix007.hs +++ /dev/null @@ -1,34 +0,0 @@ -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 '@'))] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
