X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=test%2FShellTestsNet.hs;fp=test%2FShellTestsNet.hs;h=0000000000000000000000000000000000000000;hb=006f90418a578308104b75362f0b595466900eed;hp=74acd737b0730021278335c8955e311ba82acb7d;hpb=bea923306878ccc5deb9e593aa6592550dcadad5;p=hath.git

diff --git a/test/ShellTestsNet.hs b/test/ShellTestsNet.hs
deleted file mode 100644
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