[nongnu] elpa/webpaste 4dd2e1b 111/298: First test of creation of paste providers

[ELPA Syncer]

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

    First test of creation of paste providers
    
    Currently not testing failovers, but it tests failures without failovers.
---
 test/webpaste-test.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/test/webpaste-test.el b/test/webpaste-test.el
index 75de49a..8b54ced 100644
--- a/test/webpaste-test.el
+++ b/test/webpaste-test.el
@@ -7,6 +7,24 @@
 
 
 
+(ert-deftest webpaste-test/provider ()
+  "Test creation of providers."
+
+  (let ((success-lambda t)
+        (provider (webpaste-provider
+                   :uri "http://invalid-domain-name/";
+                   :post-field "data"
+                   :no-failover t
+                   :sync t
+                   :success (cl-function (lambda (&allow-other-keys)
+                                           (setq success-lambda nil))))))
+
+    (funcall provider "dummy-text")
+
+    (should (equal t success-lambda))))
+
+
+
 (ert-deftest webpaste-test/paste-region-and-buffer ()
   "Test pasting of regions and buffers."