webpaste.el/tests/unit/test-webpaste-return-url.el

;;; test-webpaste-return-url.el --- Tests for webpaste
;;; Commentary:
;;; Code:

(load "tests/load-undercover.el")
(require 'webpaste)


(describe
 "Returning URLs to the user"

 (before-each
  (setq webpaste-return-url-hook nil)
  (spy-on 'message)
  (spy-on 'kill-new)
  (spy-on 'browse-url-generic))

 (it
  "can put in kill-ring and message the user"

  (webpaste--return-url "https://example.com/")

  (expect 'browse-url-generic :not :to-have-been-called)

  (expect 'message
          :to-have-been-called-with
          "Added %S to kill ring." "https://example.com/")

  (expect 'kill-new
          :to-have-been-called-with
          "https://example.com/"))

 (it
  "can open an external browser with the url"

  (let ((webpaste-open-in-browser t))
    (webpaste--return-url "https://example.com/")

    (expect 'browse-url-generic
            :to-have-been-called-with
            "https://example.com/")))

 (it
  "can append language on return"

  (let ((webpaste--provider-separators
         '(("https://example.com/" . "?lang=")))
        (webpaste--provider-lang-alists
         '(("https://example.com/" . ((lisp-interaction-mode . "lisp"))))))

    (spy-calls-reset 'kill-new)

    (webpaste--return-url "https://example.com/")

    (expect 'kill-new
            :to-have-been-called-with
            "https://example.com/?lang=lisp")))

 (it
  "can run user defined hooks"
  (add-hook 'webpaste-return-url-hook 'message)
  (add-hook 'webpaste-return-url-hook 'browse-url-generic)
  (let ((webpaste-copy-to-clipboard nil)
        (webpaste-add-to-killring nil)
        (webpaste-open-in-browser nil))
    (webpaste--return-url "https://example.com/")

    (expect 'message
            :to-have-been-called-with
            "https://example.com/")

    (expect 'browse-url-generic
            :to-have-been-called-with
            "https://example.com/"))))


;;; test-webpaste-return-url.el ends here