diff options
author | Tom Willemse | 2020-04-08 11:16:00 -0700 |
---|---|---|
committer | Tom Willemse | 2020-04-08 11:16:00 -0700 |
commit | df4d188d3f0bbaffeef0e474de5581e714fdcc23 (patch) | |
tree | b27fb8b215eb2d37e9994a5e50c8c0c55c097157 /test | |
parent | 2cfd2013b98fcd04834fbd6d4addd85045642afc (diff) | |
download | emacs-config-df4d188d3f0bbaffeef0e474de5581e714fdcc23.tar.gz emacs-config-df4d188d3f0bbaffeef0e474de5581e714fdcc23.zip |
Fix diminishing minor modes when reloading libraries
Diffstat (limited to 'test')
-rw-r--r-- | test/integration/oni-company.bats | 48 | ||||
-rw-r--r-- | test/integration/oni-counsel.bats | 32 | ||||
-rw-r--r-- | test/integration/oni-gui.bats | 29 | ||||
-rw-r--r-- | test/integration/oni-ivy.bats | 48 | ||||
-rw-r--r-- | test/integration/oni-paredit.bats | 32 | ||||
-rw-r--r-- | test/integration/oni-yasnippet.bats | 29 |
6 files changed, 218 insertions, 0 deletions
diff --git a/test/integration/oni-company.bats b/test/integration/oni-company.bats new file mode 100644 index 0000000..edb135a --- /dev/null +++ b/test/integration/oni-company.bats @@ -0,0 +1,48 @@ +#!/usr/bin/env bats + +@test "Opening Emacs loads oni-company" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (featurep 'oni-company))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Opening Emacs diminishes company-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (string-empty-p (car (alist-get 'company-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading company diminishes company-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(load-library \"company\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'company-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Opening Emacs diminishes company-posframe-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (string-empty-p (car (alist-get 'company-posframe-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading company-posframe diminishes company-posframe-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(load-library \"company-posframe\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'company-posframe-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} diff --git a/test/integration/oni-counsel.bats b/test/integration/oni-counsel.bats new file mode 100644 index 0000000..99050b5 --- /dev/null +++ b/test/integration/oni-counsel.bats @@ -0,0 +1,32 @@ +#!/usr/bin/env bats + +@test "Loading counsel loads oni-counsel" { + run emacs -batch -l package -f package-initialize \ + -l counsel \ + -eval "(prin1 (featurep 'oni-counsel))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Loading counsel diminishes counsel-mode" { + run emacs -batch -l package -f package-initialize \ + -l counsel \ + -eval "(prin1 (string-empty-p (car (alist-get 'counsel-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading counsel diminishes counsel-mode" { + run emacs -batch -l package -f package-initialize \ + -l counsel \ + -eval "(load-library \"counsel\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'counsel-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} diff --git a/test/integration/oni-gui.bats b/test/integration/oni-gui.bats new file mode 100644 index 0000000..1731faa --- /dev/null +++ b/test/integration/oni-gui.bats @@ -0,0 +1,29 @@ +#!/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" ]] +} diff --git a/test/integration/oni-ivy.bats b/test/integration/oni-ivy.bats new file mode 100644 index 0000000..df68095 --- /dev/null +++ b/test/integration/oni-ivy.bats @@ -0,0 +1,48 @@ +#!/usr/bin/env bats + +@test "Opening emacs loads oni-ivy" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (featurep 'oni-ivy))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Opening emacs diminishes ivy-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (string-empty-p (car (alist-get 'ivy-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading ivy diminishes ivy-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(load-library \"ivy\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'ivy-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Opening emacs diminishes ivy-posframe-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (string-empty-p (car (alist-get 'ivy-posframe-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading ivy-posframe diminishes ivy-posframe-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(load-library \"ivy-posframe\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'ivy-posframe-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} diff --git a/test/integration/oni-paredit.bats b/test/integration/oni-paredit.bats new file mode 100644 index 0000000..63b36a8 --- /dev/null +++ b/test/integration/oni-paredit.bats @@ -0,0 +1,32 @@ +#!/usr/bin/env bats + +@test "Loading paredit loads oni-paredit" { + run emacs -batch -l package -f package-initialize \ + -l paredit \ + -eval "(prin1 (featurep 'oni-paredit))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Loading paredit diminishes paredit-mode" { + run emacs -batch -l package -f package-initialize \ + -l paredit \ + -eval "(prin1 (string-empty-p (car (alist-get 'paredit-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading paredit diminishes paredit-mode" { + run emacs -batch -l package -f package-initialize \ + -l paredit \ + -eval "(load-library \"paredit\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'paredit-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} diff --git a/test/integration/oni-yasnippet.bats b/test/integration/oni-yasnippet.bats new file mode 100644 index 0000000..4784cb8 --- /dev/null +++ b/test/integration/oni-yasnippet.bats @@ -0,0 +1,29 @@ +#!/usr/bin/env bats + +@test "Opening Emacs loads oni-yasnippet" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (featurep 'oni-yasnippet))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Opening Emacs diminishes yas-minor-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(prin1 (string-empty-p (car (alist-get 'yas-minor-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} + +@test "Reloading yasnippet diminishes yas-minor-mode" { + run emacs -batch -l package -f package-initialize \ + -eval "(load-library \"yasnippet\")" \ + -eval "(prin1 (string-empty-p (car (alist-get 'yas-minor-mode minor-mode-alist))))" + + echo "$output" + + [[ "$output" == *"t" ]] +} |