remove bench test
This commit is contained in:
parent
b483be8548
commit
7ec22489da
2 changed files with 0 additions and 25 deletions
2
bench
2
bench
|
@ -1,2 +0,0 @@
|
|||
#!/bin/sh
|
||||
perl -e 'print STDERR "blah\n" for 1..100; print STDERR "final\n"'
|
23
test.hs
23
test.hs
|
@ -1,23 +0,0 @@
|
|||
import Utility.Process
|
||||
import Data.Maybe
|
||||
import System.IO
|
||||
import Control.Concurrent.Async
|
||||
|
||||
main = do
|
||||
(Nothing, Nothing, Just h, p) <- createProcess $ (proc "./bench" [])
|
||||
{ std_err = CreatePipe }
|
||||
hSetNewlineMode h universalNewlineMode
|
||||
t <- async $ go h p
|
||||
exitcode <- waitForProcess p
|
||||
print ("process exited", exitcode)
|
||||
wait t
|
||||
where
|
||||
go h p = do
|
||||
eof <- hIsEOF h
|
||||
if eof
|
||||
then return ()
|
||||
else do
|
||||
l <- hGetLineUntilExitOrEOF p h
|
||||
print ("got line", l)
|
||||
go h p
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue