[project @ 2001-08-30 10:15:01 by rrt]

Make it work on Windows

testsuite/driver/CmdSyntax.hs

@@ -13,7 +13,8 @@ module CmdSyntax ( Var, MacroName, TestName, MacroDef(..),
 where
 
 import IO
-import System
+import System           ( getProgName, exitWith, ExitCode(..) )
+import KludgedSystem    ( system )
 
 ---------------------------------------------------------------------
 -- misc
@@ -28,8 +29,9 @@ die :: String -> IO a
 die s = do officialMsg s; exitWith (ExitFailure 1)
 
 my_system s
-   = do exit_code <- system s
-        --putStrLn (show exit_code)
+   = do -- putStr ("***" ++ s)
+	exit_code <- system s
+	-- putStrLn "ok"
         return exit_code
 
 isLeft (Left _)  = True

testsuite/driver/Main.hs

@@ -6,7 +6,7 @@ import CmdSemantics	( parseOneTFile, processParsedTFile )
 
 import GetOpt
 import Directory
-import System
+import System           ( getArgs )
 import List
 import Maybe		( isJust, fromJust )
 import Monad		( when )

testsuite/driver/Makefile

@@ -2,7 +2,7 @@ TOP = ..
 include $(TOP)/mk/boilerplate.mk
 
 RUNTESTS_SRCS= \
-	TopSort.hs CmdLexer.hs CmdParser.hs CmdSemantics.hs CmdSyntax.hs Main.hs \
+	TopSort.hs CmdLexer.hs CmdParser.hs CmdSemantics.hs CmdSyntax.hs KludgedSystem.hs Main.hs \
 	basicRxLib/AbsTreeDefs.hs basicRxLib/Assertions.hs  \
 	basicRxLib/AugTreeDefs.hs basicRxLib/AugmentTree.hs \
 	basicRxLib/BagRE.hs basicRxLib/CompileREP.hs \