03022d09f9
This naming convention was meant to be for batch commands, but it grew to include "commands that were helpful with managing Doom", but many of these commands shouldn't be interactive in the first place!
57 lines
1.9 KiB
EmacsLisp
57 lines
1.9 KiB
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; core/test/test-core.el
|
|
|
|
(xdescribe "core"
|
|
(describe "initialize"
|
|
:var (doom-init-p doom-init-modules-p doom-private-dir)
|
|
(before-each
|
|
(setq doom-init-p nil
|
|
doom-init-modules-p nil
|
|
doom-private-dir doom-emacs-dir)
|
|
|
|
(spy-on 'require)
|
|
(spy-on 'load)
|
|
(spy-on 'doom-reload-doom-autoloads)
|
|
(spy-on 'doom-reload-package-autoloads)
|
|
(spy-on 'doom-initialize-autoloads)
|
|
(spy-on 'doom-ensure-core-directories)
|
|
(spy-on 'doom-ensure-core-packages)
|
|
(spy-on 'doom-ensure-packages-initialized)
|
|
(spy-on 'doom-ensure-same-emacs-version-p))
|
|
|
|
(describe "in interactive session"
|
|
:var (noninteractive)
|
|
(before-each (setq noninteractive t))
|
|
|
|
(it "initializes once, unless forced")
|
|
(it "does not initialize on consecutive invokations")
|
|
(it "loads all core libraries" )
|
|
(it "loads autoloads file" )
|
|
(it "does not load autoloads file if forced" )
|
|
(it "regenerates missing autoloads" ))
|
|
|
|
(describe "in non-interactive session"
|
|
:var (noninteractive)
|
|
(before-each (setq noninteractive nil))
|
|
|
|
(it "initializes once, unless forced")
|
|
(it "does not initialize on consecutive invokations")
|
|
(it "does not load all core libraries" )
|
|
(it "loads autoloads file" )
|
|
(it "does not load autoloads file if forced" )
|
|
(it "does not regenerate missing autoloads" )))
|
|
|
|
(describe "initialize-packages"
|
|
(before-each (spy-on 'quelpa-setup-p))
|
|
|
|
(it "initializes package.el once, unless forced" )
|
|
(it "initializes quelpa once, unless forced" )
|
|
(it "initializes doom-packages once, unless forced" ))
|
|
|
|
(describe "initialize-modules"
|
|
(it "loads private init.el once, unless forced" ))
|
|
|
|
(describe "initialize-autoloads"
|
|
(it "loads autoloads file" )
|
|
(it "ignores autoloads file if cleared" )))
|