[nongnu] elpa/webpaste 6a02ff9 185/298: Added tests for error lambdas and failovers

[ELPA Syncer]

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

    Added tests for error lambdas and failovers
---
 tests/unit/test-webpaste-error-lambdas.el | 45 +++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/tests/unit/test-webpaste-error-lambdas.el 
b/tests/unit/test-webpaste-error-lambdas.el
new file mode 100644
index 0000000..7891c7c
--- /dev/null
+++ b/tests/unit/test-webpaste-error-lambdas.el
@@ -0,0 +1,45 @@
+;;; test-webpaste-error-lambdas.el --- Tests for error lambdas
+;;; Commentary:
+;;; Code:
+
+(load "tests/load-undercover.el")
+(require 'webpaste)
+
+
+(describe
+ "Create lambdas to use on failures, "
+
+ (before-each
+  (spy-on 'webpaste-paste-text)
+  (spy-on 'message))
+
+ (it
+  "with fallback"
+
+  (let ((error-lambda (webpaste/providers-error-lambda :text "my text")))
+    (funcall error-lambda :error-thrown "my error")
+
+    (expect 'message
+            :to-have-been-called-with
+            "Got error: %S"
+            "my error")
+
+    (expect 'webpaste-paste-text
+            :to-have-been-called-with
+            "my text")))
+
+ (it
+  "without fallback"
+  (let ((error-lambda (webpaste/providers-error-lambda-no-failover :text "my 
text")))
+    (funcall error-lambda :error-thrown "my error")
+
+    (expect 'message
+            :to-have-been-called-with
+            "Got error: %S"
+            "my error")
+
+    (expect 'webpaste-paste-text
+            :not :to-have-been-called))))
+
+
+;;; test-webpaste-error-lambdas.el ends here