blob: ae11911697eb1416a5057e938dac007477259d56 (
plain)
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
|
module Main (main) where
import Process.Shell (sh)
import Test.Hspec (describe, hspec, it, shouldBe)
main :: IO ()
main = do
anissue :: String <- [sh|realpath dist-newstyle/build/*/*/anissue-*/x/anissue/build/anissue|]
hspec do
describe "issue events" do
it "smoke" do
( `shouldBe`
concat
[ "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 @String @()
=<< [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
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'
) 1>/dev/null
anissue log|]
|
