emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add completion/company test

Browse source
This commit is contained in:
Henrik Lissner 2017-06-28 23:36:18 +02:00
parent 0a34d8627e
commit 0b3db8fcdd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
modules/completion/company/test/company.el Normal file
View file

@ -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))))