diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-19 10:12:15 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-19 10:12:15 +0100 |
commit | c8e06176657afde2170bfd0800f56df6bf9d7981 (patch) | |
tree | be1ed30b751f6d589eb67eaf1840a379f691aa33 /Main.hs | |
parent | 33f724f49a802d979d420ef8dc9bde8e063ceea9 (diff) | |
download | xmonad-c8e06176657afde2170bfd0800f56df6bf9d7981.tar.gz xmonad-c8e06176657afde2170bfd0800f56df6bf9d7981.tar.xz xmonad-c8e06176657afde2170bfd0800f56df6bf9d7981.zip |
Roll testing into the main executable, use Cabal to build the tests
darcs-hash:20080119091215-a5988-8f5f48e8c40a0f39abdf6ffe4d4dc938ab8c7ef1.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -22,6 +22,10 @@ import System.Info import System.Environment import System.Posix.Process (executeFile) +#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 () @@ -34,6 +38,9 @@ main = do ["--recompile"] -> recompile False >> return () ["--recompile-force"] -> recompile True >> return () ["--version"] -> putStrLn "xmonad 0.5" +#ifdef TESTING + ("--run-tests":_) -> Properties.main +#endif _ -> fail "unrecognized flags" -- | Build "~/.xmonad/xmonad.hs" with ghc, then execute it. If there are no |