haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added yesod test command

Browse Source
This commit is contained in:
Michael Snoyman 2012-04-25 07:20:03 +03:00
parent a4052b2784
commit 4120d16b64
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
yesod/main.hs
View File

@ -2,9 +2,10 @@
import Scaffolding.Scaffolder import Scaffolding.Scaffolder
import System.Environment (getArgs) import System.Environment (getArgs)
import System.Exit (exitWith) import System.Exit (exitWith, ExitCode (ExitSuccess))
import System.Process (rawSystem) import System.Process (rawSystem)
import Yesod.Core(yesodVersion) import Yesod.Core (yesodVersion)
import Control.Monad (unless)
#ifndef WINDOWS #ifndef WINDOWS
import Build (touch) import Build (touch)
@ -36,6 +37,11 @@ main = do
["touch"] -> touch ["touch"] -> touch
#endif #endif
"devel":rest -> devel isDev rest "devel":rest -> devel isDev rest
"test":_ -> do
touch
rawSystem' cmd ["configure", "--enable-tests", "-flibrary-only"]
rawSystem' cmd ["build"]
rawSystem' cmd ["test"]
["version"] -> putStrLn $ "yesod-core version:" ++ yesodVersion ["version"] -> putStrLn $ "yesod-core version:" ++ yesodVersion
"configure":rest -> rawSystem cmd ("configure":rest) >>= exitWith "configure":rest -> rawSystem cmd ("configure":rest) >>= exitWith
_ -> do _ -> do
@ -49,5 +55,12 @@ main = do
++ windowsWarning ++ windowsWarning
putStrLn " devel Run project with the devel server" putStrLn " devel Run project with the devel server"
putStrLn " use --dev devel to build with cabal-dev" putStrLn " use --dev devel to build with cabal-dev"
putStrLn " test Build and run the integration tests"
putStrLn " use --dev devel to build with cabal-dev"
putStrLn " version Print the version of Yesod" putStrLn " version Print the version of Yesod"
-- | Like @rawSystem@, but exits if it receives a non-success result.
rawSystem' :: String -> [String] -> IO ()
rawSystem' x y = do
res <- rawSystem x y
unless (res == ExitSuccess) $ exitWith res