From 9660a7a64c749e181d2114cc4b66a8aa4f88be0f Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 2 May 2014 20:01:46 +0200 Subject: update testsuite (mostly due Jesper Reenberg) Ignore-this: a5e926aa4e397e70d56e3c9db7108d5b * use quickcheck2 * run them using cabal's test-suite field * split up Properties into separate files darcs-hash:20140502180146-1499c-dc8c09c3ec76a42a0e146925adce960435dc81db.gz --- Main.hs | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index 5fe83f9..2fcfe13 100644 --- a/Main.hs +++ b/Main.hs @@ -27,10 +27,6 @@ import Data.Version (showVersion) import Graphics.X11.Xinerama (compiledWithXinerama) -#ifdef TESTING -import qualified Properties -#endif - -- | The entry point into xmonad. Attempts to compile any custom main -- for xmonad, and if it doesn't find one, just launches the default. main :: IO () @@ -47,9 +43,6 @@ main = do ["--restart"] -> sendRestart >> return () ["--version"] -> putStrLn $ unwords shortVersion ["--verbose-version"] -> putStrLn . unwords $ shortVersion ++ longVersion -#ifdef TESTING - ("--run-tests":_) -> Properties.main -#endif _ -> fail "unrecognized flags" where shortVersion = ["xmonad", showVersion version] @@ -68,9 +61,6 @@ usage = do " --recompile Recompile your ~/.xmonad/xmonad.hs" : " --replace Replace the running window manager with xmonad" : " --restart Request a running xmonad process to restart" : -#ifdef TESTING - " --run-tests Run the test suite" : -#endif [] -- | Build "~\/.xmonad\/xmonad.hs" with ghc, then execute it. If there are no -- cgit v1.2.3