[nongnu] elpa/webpaste bb7a705 184/298: Added unit test for simpleclip feature

[ELPA Syncer]

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

    Added unit test for simpleclip feature
---
 tests/unit/test-webpaste-return-url.el | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/tests/unit/test-webpaste-return-url.el 
b/tests/unit/test-webpaste-return-url.el
index ad55749..aaf9b36 100644
--- a/tests/unit/test-webpaste-return-url.el
+++ b/tests/unit/test-webpaste-return-url.el
@@ -12,7 +12,8 @@
  (before-each
   (spy-on 'message)
   (spy-on 'kill-new)
-  (spy-on 'browse-url-generic))
+  (spy-on 'browse-url-generic)
+  (spy-on 'simpleclip-set-contents))
 
  (it
   "can put in kill-ring and message the user"
@@ -53,7 +54,23 @@
 
     (expect 'kill-new
             :to-have-been-called-with
-            "https://example.com/?lang=lisp";))))
+            "https://example.com/?lang=lisp";)))
+
+ (it
+  "can put contents in clipboard using simpleclip"
+  (let ((webpaste/copy-to-clipboard t)
+        (webpaste/webpaste/add-to-killring 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
+            "URL copied to clipboard."))))
+
 
 
 ;;; test-webpaste-return-url.el ends here