;;; plantuml-mode-preview-test.el --- PlantUML Mode preview tests   -*- lexical-binding: t; -*-

;; Author: Carlo Sciolla (skuro)
;; Maintainer: Carlo Sciolla (skuro)
;; URL: https://github.com/skuro/plantuml-mode

;;; Commentary:

;;; Code:

(defun assert-preview (puml output &optional format mode)
  (if format
      (setq plantuml-output-type format)
    (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))
  (sleep-for 3)
  (should (equal (format-preview-output (replace-regexp-in-string " " "~" (read-test-file output)))
                 (format-preview-output (replace-regexp-in-string " " "~" (read-preview-buffer))))))

(ert-deftest preview-txt-test ()
  (setq-local plantuml-jar-path plantuml-test-jar-path)
  (assert-preview "a-b.puml" "a-b.txt"))

;; for unknown reason, unicode preview brakes on ert-runner but works locally :-/
;;(ert-deftest preview-unicode-test ()
;;  (setq-local plantuml-jar-path plantuml-test-jar-path)
;;  (assert-preview "unicode.puml" "unicode.txt"))

(provide 'plantuml-mode-preview-test)

;;; plantuml-mode-preview-test.el ends here