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

Fix problem with some other tests stopping to work. 

* Use let to set variables for plantuml-test-indent-block-with-tabs
This commit is contained in:
mtoboid 2021-06-17 12:22:57 +02:00
parent 87b3c1ed0d
commit d32e9acec6
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/test-helper.el
View File

@ -81,21 +81,22 @@ will be indented with one tab for each level of indentation.
Finally, the indented text in the buffer will be compared with AFTER."
(with-temp-buffer
;; fix the JAR location prior to mode initialization
;; for some reason, plantuml-mode disregards the setq-local
(setq plantuml-jar-path plantuml-test-jar-path)
(plantuml-init-once 'jar)
;; ensure that plantuml-indent-level is the default value 8
(let ((indent-tabs-mode t)
(plantuml-indent-level 8)
;; fix the JAR location prior to mode initialization
;; for some reason, plantuml-mode disregards the setq-local
(plantuml-jar-path plantuml-test-jar-path))
(insert before)
(goto-char (point-min))
(plantuml-mode)
;; ensure that plantuml-indent-level is the default value 8
(setq indent-tabs-mode t)
(setq plantuml-indent-level 8)
(with-temp-buffer
(plantuml-init-once 'jar)
(indent-region (point-min) (point-max))
(should (equal (buffer-string) after))))
(insert before)
(goto-char (point-min))
(plantuml-mode)
(indent-region (point-min) (point-max))
(should (equal (buffer-string) after)))))
;; enable code coverage
(when (require 'undercover nil t)