wilderjds
/
webpaste.el
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tidy up some lists in tests with backquotes

Browse Source
master
Elis Axelsson 9 years ago
parent 0b67c54422
commit 7f62fed247
No known key found for this signature in database
GPG Key ID: D57EFA625C9A925F
1 changed files with 20 additions and 20 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 18
      test/webpaste-test.el

18
test/webpaste-test.el
Unescape View File

@ -68,9 +68,9 @@
;; Prepare variables ;; Prepare variables
(setq-default webpaste-provider-priority nil) (setq-default webpaste-provider-priority nil)
(setq-default webpaste-providers-alist (setq-default webpaste-providers-alist
(list (list "provider1" "lambda") `(("provider1" "lambda")
(list "provider2" "lambda") ("provider2" "lambda")
(list "provider3" "lambda"))) ("provider3" "lambda")))
;; Do test ;; Do test
(should (equal (webpaste/get-provider-priority) (should (equal (webpaste/get-provider-priority)
@ -100,8 +100,8 @@
;; Make a fake provider that just "returns" the paste result by setting a ;; 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 ;; variable and concatinate it with "Works: " so we can see it showing up
(setq-default webpaste-providers-alist (setq-default webpaste-providers-alist
(list (list "workingprovider" `(("workingprovider"
(lambda (text) ,(lambda (text)
(setq returned-result (setq returned-result
(concat "Works: " text)))))) (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 ;; 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. ;; faked failure and checks that the next provider is picked up correctly.
(setq-default webpaste-providers-alist (setq-default webpaste-providers-alist
(list (list "brokenprovider" `(("brokenprovider"
(lambda (text) ,(lambda (text)
;; Set return text ;; Set return text
(setq returned-result (setq returned-result
(concat "Broken: " text)) (concat "Broken: " text))
@ -137,8 +137,8 @@ result from the good provider only."
;; Call paste again ;; Call paste again
(webpaste-paste-text text))) (webpaste-paste-text text)))
(list "workingprovider" ("workingprovider"
(lambda (text) ,(lambda (text)
(setq returned-result (setq returned-result
(concat "Working: " text)))))) (concat "Working: " text))))))

Write Preview
Loading…
Cancel
Save