Remove posix012
authorIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 14:49:37 +0000 (14:49 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 14:49:37 +0000 (14:49 +0000)
It relies on old signal-handling behaviour

testsuite/tests/lib/libposix/posix012.hs [deleted file]
testsuite/tests/lib/libposix/posix012.stdout [deleted file]

diff --git a/testsuite/tests/lib/libposix/posix012.hs b/testsuite/tests/lib/libposix/posix012.hs
deleted file mode 100644 (file)
index 87f002a..0000000
+++ /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 (file)
index e69de29..0000000