From df4d188d3f0bbaffeef0e474de5581e714fdcc23 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 8 Apr 2020 11:16:00 -0700 Subject: Fix diminishing minor modes when reloading libraries --- test/integration/oni-company.bats | 48 +++++++++++++++++++++++++++++++++++++ test/integration/oni-counsel.bats | 32 +++++++++++++++++++++++++ test/integration/oni-gui.bats | 29 ++++++++++++++++++++++ test/integration/oni-ivy.bats | 48 +++++++++++++++++++++++++++++++++++++ test/integration/oni-paredit.bats | 32 +++++++++++++++++++++++++ test/integration/oni-yasnippet.bats | 29 ++++++++++++++++++++++ 6 files changed, 218 insertions(+) create mode 100644 test/integration/oni-company.bats create mode 100644 test/integration/oni-counsel.bats create mode 100644 test/integration/oni-gui.bats create mode 100644 test/integration/oni-ivy.bats create mode 100644 test/integration/oni-paredit.bats create mode 100644 test/integration/oni-yasnippet.bats (limited to 'test/integration') 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" ]] +} -- cgit v1.2.3-54-g00ecf