Fix diminishing minor modes when reloading libraries

1 files changed, 48 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" ]]
+}