[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / posix / posix011.hs

diff --git a/ghc/tests/lib/posix/posix011.hs b/ghc/tests/lib/posix/posix011.hs
deleted file mode 100644 (file)
index f8baf1c..0000000
--- a/ghc/tests/lib/posix/posix011.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-import Posix
-
-main =
-    getGroupEntryForName "grasp" >>= \ grasp ->
-    getGroupEntryForName "staff" >>= \ staff ->
-    putStr (ge2String grasp) >>
-    putChar '\n' >>    
-    putStr (ge2String staff) >>
-    putChar '\n' >>    
-    getGroupEntryForID (groupID grasp) >>= \ guid ->
-    getGroupEntryForID (groupID staff) >>= \ suid ->
-    putStr (ge2String guid) >>
-    putChar '\n' >>    
-    putStr (ge2String suid) >>
-    putChar '\n'
-
-ge2String ge =
-    name ++ (':' : (show gid) ++ (':' : members))
-  where
-    name = groupName ge
-    gid = groupID ge
-    members = foldr (\x y -> x ++ (',' : y)) "" (groupMembers ge)