remove bench test

This commit is contained in:
Joey Hess 2020-11-18 14:25:19 -04:00
parent b483be8548
commit 7ec22489da
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 0 additions and 25 deletions

2
bench
View file

@ -1,2 +0,0 @@
#!/bin/sh
perl -e 'print STDERR "blah\n" for 1..100; print STDERR "final\n"'

23
test.hs
View file

@ -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