diff --git a/bench b/bench
deleted file mode 100755
index 98f1e9eda5..0000000000
--- 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
index 9bda99a1c7..0000000000
--- 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
-