[nongnu] elpa/webpaste 5c63d75 196/298: Added unit test for running hooks on return

[ELPA Syncer]

branch: elpa/webpaste
commit 5c63d75ab465ae8ba96ad16a8449e96334b3f18f
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    Added unit test for running hooks on return
---
 tests/unit/test-webpaste-return-url.el | 24 +++++++++++++++++++++++-
 webpaste.el                            |  1 +
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/tests/unit/test-webpaste-return-url.el 
b/tests/unit/test-webpaste-return-url.el
index 22056f4..85c1720 100644
--- a/tests/unit/test-webpaste-return-url.el
+++ b/tests/unit/test-webpaste-return-url.el
@@ -10,6 +10,7 @@
  "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)
@@ -69,8 +70,29 @@
 
     (expect 'message
             :to-have-been-called-with
-            "URL copied to clipboard."))))
+            "URL copied to clipboard.")))
 
+ (it
+  "can run user defined hooks"
+  (add-hook 'webpaste-return-url-hook 'message)
+  (add-hook 'webpaste-return-url-hook 'browse-url-generic)
+  (add-hook 'webpaste-return-url-hook 'simpleclip-set-contents)
+  (let ((webpaste-copy-to-clipboard nil)
+        (webpaste-add-to-killring nil)
+        (webpaste-open-in-browser nil))
+    (webpaste-return-url "https://example.com/";)
+
+    (expect 'simpleclip-set-contents
+            :to-have-been-called-with
+            "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
diff --git a/webpaste.el b/webpaste.el
index ae8fc8e..b7d49e4 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -79,6 +79,7 @@ This uses `simpleclip-set-contents' to copy to clipboard."
   :group 'webpaste
   :type 'boolean)
 
+
 (defcustom webpaste-return-url-hook nil
   "Hook executed with the returned url as parameter."
   :group 'webpaste