Still trying to make tests use JAR exec mode
This commit is contained in:
parent
33b8e4529d
commit
4ca0e386a3
|
@ -8,10 +8,13 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(defun assert-preview (puml output &optional format)
|
(defun assert-preview (puml output &optional format mode)
|
||||||
(if format
|
(if format
|
||||||
(setq plantuml-output-type format)
|
(setq plantuml-output-type format)
|
||||||
(setq plantuml-output-type "txt"))
|
(setq plantuml-output-type "txt"))
|
||||||
|
(if mode
|
||||||
|
(setq plantuml-exec-mode mode)
|
||||||
|
(setq plantuml-exec-mode 'jar))
|
||||||
(plantuml-preview-string 42 (read-test-file puml))
|
(plantuml-preview-string 42 (read-test-file puml))
|
||||||
(sleep-for 3)
|
(sleep-for 3)
|
||||||
(should (equal (format-preview-output (replace-regexp-in-string " " "~" (read-test-file output)))
|
(should (equal (format-preview-output (replace-regexp-in-string " " "~" (read-test-file output)))
|
||||||
|
|
Loading…
Reference in New Issue