Tidy up some lists in tests with backquotes

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,8 +100,8 @@
     ;; 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)
+                  `(("workingprovider"
+                     ,(lambda (text)
                         (setq returned-result
                               (concat "Works: " text))))))
 
@@ -128,8 +128,8 @@ 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)
+                  `(("brokenprovider"
+                     ,(lambda (text)
                         ;; Set return text
                         (setq returned-result
                               (concat "Broken: " text))
@@ -137,8 +137,8 @@ result from the good provider only."
                         ;; Call paste again
                         (webpaste-paste-text text)))
 
-                        (list "workingprovider"
-                              (lambda (text)
+                    ("workingprovider"
+                     ,(lambda (text)
                         (setq returned-result
                               (concat "Working: " text))))))