129 lines
4.8 KiB
EmacsLisp
129 lines
4.8 KiB
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; core/test/test-core.el
|
|
|
|
(describe "core"
|
|
:var (doom-interactive-mode)
|
|
(before-each
|
|
(setq doom-interactive-mode nil))
|
|
|
|
(describe "initialization"
|
|
(describe "doom-initialize"
|
|
:var (doom-init-p)
|
|
(before-each
|
|
(setq doom-init-p nil))
|
|
|
|
(it "initializes once"
|
|
(expect (doom-initialize))
|
|
(expect (not (doom-initialize)))
|
|
(expect (not (doom-initialize)))
|
|
(expect doom-init-p))
|
|
|
|
(it "initializes multiple times, if forced"
|
|
(expect (doom-initialize))
|
|
(expect (not (doom-initialize)))
|
|
(expect (doom-initialize 'force)))
|
|
|
|
(describe "package initialization"
|
|
(before-each
|
|
(spy-on 'doom-initialize-packages :and-return-value t))
|
|
|
|
(it "initializes packages if core autoload file doesn't exist"
|
|
(let ((doom-autoload-file "doesnotexist"))
|
|
(doom-initialize))
|
|
(expect 'doom-initialize-packages :to-have-been-called))
|
|
|
|
(it "doesn't initialize packages if core autoload file was loaded"
|
|
(let ((doom-interactive-mode t))
|
|
(spy-on 'doom-load-autoloads-file :and-return-value t)
|
|
(doom-initialize)
|
|
(expect 'doom-load-autoloads-file :to-have-been-called-with doom-package-autoload-file)
|
|
(expect 'doom-initialize-packages :to-have-been-called)))
|
|
|
|
(it "initializes packages when forced"
|
|
(doom-initialize 'force)
|
|
(expect 'doom-initialize-packages :to-have-been-called)))
|
|
|
|
(describe "autoloads files"
|
|
(before-each
|
|
(spy-on 'doom-load-autoloads-file)
|
|
(spy-on 'warn :and-return-value t))
|
|
|
|
(it "loads autoloads files"
|
|
(ignore-errors (doom-initialize))
|
|
(expect 'doom-load-autoloads-file
|
|
:to-have-been-called-with doom-autoload-file)
|
|
(expect 'doom-load-autoloads-file
|
|
:to-have-been-called-with doom-package-autoload-file))
|
|
|
|
(it "throws doom-autoload-error in interactive session where autoload files don't exist"
|
|
(let ((doom-interactive-mode t)
|
|
(doom-autoload-file "doesnotexist")
|
|
(doom-package-autoload-file "doesnotexist"))
|
|
(expect (doom-initialize) :to-throw 'doom-autoload-error)))))
|
|
|
|
(describe "doom-initialize-core"
|
|
(before-each
|
|
(spy-on 'require))
|
|
|
|
(it "loads all doom core libraries"
|
|
(doom-initialize-core)
|
|
(expect 'require :to-have-been-called-with 'core-keybinds)
|
|
(expect 'require :to-have-been-called-with 'core-ui)
|
|
(expect 'require :to-have-been-called-with 'core-projects)
|
|
(expect 'require :to-have-been-called-with 'core-editor))))
|
|
|
|
(describe "doom-load-autoloads-file"
|
|
:var (doom-autoload-file doom-alt-autoload-file result)
|
|
(before-each
|
|
(setq doom-autoload-file (make-temp-file "doom-autoload" nil ".el"))
|
|
(with-temp-file doom-autoload-file)
|
|
(byte-compile-file doom-autoload-file))
|
|
(after-each
|
|
(delete-file doom-autoload-file)
|
|
(delete-file (byte-compile-dest-file doom-autoload-file)))
|
|
|
|
(it "loads the byte-compiled autoloads file if available"
|
|
(doom-load-autoloads-file doom-autoload-file)
|
|
(expect (caar load-history) :to-equal-file
|
|
(byte-compile-dest-file doom-autoload-file))
|
|
|
|
(delete-file (byte-compile-dest-file doom-autoload-file))
|
|
(doom-load-autoloads-file doom-autoload-file)
|
|
(expect (caar load-history) :to-equal-file doom-autoload-file))
|
|
|
|
(it "returns non-nil if successful"
|
|
(expect (doom-load-autoloads-file doom-autoload-file)))
|
|
|
|
(it "returns nil on failure or error, non-fatally"
|
|
(expect (doom-load-autoloads-file "/does/not/exist") :to-be nil)))
|
|
|
|
(describe "doom-load-envvars-file"
|
|
:var (doom-env-file process-environment)
|
|
(before-each
|
|
(setq process-environment nil
|
|
doom-env-file (make-temp-file "doom-env"))
|
|
(with-temp-file doom-env-file
|
|
(insert "A=1\nB=2\nC=3\n")))
|
|
(after-each
|
|
(delete-file doom-env-file))
|
|
|
|
(it "throws a file-error if file doesn't exist"
|
|
(expect (doom-load-envvars-file "/tmp/envvardoesnotexist")
|
|
:to-throw 'file-error))
|
|
|
|
(it "to fail silently if NOERROR is non-nil"
|
|
(expect (doom-load-envvars-file "/tmp/envvardoesnotexist" 'noerror)
|
|
:not :to-throw))
|
|
|
|
(it "returns the new value for `process-environment'"
|
|
(expect (doom-load-envvars-file doom-env-file)
|
|
:to-have-same-items-as '("A" "B" "C")))
|
|
|
|
(it "alters environment variables"
|
|
(dolist (key '("A" "B" "C"))
|
|
(expect (getenv key) :not :to-be-truthy))
|
|
(expect (doom-load-envvars-file doom-env-file))
|
|
(expect (getenv "A") :to-equal "1")
|
|
(expect (getenv "B") :to-equal "2")
|
|
(expect (getenv "C") :to-equal "3"))))
|