blob: 3282b9e15b5360e031cbc723306785184a9d1657 (
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
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
125
126
127
128
129
130
131
132
133
134
|
#!/usr/bin/env bats
# Tests for the helpers in scripts/setup-telega.sh.
#
# Sources the script (so only the helpers come in -- `main' runs only
# when the script is executed directly) and stubs `docker' / `command'
# in each test so nothing actually talks to the docker daemon or
# requires a real telega-server image.
setup() {
source "${BATS_TEST_DIRNAME}/../scripts/setup-telega.sh"
}
# --------------------------- ensure_docker_installed ----------------------
@test "ensure_docker_installed: succeeds when docker is on PATH" {
command() {
if [[ "$1" == "-v" && "$2" == "docker" ]]; then
echo "/usr/bin/docker"
return 0
fi
builtin command "$@"
}
run ensure_docker_installed
[ "$status" -eq 0 ]
[[ "$output" == *"docker present"* ]]
}
@test "ensure_docker_installed: fails when docker is missing" {
command() {
if [[ "$1" == "-v" && "$2" == "docker" ]]; then
return 1
fi
builtin command "$@"
}
run ensure_docker_installed
[ "$status" -eq 1 ]
[[ "$output" == *"docker not found"* ]]
[[ "$output" == *"get-docker"* ]]
}
# --------------------------- ensure_docker_running ------------------------
@test "ensure_docker_running: succeeds when 'docker info' exits 0" {
docker() { return 0; }
run ensure_docker_running
[ "$status" -eq 0 ]
[[ "$output" == *"reachable"* ]]
}
@test "ensure_docker_running: fails when 'docker info' errors" {
docker() { return 1; }
run ensure_docker_running
[ "$status" -eq 1 ]
[[ "$output" == *"cannot talk"* ]]
[[ "$output" == *"docker group"* || "$output" == *"systemctl"* ]]
}
# --------------------------- pull_or_announce_image -----------------------
@test "pull_or_announce_image: announces the in-Emacs build when no image is set" {
TELEGA_DOCKER_IMAGE=""
run pull_or_announce_image
[ "$status" -eq 0 ]
[[ "$output" == *"M-x telega-server-build"* ]]
}
@test "pull_or_announce_image: pulls when TELEGA_DOCKER_IMAGE is set" {
TELEGA_DOCKER_IMAGE="example/telega:1"
docker() {
if [[ "$1" == "pull" ]]; then
echo "pulling $2"
return 0
fi
return 1
}
run pull_or_announce_image
[ "$status" -eq 0 ]
[[ "$output" == *"pulled example/telega:1"* ]]
}
@test "pull_or_announce_image: fails when 'docker pull' errors" {
TELEGA_DOCKER_IMAGE="example/telega:1"
docker() { return 1; }
run pull_or_announce_image
[ "$status" -eq 1 ]
[[ "$output" == *"pull failed"* ]]
}
# --------------------------- ensure_telega_package ------------------------
@test "ensure_telega_package: fails when emacs is missing" {
command() {
if [[ "$1" == "-v" && "$2" == "emacs" ]]; then
return 1
fi
builtin command "$@"
}
run ensure_telega_package
[ "$status" -eq 1 ]
[[ "$output" == *"emacs not on PATH"* ]]
}
@test "ensure_telega_package: skips when telega already installed" {
# Stub emacs so the first --batch probe (package-installed-p) exits 0.
emacs() { return 0; }
export -f emacs
run ensure_telega_package
[ "$status" -eq 0 ]
[[ "$output" == *"already installed"* ]]
}
@test "ensure_telega_package: installs when telega not yet present" {
# First call (probe) returns 1 "not installed"; second call (install) returns 0.
emacs() {
if [[ "$*" == *"package-installed-p"* ]]; then
return 1
fi
return 0
}
export -f emacs
run ensure_telega_package
[ "$status" -eq 0 ]
[[ "$output" == *"telega installed"* ]]
}
@test "ensure_telega_package: reports failure when install fails" {
# Both calls return non-zero so the install path errors.
emacs() { return 1; }
export -f emacs
run ensure_telega_package
[ "$status" -eq 1 ]
[[ "$output" == *"install failed"* ]]
[[ "$output" == *"M-x package-install"* ]]
}
|
