[project @ 1998-08-08 19:15:21 by sof]

previous commit, part 2

diff --git a/ghc/tests/io/should_run/po010.hs b/ghc/tests/io/should_run/po010.hs
deleted file mode 100644 (file)
index 86ef3e1..0000000
--- a/ghc/tests/io/should_run/po010.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-import Posix
-
-main =
-    getUserEntryForName "mattson" >>= \ mattson ->
-    getUserEntryForName "partain" >>= \ partain ->
-    putStr (ue2String mattson) >>
-    putChar '\n' >>    
-    putStr (ue2String partain) >>
-    putChar '\n' >>    
-    getUserEntryForID (userID mattson) >>= \ muid ->
-    getUserEntryForID (userID partain) >>= \ puid ->
-    putStr (ue2String muid) >>
-    putChar '\n' >>    
-    putStr (ue2String puid) >>
-    putChar '\n'
-
-ue2String ue =
-    name ++ (':' : (show uid) ++ (':' : (show gid) ++ (':' : home ++ (':' : shell))))
-  where
-    name = userName ue
-    uid = userID ue
-    gid = userGroupID ue
-    home = homeDirectory ue
-    shell = userShell ue

diff --git a/ghc/tests/io/should_run/po010.stdout b/ghc/tests/io/should_run/po010.stdout
deleted file mode 100644 (file)
index ec1d729..0000000
--- a/ghc/tests/io/should_run/po010.stdout
+++ /dev/null
@@ -1,4 +0,0 @@
-mattson:104:401:/users/fp/mattson:/bin/csh
-partain:184:401:/users/fp/partain:/usr/local/bin/tcsh
-mattson:104:401:/users/fp/mattson:/bin/csh
-partain:184:401:/users/fp/partain:/usr/local/bin/tcsh

diff --git a/ghc/tests/io/should_run/po011.hs b/ghc/tests/io/should_run/po011.hs
deleted file mode 100644 (file)
index f8baf1c..0000000
--- a/ghc/tests/io/should_run/po011.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)

diff --git a/ghc/tests/io/should_run/po011.stdout b/ghc/tests/io/should_run/po011.stdout
deleted file mode 100644 (file)
index 11b5df4..0000000
--- a/ghc/tests/io/should_run/po011.stdout
+++ /dev/null
@@ -1,4 +0,0 @@
-grasp:401:andre,andy,ap,areid,cvh,dm,dnt,gnik,grasp,hwloidl,jan,johan,jonathan,jtod,kh,laszlo,mattson,partain,sansom,satnam,sewardj,sharpkm,simonm,simonpj,sof,trinder,wadler,
-staff:9:aileen,alexa,ali,alison,andy,anne,ansftp,aran,arthur,audit,bill,botech,bw,carol,carron,cathy,conftp,cs2head,cvh,dam,darryn,daw,dcg,debbie,del,deptlib,dkm,dlg,dm,dnt,ellen,f131mgr,fabio,fairouz,faxback,fido,finance,fiona,footsie,george,gilbert,gilles,gsm,handbook,harrismi,helen,hme,hmg,huw,iain,id,igr,iii,imis-doc,imm,inei,infoman,ingres,inventdb,irfest,isabel,jacksonn,jacqui,james,janice,jej,jim,jl,jmm,johnson,jon,jstack,jtod,jwp,keith,kempj,kh,kieran,kimb,kirsten,kmssys,laurent,lewis,lisa,lizbeth,logiej,love,lyons,maclib,macneisd,margaret,mark,mary,mattson,meurig,mjj,mmi,monica,mossin,mpa,muffy,nk,norman,partain,pd,pdg,pete,pp,ps,quintin,rab,ray,rdm,reh,replib,rff,rffingres,rich,rios,rjw,rn,ron,ruffin,rwi,sanderso,sandy,sansom,satnam,sheila,sid,simonm,simonpj,slurry,softlib,stephen,steve,stevem,stuart,support,susan,tania,tech,teresa,tfm,tommyk,tracy,trinder,types,typesftp,wadler,wf,xadmin,
-grasp:401:andre,andy,ap,areid,cvh,dm,dnt,gnik,grasp,hwloidl,jan,johan,jonathan,jtod,kh,laszlo,mattson,partain,sansom,satnam,sewardj,sharpkm,simonm,simonpj,sof,trinder,wadler,
-staff:9:aileen,alexa,ali,alison,andy,anne,ansftp,aran,arthur,audit,bill,botech,bw,carol,carron,cathy,conftp,cs2head,cvh,dam,darryn,daw,dcg,debbie,del,deptlib,dkm,dlg,dm,dnt,ellen,f131mgr,fabio,fairouz,faxback,fido,finance,fiona,footsie,george,gilbert,gilles,gsm,handbook,harrismi,helen,hme,hmg,huw,iain,id,igr,iii,imis-doc,imm,inei,infoman,ingres,inventdb,irfest,isabel,jacksonn,jacqui,james,janice,jej,jim,jl,jmm,johnson,jon,jstack,jtod,jwp,keith,kempj,kh,kieran,kimb,kirsten,kmssys,laurent,lewis,lisa,lizbeth,logiej,love,lyons,maclib,macneisd,margaret,mark,mary,mattson,meurig,mjj,mmi,monica,mossin,mpa,muffy,nk,norman,partain,pd,pdg,pete,pp,ps,quintin,rab,ray,rdm,reh,replib,rff,rffingres,rich,rios,rjw,rn,ron,ruffin,rwi,sanderso,sandy,sansom,satnam,sheila,sid,simonm,simonpj,slurry,softlib,stephen,steve,stevem,stuart,support,susan,tania,tech,teresa,tfm,tommyk,tracy,trinder,types,typesftp,wadler,wf,xadmin,

diff --git a/ghc/tests/io/should_run/po012.hs b/ghc/tests/io/should_run/po012.hs
deleted file mode 100644 (file)
index 87f002a..0000000
--- a/ghc/tests/io/should_run/po012.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/ghc/tests/io/should_run/po012.stdout b/ghc/tests/io/should_run/po012.stdout
deleted file mode 100644 (file)
index e69de29..0000000