30 lines
755 B
Text
30 lines
755 B
Text
|
#!/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 \
|
||
|
|
-eval "(prin1 (string= \" \" (car (alist-get 'isearch-mode minor-mode-alist))))"
|
||
|
|
|
||
|
|
echo "$output"
|
||
|
|
|
||
|
|
[[ "$output" == *"t" ]]
|
||
|
|
}
|
||
|
|
|
||
|
|
@test "Reloading isearch diminishes isearch-mode" {
|
||
|
|
run emacs -batch -l package -f package-initialize \
|
||
|
|
-eval "(load-library \"isearch\")" \
|
||
|
|
-eval "(prin1 (string= \" \" (car (alist-get 'isearch-mode minor-mode-alist))))"
|
||
|
|
|
||
|
|
echo "$output"
|
||
|
|
|
||
|
|
[[ "$output" == *"t" ]]
|
||
|
|
}
|