Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1dee9e50e9b077028f8fec3ab2ca3a591a9688f1 >--------------------------------------------------------------- commit 1dee9e50e9b077028f8fec3ab2ca3a591a9688f1 Author: Ian Lynagh <[email protected]> Date: Sun Nov 20 14:49:37 2011 +0000 Remove posix012 It relies on old signal-handling behaviour >--------------------------------------------------------------- tests/lib/libposix/posix012.hs | 59 ------------------------------------ 1 files changed, 0 insertions(+), 59 deletions(-) diff --git a/tests/lib/libposix/posix012.hs b/tests/lib/libposix/posix012.hs deleted file mode 100644 index 87f002a..0000000 --- a/tests/lib/libposix/posix012.hs +++ /dev/null @@ -1,59 +0,0 @@ -import Posix -import IO -- 1.3 - -main = - createFile "po012.out" stdFileMode >>= \ fd -> - installHandler processStatusChanged (Catch (reap1 fd)) Nothing >> - ls >> - awaitSignal Nothing - -ls = - runProcess "ls" ["-l"] Nothing Nothing Nothing Nothing Nothing - -reap1 fd = - hPutStrLn stderr "Reaper1" >> - getAnyProcessStatus True False >> - installHandler processStatusChanged (Catch (reap2 fd)) Nothing >> - fdWrite fd (take 666 (repeat 'x')) >> - ls >> - awaitSignal Nothing - -reap2 fd = - hPutStrLn stderr "Reaper2" >> - getAnyProcessStatus True False >> - installHandler processStatusChanged (Catch (reap3 fd)) Nothing >> - setFileMode "po012.out" - (foldr1 unionFileModes [ownerReadMode,ownerWriteMode,groupReadMode,otherReadMode]) >> - ls >> - awaitSignal Nothing - -reap3 fd = - hPutStrLn stderr "Reaper3" >> - getAnyProcessStatus True False >> - installHandler processStatusChanged (Catch (reap4 fd)) Nothing >> - setFileTimes "po012.out" 0 0 >> - ls >> - awaitSignal Nothing - -reap4 fd = - hPutStrLn stderr "Reaper4" >> - getAnyProcessStatus True False >> - installHandler processStatusChanged (Catch (reap5 fd)) Nothing >> - --removeLink "po012.out" >> - ls >> - awaitSignal Nothing - -reap5 fd = - hPutStrLn stderr "Reaper5" >> - getAnyProcessStatus True False >> - fdSeek fd SeekFromEnd 0 >>= \ bytes -> - if bytes == 666 then - fdSeek fd AbsoluteSeek 0 >> - hPutStrLn stderr "Reaper5" >> - fdRead fd 666 >>= \ (str, _) -> - if str == (take 666 (repeat 'x')) then - putStr "Okay\n" - else - putStr "Read failed\n" - else - putStr "Seek returned wrong size\n" diff --git a/tests/lib/libposix/posix012.stdout b/tests/lib/libposix/posix012.stdout deleted file mode 100644 index e69de29..0000000 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
