[nongnu] elpa/webpaste 7770c88 080/298: Added first unit test to detect a working provider

[ELPA Syncer]

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

    Added first unit test to detect a working provider
---
 test/webpaste-test.el | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/test/webpaste-test.el b/test/webpaste-test.el
index dfdbe06..c677cf9 100644
--- a/test/webpaste-test.el
+++ b/test/webpaste-test.el
@@ -5,5 +5,29 @@
 (require 'webpaste)
 
 
+(ert-deftest callback-from-working-provider ()
+  "This test just sends a message to a good provider that just works."
+
+  ;; Temporal storage for result
+  (let ((returned-result nil))
+    ;; Reset all webpaste variables
+    (setq-default webpaste-tested-providers nil)
+    (setq-default webpaste-provider-priority nil)
+
+    ;; Make a fake provider that just "returns" the paste result by setting a
+    ;; variable and concatinate it with "Works: " so we can see it showing up
+    (setq-default webpaste-providers-alist
+                  (list (list "workingprovider"
+                              (lambda (text)
+                                (setq returned-result
+                                      (concat "Works: " text))))))
+
+    ;; Call webpaste
+    (webpaste-paste-text "test-string")
+
+    ;; Check that we got the expected result
+    (should (string= returned-result "Works: test-string"))))
+
+
 (provide 'webpaste-test)
 ;;; webpaste-test.el ends here