diff options
| author | Tianxiang Xiong <tianxiang.xiong@fundingcircle.com> | 2017-02-28 13:44:50 -0800 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-03-01 08:02:31 +0200 |
| commit | 5d32b960739162b75c044be0175b9564e7b8293e (patch) | |
| tree | 6dc9c34552f6a1a13e3bf5b99ddf3b85e6ccbe91 /cider-test.el | |
| parent | 386a7c4b98b701a5ca11fce4b223f72984998454 (diff) | |
Don't use `list` where backquoting would be clearer
Diffstat (limited to 'cider-test.el')
| -rw-r--r-- | cider-test.el | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/cider-test.el b/cider-test.el index e5b8570e..b63048fc 100644 --- a/cider-test.el +++ b/cider-test.el @@ -261,15 +261,16 @@ prompt and whether to use a new window. Similar to `cider-find-var'." "Display stacktrace for the erring NS VAR test with the assertion INDEX." (let (causes) (cider-nrepl-send-request - (append - (list "op" "test-stacktrace" - "ns" ns "var" var "index" index) - (when (cider--pprint-fn) - (list "pprint-fn" (cider--pprint-fn))) - (when cider-stacktrace-print-length - (list "print-length" cider-stacktrace-print-length)) - (when cider-stacktrace-print-level - (list "print-level" cider-stacktrace-print-level))) + (nconc `("op" "test-stacktrace" + "ns" ,ns + "var" ,var + "index" ,index) + (when (cider--pprint-fn) + `("pprint-fn" ,(cider--pprint-fn))) + (when cider-stacktrace-print-length + `("print-length" ,cider-stacktrace-print-length)) + (when cider-stacktrace-print-level + `("print-level" ,cider-stacktrace-print-level))) (lambda (response) (nrepl-dbind-response response (class status) (cond (class (setq causes (cons response causes))) @@ -586,15 +587,15 @@ If SILENT is non-nil, suppress all messages other then test results." (cider-test-echo-running ns (car tests)) (cider-test-echo-running ns))) (cider-nrepl-send-request - (list "op" (cond ((stringp ns) "test") - ((eq :project ns) "test-all") - ((eq :loaded ns) "test-all") - ((eq :non-passing ns) "retest")) - "ns" (when (stringp ns) ns) - "tests" (when (stringp ns) tests) - "load?" (when (or (stringp ns) - (eq :project ns)) - "true")) + `("op" ,(cond ((stringp ns) "test") + ((eq :project ns) "test-all") + ((eq :loaded ns) "test-all") + ((eq :non-passing ns) "retest")) + "ns" ,(when (stringp ns) ns) + "tests" ,(when (stringp ns) tests) + "load?" ,(when (or (stringp ns) + (eq :project ns)) + "true")) (lambda (response) (nrepl-dbind-response response (summary results status out err) (cond ((member "namespace-not-found" status) |