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 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 test/integration/oni-company.bats

(limited to 'test/integration/oni-company.bats')

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" ]]
+}
-- 
cgit v1.2.3-54-g00ecf