diff --git a/test/plantuml-mode-test.el b/test/plantuml-mode-test.el index 4c95184..afcff0c 100644 --- a/test/plantuml-mode-test.el +++ b/test/plantuml-mode-test.el @@ -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 diff --git a/test/test-helper.el b/test/test-helper.el index 6e9026c..9fba3f7 100644 --- a/test/test-helper.el +++ b/test/test-helper.el @@ -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