[nongnu] elpa/webpaste 0c814bc 179/298: Added integration test for sprunge.us

[ELPA Syncer]

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

    Added integration test for sprunge.us
---
 tests/integration/test-webpaste-providers.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/tests/integration/test-webpaste-providers.el 
b/tests/integration/test-webpaste-providers.el
index 78b3059..d6cf00a 100644
--- a/tests/integration/test-webpaste-providers.el
+++ b/tests/integration/test-webpaste-providers.el
@@ -49,7 +49,20 @@
             :to-equal
             (make-spy-context :current-buffer (current-buffer)
                               :args '("http://ix.io/whJ";)
-                              :return-value nil)))))
+                              :return-value nil))))
+
+
+ (it
+  "can paste with sprunge.us"
+
+  (let ((provider (cadr (assoc "sprunge.us" webpaste-providers-alist))))
+    (funcall
+     provider
+     ";; This is a build artifact made from an integration test for 
https://github.com/etu/webpaste.el";
+     :sync t)
+
+    (expect (spy-calls-count 'webpaste-return-url) :to-equal 1)
+    (expect (spy-calls-count 'webpaste-paste-text) :to-equal 0))))
 
 
 ;;; test-webpaste-providers.el ends here