From 4dd2e1b570a0044505cdc2e6879f14dd8ba2ce8f Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sat, 22 Apr 2017 11:31:20 +0200
Subject: [PATCH] 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."