From 7b84568217c7ae884ca4eb3d5d610b691a48bf09 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Mon, 15 May 2017 17:52:02 +0200
Subject: [PATCH] Avoid setq's in favor of let

---
 test/webpaste-test.el | 46 ++++++++++++++++++-------------------------
 1 file changed, 19 insertions(+), 27 deletions(-)

diff --git a/test/webpaste-test.el b/test/webpaste-test.el
index bf49352..0a46445 100644
--- a/test/webpaste-test.el
+++ b/test/webpaste-test.el
@@ -117,27 +117,21 @@
 (ert-deftest webpaste-test/get-provider-priority ()
   "Test how it populates webpaste/get-provider-priority."
 
-  ;;; Test autopopulation of list based on providers avaliable
-  ;; Prepare variables
-  (setq-default webpaste-provider-priority nil)
-  (setq-default webpaste-providers-alist
-                `(("provider1" "lambda")
-                  ("provider2" "lambda")
-                  ("provider3" "lambda")))
-
-  ;; Do test
-  (should (equal (webpaste/get-provider-priority)
-                 '("provider1" "provider2" "provider3")))
+  ;; Test autopopulation of list based on providers avaliable
+  (let ((webpaste-provider-priority nil)
+        (webpaste-providers-alist '(("provider1" . "lambda")
+                                    ("provider2" . "lambda")
+                                    ("provider3" . "lambda"))))
+    ;; Do test
+    (should (equal (webpaste/get-provider-priority)
+                   '("provider1" "provider2" "provider3"))))
 
   ;;; Test static population of provider priority
-  ;; Prepare variables
-  (setq-default webpaste-provider-priority
-                '("provider2" "provider1" "provider3"))
-  (setq-default webpaste-providers-alist '())
-
-  ;; Do test
-  (should (equal (webpaste/get-provider-priority)
-                 '("provider2" "provider1" "provider3"))))
+  (let ((webpaste-provider-priority '("provider2" "provider1" "provider3"))
+        (webpaste-providers-alist nil))
+    ;; Do test
+    (should (equal (webpaste/get-provider-priority)
+                   '("provider2" "provider1" "provider3")))))
 
 
 
@@ -145,10 +139,9 @@
   "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)
+  (let ((returned-result nil)
+        (webpaste-tested-providers nil)
+        (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
@@ -173,10 +166,9 @@ 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)
+  (let ((returned-result nil)
+        (webpaste-tested-providers nil)
+        (webpaste-provider-priority nil))
 
     ;; Creates a "broken" provider that will call on the next provider due to a
     ;; faked failure and checks that the next provider is picked up correctly.