2020-04-08 20:16:00 +02:00
|
|
|
#!/usr/bin/env bats
|
|
|
|
|
|
|
|
@test "Opening emacs loads oni-gui" {
|
|
|
|
run emacs -batch -l package -f package-initialize \
|
|
|
|
-eval "(prin1 (featurep 'oni-gui))"
|
|
|
|
|
|
|
|
echo "$output"
|
|
|
|
|
|
|
|
[[ "$output" == *"t" ]]
|
|
|
|
}
|
|
|
|
|
|
|
|
@test "Opening emacs diminishes isearch-mode" {
|
|
|
|
run emacs -batch -l package -f package-initialize \
|
2020-04-09 08:48:56 +02:00
|
|
|
-eval "(prin1 (string= (string ?\s oni-gui-isearch-icon)
|
|
|
|
(car (alist-get 'isearch-mode minor-mode-alist))))"
|
2020-04-08 20:16:00 +02:00
|
|
|
|
|
|
|
echo "$output"
|
|
|
|
|
|
|
|
[[ "$output" == *"t" ]]
|
|
|
|
}
|
|
|
|
|
|
|
|
@test "Reloading isearch diminishes isearch-mode" {
|
|
|
|
run emacs -batch -l package -f package-initialize \
|
|
|
|
-eval "(load-library \"isearch\")" \
|
2020-04-09 08:48:56 +02:00
|
|
|
-eval "(prin1 (string= (string ?\s oni-gui-isearch-icon)
|
|
|
|
(car (alist-get 'isearch-mode minor-mode-alist))))"
|
2020-04-08 20:16:00 +02:00
|
|
|
|
|
|
|
echo "$output"
|
|
|
|
|
|
|
|
[[ "$output" == *"t" ]]
|
|
|
|
}
|