1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
{-# LANGUAGE ScopedTypeVariables #-}
module Examples.Test.Command(main) where
import Development.Shake
import Examples.Util
main = shaken test $ \args obj -> do
want $ map obj args
let a !> b = obj a *> \out -> do alwaysRerun; res <- b; writeFile' out res
"ghc-version" !> do
Stdout stdout <- cmd "ghc --version"
return stdout
"ghc-random" !> do
(Stderr stderr, Exit _) <- cmd "ghc --random"
return stderr
"ghc-random2" !> do
() <- cmd (EchoStderr False) (Cwd $ obj "") "ghc --random"
return ""
"triple" !> do
(Exit exit, Stdout stdout, Stderr stderr) <- cmd "ghc --random"
return $ show (exit, stdout, stderr) -- must force all three parts
obj "pwd space.hs" *> \out -> writeFileLines out ["import System.Directory","main = putStrLn =<< getCurrentDirectory"]
"pwd" !> do
need [obj "pwd space.hs"]
Stdout out <- cmd (Cwd $ obj "") "runhaskell" ["pwd space.hs"]
return out
"env" !> do
(Exit _, Stdout out1) <- cmd (Env [("FOO","HELLO SHAKE")]) Shell "echo %FOO%"
(Exit _, Stdout out2) <- liftIO $ cmd (Env [("FOO","HELLO SHAKE")]) Shell "echo $FOO"
return $ unlines [out1, out2]
test build obj = do
let crash args parts = assertException parts (build $ "--quiet" : args)
build ["ghc-version"]
assertContentsInfix (obj "ghc-version") "The Glorious Glasgow Haskell Compilation System"
build ["ghc-random"]
assertContentsInfix (obj "ghc-random") "unrecognised flag"
assertContentsInfix (obj "ghc-random") "--random"
crash ["ghc-random2"] [obj "","unrecognised flag","--random"]
build ["pwd"]
assertContentsInfix (obj "pwd") "command"
build ["env","--no-lint"] -- since it blows away the $PATH, which is necessary for lint-tracker
assertContentsInfix (obj "env") "HELLO SHAKE"
build ["triple"]
|
