[nongnu] elpa/webpaste 6b0043b 181/298: Added integration tests for dpaste.de

[ELPA Syncer]

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

    Added integration tests for dpaste.de
---
 tests/integration/test-webpaste-providers.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/integration/test-webpaste-providers.el 
b/tests/integration/test-webpaste-providers.el
index 3fbf7c1..bf11f8c 100644
--- a/tests/integration/test-webpaste-providers.el
+++ b/tests/integration/test-webpaste-providers.el
@@ -75,6 +75,19 @@
      :sync t)
 
     (expect (spy-calls-count 'webpaste-return-url) :to-equal 1)
+    (expect (spy-calls-count 'webpaste-paste-text) :to-equal 0)))
+
+
+ (it
+  "can paste with dpaste.de"
+
+  (let ((provider (cadr (assoc "dpaste.de" 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))))