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:
parent
87b3c1ed0d
commit
d32e9acec6
|
@ -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
|
||||
;; 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
|
||||
(setq plantuml-jar-path plantuml-test-jar-path)
|
||||
(plantuml-jar-path plantuml-test-jar-path))
|
||||
|
||||
(with-temp-buffer
|
||||
(plantuml-init-once 'jar)
|
||||
|
||||
(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)
|
||||
|
||||
(indent-region (point-min) (point-max))
|
||||
(should (equal (buffer-string) after))))
|
||||
(should (equal (buffer-string) after)))))
|
||||
|
||||
;; enable code coverage
|
||||
(when (require 'undercover nil t)
|
||||
|
|
Loading…
Reference in New Issue