remove bench test

diff --git a/bench b/bench
deleted file mode 100755 (executable)
index 98f1e9e..0000000
--- a/bench
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/bin/sh
-perl -e 'print STDERR "blah\n" for 1..100; print STDERR "final\n"'

diff --git a/test.hs b/test.hs
deleted file mode 100644 (file)
index 9bda99a..0000000
--- a/test.hs
+++ /dev/null
@@ -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
-