emacs
/
plantuml-mode
mirror of https://github.com/skuro/plantuml-mode.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Start investigating #51

This commit is contained in:
Carlo Sciolla 2017-07-07 21:18:37 +02:00
parent 1c3a5f53ff
commit 1011229c85
No known key found for this signature in database
GPG Key ID: BA5D71E6F3C580C1
2 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/plantuml-mode-test.el
View File

@ -12,6 +12,24 @@
(should (equal (expand-file-name "~/plantuml.jar")
plantuml-jar-path)))
(ert-deftest can-unload-plantuml ()
(unload-feature 'plantuml-mode t)
(should (eq nil (boundp 'plantuml-jar-path)))
(load-plantuml-mode)
(should (not (eq nil (boundp 'plantuml-jar-path)))))
(ert-deftest debug-install-issues ()
(unload-feature 'plantuml-mode t)
(condition-case nil
(require 'package)
(add-to-list 'package-archives
'("melpa" . "https://melpa.milkbox.net/packages/"))
(package-install "plantuml-mode")
(unload-feature 'plantuml-mode t))
(load-plantuml-mode))
(provide 'plantuml-mode-test)
;;; plantuml-mode-test.el ends here

5
test/test-helper.el
View File

@ -32,6 +32,9 @@
(defun read-test-file (path)
(f-read (f-join plantuml-test-resources-path path) 'utf-8))
(require 'plantuml-mode (f-expand "plantuml-mode.el" package-code-path))
(defun load-plantuml-mode ()
(require 'plantuml-mode (f-expand "plantuml-mode.el" package-code-path)))
(load-plantuml-mode)
;;; test-helper.el ends here