diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-11-20 14:49:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-11-20 14:49:37 +0000 |
| commit | 28e2ccb3567f0daef1030fd9f0466a33b14b4bd8 (patch) | |
| tree | dac08bac584ff187a59ef78cd2b1fac4f42abc0b /testsuite/tests | |
| parent | ec98be29ca54748d5f9925ab65261bd5917b4e08 (diff) | |
| download | haskell-28e2ccb3567f0daef1030fd9f0466a33b14b4bd8.tar.gz | |
Remove posix012
It relies on old signal-handling behaviour
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/lib/libposix/posix012.hs | 59 | ||||
| -rw-r--r-- | testsuite/tests/lib/libposix/posix012.stdout | 0 |
2 files changed, 0 insertions, 59 deletions
diff --git a/testsuite/tests/lib/libposix/posix012.hs b/testsuite/tests/lib/libposix/posix012.hs deleted file mode 100644 index 87f002a6cd..0000000000 --- a/testsuite/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/testsuite/tests/lib/libposix/posix012.stdout b/testsuite/tests/lib/libposix/posix012.stdout deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/lib/libposix/posix012.stdout +++ /dev/null |