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

Move unit tests from ert to buttercup

Browse source 
Easier to organize and write. Now I can hopefully strive for better
coverage!
This commit is contained in:
Henrik Lissner 2018-06-15 03:31:54 +02:00
parent 98d2f1de3f
commit eaca8c58fa
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
41 changed files with 1371 additions and 1101 deletions
Download patch file Download diff file Expand all files Collapse all files

21
modules/completion/company/test/company.el
View file

@ -1,21 +0,0 @@
;; -*- lexical-binding: t; no-byte-compile: t; -*-
;;; completion/company/test/company.el
;;
(def-test! set-company-backend
:minor-mode company-mode
(let ((company-backends '(default)))
(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 company-backends '((backend-1) default))))
(with-temp-buffer
(lisp-interaction-mode)
(should (equal company-backends '(backend-1 backend-2 default))))
(with-temp-buffer
(text-mode)
(should (equal company-backends '(backend-1 default))))
;; global backends shouldn't be affected
(should (equal company-backends '(default)))))

44
modules/completion/company/test/test-company.el Normal file
View file

@ -0,0 +1,44 @@
;; -*- lexical-binding: t; no-byte-compile: t; -*-
;;; completion/company/test/test-company.el
(load! "../autoload")
;;
(xdescribe "completion/company"
:var (company-backends)
(before-all
(provide 'company))
(after-all
(unload-feature 'company t))
(describe ":company-backend"
:var (text-mode-hook company-backends)
(before-each
(setq company-backends '(default)
text-mode-hook nil))
(it "adds grouped backends"
(set-company-backend! 'text-mode '(backend-1))
(with-temp-buffer
(text-mode)
(expect company-backends :to-equal '((backend-1) default))))
(it "adds multiple backends"
(set-company-backend! 'text-mode 'backend-1 'backend-2)
(with-temp-buffer
(text-mode)
(expect company-backends :to-equal '(backend-1 backend-2 default))))
(it "adds single backend"
(set-company-backend! 'text-mode 'backend-1)
(with-temp-buffer
(text-mode)
(expect company-backends :to-equal '(backend-1 default))))
(it "overwrites past values"
(set-company-backend! 'text-mode 'backend-1)
(set-company-backend! 'text-mode 'backend-2)
(with-temp-buffer
(text-mode)
(expect company-backends :to-equal '(backend-2 default))))))