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
|
module Main (main) where
import Process.Shell (sh)
import Test.Hspec (describe, hspec, it, shouldBe)
main :: IO ()
main = hspec do
describe "issue events" do
it "smoke" do
( `shouldBe`
concat
[ "<dirty> created issue 3\n",
"df7c026 created issue 1\n",
"55b493c deleted issue 1\n",
"618907d changed issue 1\n",
"618907d created issue 2\n",
"e95b4ec created issue 1"
]
)
. fst
=<< smokeScript "anissue log"
describe "issues" do
it "smoke" do
( `shouldBe`
concat
[ "issue 3 on 1970-01-01 by Jane Doe\n",
"\n",
"issue 2 on 1970-01-01 by Jane Doe\n",
"\n",
"issue 1 on 1970-01-01 by Jane Doe"
]
)
. fst
=<< smokeScript "anissue list"
smokeScript :: String -> IO (String, ())
smokeScript cmd = do
anissue :: String <- [sh|realpath dist-newstyle/build/*/*/anissue-*/x/anissue/build/anissue|]
[sh|
set -efu
PATH=#{anissue}${PATH+:$PATH}; export PATH
readonly tmp=$(mktemp -d)
trap 'rm -rf "$tmp"' EXIT
cd "$tmp"
(
GIT_AUTHOR_DATE="Thu Jan 1 00:00:00 1970 +0000"; export GIT_AUTHOR_DATE
GIT_AUTHOR_EMAIL="jane@example.com"; export GIT_AUTHOR_EMAIL
GIT_AUTHOR_NAME="Jane Doe"; export GIT_AUTHOR_NAME
GIT_COMMITTER_DATE="Thu Jan 1 00:00:00 1970 +0000"; export GIT_COMMITTER_DATE
GIT_COMMITTER_EMAIL="jane@example.com"; export GIT_COMMITTER_EMAIL
GIT_COMMITTER_NAME="Jane Doe"; export GIT_COMMITTER_NAME
git init --initial-branch=main
git config --local user.name "$GIT_AUTHOR_NAME"
git config --local user.email "$GIT_AUTHOR_EMAIL"
cat >main.hs <<'EOF'
module Main where
EOF
git add main.hs
git commit -m 'no issues'
cat >main.hs <<'EOF'
module Main where
-- TODO issue 1
EOF
git add main.hs
git commit -m 'create issue 1'
cat >main.hs <<'EOF'
module Main where
-- TODO issue 2
EOF
cat >lib.hs <<'EOF'
module Main where
-- TODO issue 1
--
-- remark: file modifications are not considered changes!
EOF
git add main.hs lib.hs
git commit -m 'create issue 2, modify issue 1'
cat >lib.hs <<'EOF'
module Main where
EOF
git add lib.hs
git commit -m 'close issue 1'
cat >lib.hs <<'EOF'
module Main where
-- TODO issue 1
--
-- remark: file changes are not considered changes!
EOF
git add main.hs lib.hs
git commit -m 'reopen issue 1'
cat >main.hs <<'EOF'
module Main where
-- TODO issue 2
-- TODO issue 3
EOF
) 1>/dev/null
FAKETIME='1970-01-01 00:00:00' eval '#{cmd}'|]
|
