From 0b3db8fcddd9d5e67f5bf2517412fb3e036ffc03 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Wed, 28 Jun 2017 23:36:18 +0200
Subject: [PATCH] Add completion/company test

---
 init.test.el                               |  1 +
 modules/completion/company/test/company.el | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 modules/completion/company/test/company.el

diff --git a/init.test.el b/init.test.el
index f3741e8cb..555a84a44 100644
--- a/init.test.el
+++ b/init.test.el
@@ -3,5 +3,6 @@
 (require 'core (concat user-emacs-directory "core/core"))
 
 (doom! :feature evil
+       :completion company
        :tools password-store
        :private hlissner)
diff --git a/modules/completion/company/test/company.el b/modules/completion/company/test/company.el
new file mode 100644
index 000000000..de61d779f
--- /dev/null
+++ b/modules/completion/company/test/company.el
@@ -0,0 +1,22 @@
+;;; completion/company/test/company.el -*- lexical-binding: t; -*-
+
+(require! :completion company)
+(require 'company)
+
+(def-test! set-company-backend
+  (let ((default-backends (default-value 'company-backends)))
+    (set! :company-backend 'emacs-lisp-mode '(backend-1))
+    (set! :company-backend 'lisp-interaction-mode 'backend-1 'backend-2)
+    (set! :company-backend 'text-mode 'backend-1)
+    (with-temp-buffer
+      (emacs-lisp-mode)
+      (should (equal (car company-backends) '(backend-1))))
+    (with-temp-buffer
+      (lisp-interaction-mode)
+      (should (equal company-backends
+                     (append '(backend-1 backend-2) default-backends))))
+    (with-temp-buffer
+      (text-mode)
+      (should (eq (car company-backends) 'backend-1)))
+    ;; global backends shouldn't be affected
+    (should (equal company-backends default-backends))))