Merge branch 'fix/51' into develop
This commit is contained in:
commit
3e017a1a3a
|
@ -1,12 +1,11 @@
|
||||||
language: emacs-lisp
|
language: emacs-lisp
|
||||||
sudo: false
|
sudo: false
|
||||||
|
env:
|
||||||
|
- EVM_EMACS=emacs-25.1-travis
|
||||||
before_install:
|
before_install:
|
||||||
- curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > x.sh && source ./x.sh
|
- curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > x.sh && source ./x.sh
|
||||||
- evm install $EVM_EMACS --use --skip
|
- evm install $EVM_EMACS --use --skip
|
||||||
- cask
|
- cask
|
||||||
env:
|
|
||||||
# - EVM_EMACS=emacs-24.5-travis
|
|
||||||
- EVM_EMACS=emacs-25.1-travis
|
|
||||||
script:
|
script:
|
||||||
- emacs --version
|
- emacs --version
|
||||||
- make test
|
- make test
|
||||||
|
|
5
Makefile
5
Makefile
|
@ -1,5 +1,6 @@
|
||||||
CASK ?= cask
|
CASK ?= cask
|
||||||
EMACS ?= emacs
|
EMACS ?= emacs
|
||||||
|
CASK_DIR ?= `${CASK} package-directory`
|
||||||
|
|
||||||
all: test
|
all: test
|
||||||
|
|
||||||
|
@ -15,4 +16,8 @@ unit:
|
||||||
install:
|
install:
|
||||||
${CASK} install
|
${CASK} install
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -Rf .emacs.d
|
||||||
|
rm -Rf .cask
|
||||||
|
|
||||||
.PHONY: all test unit ecukes install
|
.PHONY: all test unit ecukes install
|
||||||
|
|
|
@ -7,7 +7,6 @@
|
||||||
;; Maintainer: Carlo Sciolla (skuro)
|
;; Maintainer: Carlo Sciolla (skuro)
|
||||||
;; Keywords: uml plantuml ascii
|
;; Keywords: uml plantuml ascii
|
||||||
;; Version: 1.2.3
|
;; Version: 1.2.3
|
||||||
;; Package-Requires: ((emacs "24"))
|
|
||||||
|
|
||||||
;; This file is free software; you can redistribute it and/or modify
|
;; 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
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
@ -86,8 +85,9 @@
|
||||||
(defcustom plantuml-java-command "java"
|
(defcustom plantuml-java-command "java"
|
||||||
"The java command used to execute PlantUML.")
|
"The java command used to execute PlantUML.")
|
||||||
|
|
||||||
(defcustom plantuml-java-args '("-Djava.awt.headless=true" "-jar")
|
(eval-and-compile
|
||||||
"The parameters passed to `plantuml-java-command' when executing PlantUML.")
|
(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
|
(defcustom plantuml-suppress-deprecation-warning t
|
||||||
"To silence the deprecation warning when `puml-mode' is found upon loading.")
|
"To silence the deprecation warning when `puml-mode' is found upon loading.")
|
||||||
|
|
|
@ -12,6 +12,24 @@
|
||||||
(should (equal (expand-file-name "~/plantuml.jar")
|
(should (equal (expand-file-name "~/plantuml.jar")
|
||||||
plantuml-jar-path)))
|
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)
|
(provide 'plantuml-mode-test)
|
||||||
|
|
||||||
;;; plantuml-mode-test.el ends here
|
;;; plantuml-mode-test.el ends here
|
||||||
|
|
|
@ -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))
|
|
@ -32,6 +32,9 @@
|
||||||
(defun read-test-file (path)
|
(defun read-test-file (path)
|
||||||
(f-read (f-join plantuml-test-resources-path path) 'utf-8))
|
(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
|
;;; test-helper.el ends here
|
||||||
|
|
Loading…
Reference in New Issue