Added test for failover to the second provider and not random

test/webpaste-test.el

@@ -29,5 +29,57 @@
     (should (string= returned-result "Works: test-string"))))
 
 
+(ert-deftest callback-from-working-provider-as-fallback ()
+  "This test sends a message to a bad provider that returns some error data.
+
+Then the bad provider pastes again like it should and we check that we got the
+result from the good provider only."
+
+  ;; 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 two broken providers that "returns" the result by setting the
+    ;; variable and then failover.
+    ;; Also make two working providers that returns different messages so the
+    ;; test can detect which provider was used easily.
+    (setq-default webpaste-providers-alist
+                  (list (list "brokenprovider1"
+                              (lambda (text)
+                                ;; Set return text
+                                (setq returned-result
+                                      (concat "Broken1: " text))
+
+                                ;; Call paste again
+                                (webpaste-paste-text text)))
+
+                        (list "workingprovider1"
+                              (lambda (text)
+                                (setq returned-result
+                                      (concat "Works1: " text))))
+
+                        (list "workingprovider2"
+                              (lambda (text)
+                                (setq returned-result
+                                      (concat "Works2: " text))))
+
+                        (list "brokenprovider2"
+                              (lambda (text)
+                                ;; Set return text
+                                (setq returned-result
+                                      (concat "Broken2: " text))
+
+                                ;; Call paste again
+                                (webpaste-paste-text text)))))
+
+    ;; Call webpaste
+    (webpaste-paste-text "test-string")
+
+    ;; Check that we got the expected result
+    (should (string= returned-result "Works1: test-string"))))
+
+
 (provide 'webpaste-test)
 ;;; webpaste-test.el ends here