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