#50 switch output type when needed
This commit is contained in:
parent
8daf8e24fa
commit
e671431ee1
|
@ -8,7 +8,10 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(defun assert-preview (puml output)
|
(defun assert-preview (puml output &optional format)
|
||||||
|
(if format
|
||||||
|
(setq plantuml-output-type format)
|
||||||
|
(setq plantuml-output-type "utxt"))
|
||||||
(plantuml-preview-string 42 (read-test-file puml))
|
(plantuml-preview-string 42 (read-test-file puml))
|
||||||
(sleep-for 3)
|
(sleep-for 3)
|
||||||
(should (equal (replace-regexp-in-string " " "~" (read-test-file output))
|
(should (equal (replace-regexp-in-string " " "~" (read-test-file output))
|
||||||
|
|
Loading…
Reference in New Issue