Fix diminishing minor modes when reloading libraries

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" ]]
+}