2017-04-06 09:43:14 +08:00
|
|
|
;;; ../test/modules/feature/test-evil.el
|
|
|
|
|
|
|
|
|
|
(require! :feature evil t)
|
|
|
|
|
|
|
|
|
|
(def-test-group! feature/evil
|
2017-04-12 22:52:26 +08:00
|
|
|
:disabled t
|
2017-04-06 09:43:14 +08:00
|
|
|
(ert-deftest custom-file-modifiers ()
|
|
|
|
|
(let ((buffer-file-name "~/.emacs.d/test/modules/feature/test-evil.el")
|
|
|
|
|
(default-directory "~/.emacs.d/test/modules"))
|
|
|
|
|
(should (equal (+evil*ex-replace-special-filenames "%") "feature/test-evil.el"))
|
|
|
|
|
(should (equal (+evil*ex-replace-special-filenames "%:r") "feature/test-evil"))
|
|
|
|
|
(should (equal (+evil*ex-replace-special-filenames "%:e") "el"))
|
|
|
|
|
;; TODO :h
|
|
|
|
|
;; TODO :t
|
|
|
|
|
;; TODO :.
|
|
|
|
|
;; TODO :~
|
|
|
|
|
;; TODO :s
|
|
|
|
|
;; TODO :S
|
|
|
|
|
(should (equal (+evil*ex-replace-special-filenames "%:P") (doom-project-root)))
|
|
|
|
|
(should (equal (file-truename (+evil*ex-replace-special-filenames "%:p"))
|
|
|
|
|
(file-truename buffer-file-name))))))
|
