From 7ec22489da3be66182f89feb08867d8665ef909f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 18 Nov 2020 14:25:19 -0400 Subject: [PATCH] remove bench test --- bench | 2 -- test.hs | 23 ----------------------- 2 files changed, 25 deletions(-) delete mode 100755 bench delete mode 100644 test.hs 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 -