From bb7a705a183f5b41865d63c1364c40c18eaa7311 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sun, 4 Jun 2017 19:03:26 +0200 Subject: [PATCH] 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