Remove posix001
authorIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 01:20:43 +0000 (01:20 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 01:20:43 +0000 (01:20 +0000)
It doesn't look like we've ever run it, I'm not sure exactly what it
was supposed to test, and it looks like it relies on a particular form
of "ps" output.

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

diff --git a/testsuite/tests/lib/libposix/posix001.hs b/testsuite/tests/lib/libposix/posix001.hs
deleted file mode 100644 (file)
index ed20df7..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-module Main(main) where
-
-import Posix
-
-main :: IO ()
-main = do
-    ppid <- getParentProcessID
-    pid  <- getProcessID
-    putStr "Parent Process ID: "
-    print ppid
-    putStr "Process ID: "
-    print pid
-    putStr "forking ps ux"
-    print ppid
-    child <- forkProcess
-    case child of
-       Nothing -> executeFile "ps" True ["ux" ++ show ppid] Nothing
-       Just x -> doParent x pid
-
-doParent cpid pid = do
-    getProcessStatus True False cpid
-    putStr "\nChild finished.  Now exec'ing ps ux\n"
-    print pid
-    executeFile "ps" True ["ux" ++ show pid] Nothing
diff --git a/testsuite/tests/lib/libposix/posix001.stdout b/testsuite/tests/lib/libposix/posix001.stdout
deleted file mode 100644 (file)
index c9cd245..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-USER       PID %CPU %MEM  SIZE   RSS TTY STAT START   TIME COMMAND
-sof      30160  0.0  0.2  1244   648  p0 S   15:09   0:00 /bin/sh -c ./posix001
-USER       PID %CPU %MEM  SIZE   RSS TTY STAT START   TIME COMMAND
-sof      30161  0.0  0.1   892   336  p0 R   15:09   0:00 ps ux30161