Remove the "reversed" mode -- do one thing and do it well and all that.

[hath.git] / test / ShellTestsNet.hs

diff --git a/test/ShellTestsNet.hs b/test/ShellTestsNet.hs
deleted file mode 100644 (file)
index 74acd73..0000000
--- a/test/ShellTestsNet.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-module Main
-where
-
-import System.Process (
-   CreateProcess( env ),
-   createProcess,
-   shell,
-   waitForProcess )
-import System.Exit ( exitWith )
-
-main :: IO ()
-main = do
-  -- Get a CreateProcess object corresponding to our shell command.
-  let createproc = shell "shelltest test/shell-net/*.test"
-
-  -- But clear its environment before running the command.
-  let empty_env_createproc = createproc { env = Just [] }
-
-  -- Ignore stdin/stdout/stderr...
-  (_,_,_,hproc) <- createProcess empty_env_createproc
-
-  -- Now run the ProcessHandle and exit with its result.
-  result <- waitForProcess hproc
-  exitWith result