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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
module Examples.Test.Basic(main) where
import Development.Shake
import Development.Shake.FilePath
import Examples.Util
import System.Directory as IO
import Data.List
import Data.Maybe
main = shaken test $ \args obj -> do
want $ map (\x -> fromMaybe (obj x) $ stripPrefix "!" x) args
obj "AB.txt" *> \out -> do
need [obj "A.txt", obj "B.txt"]
text1 <- readFile' $ obj "A.txt"
text2 <- readFile' $ obj "B.txt"
writeFile' out $ text1 ++ text2
obj "twice.txt" *> \out -> do
let src = obj "once.txt"
need [src, src]
copyFile' src out
obj "once.txt" *> \out -> do
src <- readFile' $ obj "zero.txt"
writeFile' out src
phony "halfclean" $ do
removeFilesAfter (obj "") ["//*e.txt"]
phony "cleaner" $ do
removeFilesAfter (obj "") ["//*"]
phony (obj "configure") $ do
liftIO $ appendFile (obj "configure") "1"
phony "install" $ do
need [obj "configure",obj "once.txt"]
liftIO $ appendFile (obj "install") "1"
phony "dummy" $ do
liftIO $ appendFile (obj "dummy") "1"
obj "dummer.txt" *> \out -> do
need ["dummy","dummy"]
need ["dummy"]
liftIO $ appendFile out "1"
r <- newResource ".log file" 1
obj "*.par" *> \out -> do
let trace x = withResource r 1 $ liftIO $ appendFile (takeDirectory out </> ".log") x
trace "["
liftIO $ sleep 0.1
trace "]"
writeFile' out out
test build obj = do
writeFile (obj "A.txt") "AAA"
writeFile (obj "B.txt") "BBB"
build ["AB.txt","--sleep"]
assertContents (obj "AB.txt") "AAABBB"
appendFile (obj "A.txt") "aaa"
build ["AB.txt"]
assertContents (obj "AB.txt") "AAAaaaBBB"
writeFile (obj "zero.txt") "xxx"
build ["twice.txt","--sleep"]
assertContents (obj "twice.txt") "xxx"
writeFile (obj "zero.txt") "yyy"
build ["once.txt","--sleep"]
assertContents (obj "twice.txt") "xxx"
assertContents (obj "once.txt") "yyy"
writeFile (obj "zero.txt") "zzz"
build ["once.txt","twice.txt","--sleep"]
assertContents (obj "twice.txt") "zzz"
assertContents (obj "once.txt") "zzz"
removeFile $ obj "twice.txt"
build ["twice.txt"]
assertContents (obj "twice.txt") "zzz"
show shakeOptions === show shakeOptions
build ["!halfclean"]
b <- IO.doesDirectoryExist (obj "")
assert b "Directory should exist, cleaner should not have removed it"
build ["!cleaner"]
sleep 1 -- sometimes takes a while for the file system to notice
b <- IO.doesDirectoryExist (obj "")
assert (not b) "Directory should not exist, cleaner should have removed it"
IO.createDirectory $ obj ""
writeFile (obj "zero.txt") ""
build ["configure"]
build ["!install"]
build ["!install"]
assertContents (obj "configure") "111"
assertContents (obj "install") "11"
writeFile (obj "dummy.txt") ""
build ["!dummy"]
assertContents (obj "dummy") "1"
build ["!dummy"]
assertContents (obj "dummy") "11"
build ["!dummy","!dummy"]
assertContents (obj "dummy") "111"
writeFile (obj "dummer.txt") ""
build ["dummer.txt"]
assertContents (obj "dummer.txt") "1"
build ["dummer.txt"]
assertContents (obj "dummer.txt") "11"
build ["1.par","2.par","-j1"]
assertContents (obj ".log") "[][]"
writeFile (obj ".log") ""
build ["3.par","4.par","-j2"]
assertContents (obj ".log") "[[]]"
writeFile (obj ".log") ""
build ["5.par","6.par","-j0"] -- all machines have at least 2 processors nowadays
assertContents (obj ".log") "[[]]"
|
