[nongnu] elpa/webpaste 7f62fed 118/298: Tidy up some lists in tests with backquotes

[ELPA Syncer]

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

    Tidy up some lists in tests with backquotes
---
 test/webpaste-test.el | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/test/webpaste-test.el b/test/webpaste-test.el
index e38f849..70005dc 100644
--- a/test/webpaste-test.el
+++ b/test/webpaste-test.el
@@ -68,9 +68,9 @@
   ;; Prepare variables
   (setq-default webpaste-provider-priority nil)
   (setq-default webpaste-providers-alist
-                (list (list "provider1" "lambda")
-                      (list "provider2" "lambda")
-                      (list "provider3" "lambda")))
+                `(("provider1" "lambda")
+                  ("provider2" "lambda")
+                  ("provider3" "lambda")))
 
   ;; Do test
   (should (equal (webpaste/get-provider-priority)
@@ -100,10 +100,10 @@
     ;; 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))))))
+                  `(("workingprovider"
+                     ,(lambda (text)
+                        (setq returned-result
+                              (concat "Works: " text))))))
 
     ;; Call webpaste
     (webpaste-paste-text "test-string")
@@ -128,19 +128,19 @@ result from the good provider only."
     ;; 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.
     (setq-default webpaste-providers-alist
-                  (list (list "brokenprovider"
-                              (lambda (text)
-                                ;; Set return text
-                                (setq returned-result
-                                      (concat "Broken: " text))
-
-                                ;; Call paste again
-                                (webpaste-paste-text text)))
-
-                        (list "workingprovider"
-                              (lambda (text)
-                                (setq returned-result
-                                      (concat "Working: " text))))))
+                  `(("brokenprovider"
+                     ,(lambda (text)
+                        ;; Set return text
+                        (setq returned-result
+                              (concat "Broken: " text))
+
+                        ;; Call paste again
+                        (webpaste-paste-text text)))
+
+                    ("workingprovider"
+                     ,(lambda (text)
+                        (setq returned-result
+                              (concat "Working: " text))))))
 
     ;; Call webpaste
     (webpaste-paste-text "test-string")