From 9e613bf4fb5cf67c0c2229d07b4b5df919b86578 Mon Sep 17 00:00:00 2001 From: sof Date: Sat, 8 Aug 1998 19:15:26 +0000 Subject: [PATCH] [project @ 1998-08-08 19:15:21 by sof] previous commit, part 2 --- ghc/tests/io/should_run/po010.hs | 24 -------------- ghc/tests/io/should_run/po010.stdout | 4 --- ghc/tests/io/should_run/po011.hs | 22 ------------- ghc/tests/io/should_run/po011.stdout | 4 --- ghc/tests/io/should_run/po012.hs | 59 ---------------------------------- 5 files changed, 113 deletions(-) delete mode 100644 ghc/tests/io/should_run/po010.hs delete mode 100644 ghc/tests/io/should_run/po010.stdout delete mode 100644 ghc/tests/io/should_run/po011.hs delete mode 100644 ghc/tests/io/should_run/po011.stdout delete mode 100644 ghc/tests/io/should_run/po012.hs delete mode 100644 ghc/tests/io/should_run/po012.stdout diff --git a/ghc/tests/io/should_run/po010.hs b/ghc/tests/io/should_run/po010.hs deleted file mode 100644 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 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 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 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 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 index e69de29..0000000 -- 1.7.10.4