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