Bulletproof the test suite and examples; version bump the cabal file.

[hath.git] / test / ShellTestsNet.hs

diff --git a/test/ShellTestsNet.hs b/test/ShellTestsNet.hs
index 7e3a95efee4c42c9864f0f0639566478a5a48f90..74acd737b0730021278335c8955e311ba82acb7d 100644 (file)
--- a/test/ShellTestsNet.hs
+++ b/test/ShellTestsNet.hs
@@ -1,10 +1,24 @@
 module Main
 where
 
-import System.Process ( system )
+import System.Process (
+   CreateProcess( env ),
+   createProcess,
+   shell,
+   waitForProcess )
 import System.Exit ( exitWith )
 
 main :: IO ()
 main = do
-  result <- system "shelltest test/shell-net/*.test"
+  -- 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