Merge branch 'fix/51' into develop

.travis.yml

@@ -1,12 +1,11 @@
 language: emacs-lisp
 sudo: false
+env:
+  - EVM_EMACS=emacs-25.1-travis
 before_install:
   - curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > x.sh && source ./x.sh
   - evm install $EVM_EMACS --use --skip
   - cask
-env:
-#  - EVM_EMACS=emacs-24.5-travis
-  - EVM_EMACS=emacs-25.1-travis
 script:
   - emacs --version
   - make test

Makefile

@@ -1,5 +1,6 @@
 CASK ?= cask
 EMACS ?= emacs
+CASK_DIR ?= `${CASK} package-directory`
 
 all: test
 
@@ -15,4 +16,8 @@ unit:
 install:
 	${CASK} install
 
+clean:
+	rm -Rf .emacs.d
+	rm -Rf .cask
+
 .PHONY:	all test unit ecukes install

plantuml-mode.el

@@ -7,7 +7,6 @@
 ;; Maintainer: Carlo Sciolla (skuro)
 ;; Keywords: uml plantuml ascii
 ;; Version: 1.2.3
-;; Package-Requires: ((emacs "24"))
 
 ;; This file is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -86,8 +85,9 @@
 (defcustom plantuml-java-command "java"
   "The java command used to execute PlantUML.")
 
-(defcustom plantuml-java-args '("-Djava.awt.headless=true" "-jar")
-  "The parameters passed to `plantuml-java-command' when executing PlantUML.")
+(eval-and-compile
+  (defcustom plantuml-java-args '("-Djava.awt.headless=true" "-jar")
+    "The parameters passed to `plantuml-java-command' when executing PlantUML."))
 
 (defcustom plantuml-suppress-deprecation-warning t
   "To silence the deprecation warning when `puml-mode' is found upon loading.")

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

test/resources/init.el

@@ -0,0 +1,27 @@
+;; Used to test `plantuml-mode' installations
+
+(setq user-emacs-directory "./.emacs.d")
+
+(require 'subr-x)
+(setq local-repository
+      (concat
+       (string-trim (shell-command-to-string "cask package-directory"))
+       "/../testing"))
+(custom-set-variables `(package-archive-upload-base ,local-repository))
+
+(require 'package-x)
+(defun -package-upload (file)
+  (with-temp-buffer
+    (insert-file-contents file)
+    (let ((pkg-desc (package-buffer-info)))
+      (package-upload-buffer-internal pkg-desc "el"))))
+(-package-upload "plantuml-mode.el")
+
+(setq package-archives `(("local" . ,local-repository)))
+(package-initialize)
+
+(package-install 'plantuml-mode)
+(require 'plantuml-mode)
+
+(message
+ (concat "Successfully installed plantuml-mode v" plantuml-mode-version))

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