Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/568f4288e8ca903267028be26891db9c25ecbf2a >--------------------------------------------------------------- commit 568f4288e8ca903267028be26891db9c25ecbf2a Author: Ian Lynagh <[email protected]> Date: Sun Nov 20 01:20:43 2011 +0000 Remove posix001 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. >--------------------------------------------------------------- tests/lib/libposix/posix001.hs | 24 ------------------------ tests/lib/libposix/posix001.stdout | 4 ---- 2 files changed, 0 insertions(+), 28 deletions(-) diff --git a/tests/lib/libposix/posix001.hs b/tests/lib/libposix/posix001.hs deleted file mode 100644 index ed20df7..0000000 --- a/tests/lib/libposix/posix001.hs +++ /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/tests/lib/libposix/posix001.stdout b/tests/lib/libposix/posix001.stdout deleted file mode 100644 index c9cd245..0000000 --- a/tests/lib/libposix/posix001.stdout +++ /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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
