1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
;;; cider-repl-tests.el
;; Copyright © 2012-2018 Tim King, Bozhidar Batsov
;; Author: Tim King <kingtim@gmail.com>
;; Bozhidar Batsov <bozhidar@batsov.com>
;; Artur Malabarba <bruce.connor.am@gmail.com>
;; This file is NOT part of GNU Emacs.
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see `http://www.gnu.org/licenses/'.
;;; Commentary:
;; This file is part of CIDER
;;; Code:
(require 'buttercup)
(require 'cider-repl)
(describe "cider-repl--banner"
:var (cider-version cider-codename)
(before-all
(spy-on 'cider--java-version :and-return-value "1.8.0_31")
(spy-on 'cider--clojure-version :and-return-value "1.8.0")
(spy-on 'cider--nrepl-version :and-return-value "0.2.12")
(setq nrepl-endpoint (list :host "localhost" :port "54018"))
(setq cider-version "0.12.0")
(setq cider-codename "Seattle"))
(describe "when the cider package version information is available"
(it "returns the repl banner string"
(spy-on 'pkg-info-version-info :and-return-value "0.12.0")
(expect (cider-repl--banner) :to-equal
";; Connected to nREPL server - nrepl://localhost:54018
;; CIDER 0.12.0 (Seattle), nREPL 0.2.12
;; Clojure 1.8.0, Java 1.8.0_31
;; Docs: (doc function-name)
;; (find-doc part-of-name)
;; Source: (source function-name)
;; Javadoc: (javadoc java-object-or-class)
;; Exit: <C-c C-q>
;; Results: Stored in vars *1, *2, *3, an exception in *e;")))
(describe "when the cider package version information is not available"
(it "returns the repl banner string"
(spy-on 'pkg-info-version-info :and-throw-error '(error "No package version"))
(expect (cider-repl--banner) :to-equal
";; Connected to nREPL server - nrepl://localhost:54018
;; CIDER 0.12.0 (Seattle), nREPL 0.2.12
;; Clojure 1.8.0, Java 1.8.0_31
;; Docs: (doc function-name)
;; (find-doc part-of-name)
;; Source: (source function-name)
;; Javadoc: (javadoc java-object-or-class)
;; Exit: <C-c C-q>
;; Results: Stored in vars *1, *2, *3, an exception in *e;"))))
(defvar cider-testing-ansi-colors-vector
["black" "red3" "green3" "yellow3" "blue2"
"magenta3" "cyan3" "gray90"]
"Vector of translations for ansi color codes.")
(defmacro with-testing-ansi-table (colors &rest body)
(declare (indent 1))
`(let* ((ansi-color-names-vector ,colors)
(ansi-color-map (ansi-color-make-color-map)))
,@body))
(describe "multiple calls to cider-repl--emit-output-at-pos"
(it "Multiple emit output calls set properties and emit text"
(with-temp-buffer
(with-testing-ansi-table cider-testing-ansi-colors-vector
(cider-repl-reset-markers)
(cider-repl--emit-output-at-pos (current-buffer) "[30ma[0m" 'cider-repl-stdout-face (point))
(cider-repl--emit-output-at-pos (current-buffer) "b" 'cider-repl-stdout-face (point))
(cider-repl--emit-output-at-pos (current-buffer) "[31mc" 'cider-repl-stdout-face (point))
(cider-repl--emit-output-at-pos (current-buffer) "d[0m" 'cider-repl-stdout-face (point))
(expect (buffer-string) :to-equal "a\nb\nc\nd\n")
(expect (get-text-property 1 'font-lock-face)
:to-equal '(foreground-color . "black"))
(expect (get-text-property 3 'font-lock-face)
:to-equal 'cider-repl-stdout-face)
(expect (get-text-property 5 'font-lock-face)
:to-equal '(foreground-color . "red3"))
(expect (get-text-property 7 'font-lock-face)
:to-equal '(foreground-color . "red3"))))))
(defun simulate-cider-output (s property)
"Return properties from `cider-repl--emit-output-at-pos'.
PROPERTY shoudl be a symbol of either 'text, 'ansi-context or
'properties."
(with-temp-buffer
(with-testing-ansi-table cider-testing-ansi-colors-vector
(cider-repl-reset-markers)
(cider-repl--emit-output-at-pos (current-buffer) s nil (point-min) nil))
(pcase property
(`text (substring-no-properties (buffer-string)))
(`ansi-context ansi-color-context)
(`properties (substring (buffer-string))))))
(describe "cider-repl--emit-output-at-pos"
(it "prints simple strings"
(expect (simulate-cider-output "hi" 'text)
:to-equal "hi\n"))
;; https://github.com/clojure-emacs/cider/issues/1794
(describe "when the escape code is invalid"
(it "doesn't hold the string looking for a close tag"
(expect (simulate-cider-output "\033hi" 'text)
:to-equal "\033hi\n")
(expect (simulate-cider-output "\033hi" 'ansi-context)
:to-equal nil)))
(describe "when the escape code is valid"
(it "preserves the context"
(let ((context (simulate-cider-output "[30ma[0mb[31mcd" 'ansi-context)))
(expect context :to-equal '((31) nil))))))
(describe "cider--pretty-print-width"
(it "prefers cider-repl-pretty-print-width"
(let ((cider-repl-pretty-print-width 40))
(expect (cider--pretty-print-width)
:to-equal cider-repl-pretty-print-width)))
(it "falls back to fill-column"
(let ((cider-repl-pretty-print-width nil)
(fill-column 80))
(expect (cider--pretty-print-width)
:to-equal fill-column))))
(describe "cider-repl--build-config-expression"
(it "returns nil when all the config values are nil"
(let ((cider-repl-print-length nil)
(cider-repl-print-level nil))
(expect (cider-repl--build-config-expression) :to-equal nil)))
(it "returns an when any the config values are non-nil"
(let ((cider-repl-print-length 10)
(cider-repl-print-level 10))
(expect (cider-repl--build-config-expression)
:to-equal
"(do (set! *print-length* 10) (set! *print-level* 10))"))))
(describe "cider-locref-at-point"
(it "works with stdout-stacktrace refs"
(with-temp-buffer
(insert "\n\tat clojure.lang.AFn.applyToHelper(AFn.java:160)")
(expect (cider-locref-at-point)
:to-equal
'(:type stdout-stacktrace :highlight (3 . 50) :var "clojure.lang.AFn.applyToHelper" :file "AFn.java" :line 160))
(insert "\n\tat cljs.analyzer$macroexpand_1_STAR_$fn__4642.invoke(analyzer.cljc:3286)")
(expect (cider-locref-at-point)
:to-equal
'(:type stdout-stacktrace :highlight (52 . 124) :var "cljs.analyzer" :file "analyzer.cljc" :line 3286))
(insert "\n\tat cljs.closure$compile_file.invoke(closure.clj:531)")
(expect (cider-locref-at-point)
:to-equal
'(:type stdout-stacktrace :highlight (126 . 178) :var "cljs.closure" :file "closure.clj" :line 531))))
(it "works with print-stacktrace"
(with-temp-buffer
(insert "\n[clojure.core$eval invoke core.clj 3202]")
(expect (cider-locref-at-point)
:to-equal
'(:type print-stacktrace :highlight (2 . 42) :var "clojure.core" :file "core.clj" :line 3202))))
(it "works with avis exceptions"
(with-temp-buffer
(insert "\n java.util.concurrent.ThreadPoolExecutor$Worker.run ThreadPoolExecutor.java: 624
clojure.tools.nrepl.middleware.interruptible-eval/run-next/fn interruptible_eval.clj: 190")
(expect (cider-locref-at-point)
:to-equal
'(:type aviso-stacktrace :highlight (121 . 213) :var "clojure.tools.nrepl.middleware.interruptible-eval" :file "interruptible_eval.clj" :line 190))
(line-move -1)
(expect (cider-locref-at-point)
:to-equal
'(:type aviso-stacktrace :highlight (26 . 107) :var "java.util.concurrent.ThreadPoolExecutor" :file "ThreadPoolExecutor.java" :line 624))))
(it "works with timbre logs"
(with-temp-buffer
(insert "\n18-05-12 10:17:52 galago ERROR [errors:8] - An error
18-05-12 10:17:52 galago WARN [errors:8] - A warning
18-05-12 10:17:52 galago INFO [errors:8] - An info")
(expect (cider-locref-at-point)
:to-equal
'(:type timbre-log :highlight (138 . 148) :var "errors" :file nil :line 8))
(line-move -1)
(expect (cider-locref-at-point)
:to-equal
'(:type timbre-log :highlight (85 . 95) :var "errors" :file nil :line 8))))
(it "works with cljs warnings"
(with-temp-buffer
(insert "\nWARNING: Wrong number of args (1) passed to aaa/bbb at line 42 /path/to/aaa/bbb.cljc")
(expect (cider-locref-at-point)
:to-equal
'(:type cljs-message :highlight (54 . 86) :var nil :file "/path/to/aaa/bbb.cljc" :line 42))))
(it "works with reflection warnings"
(with-temp-buffer
(insert "\nReflection warning, cider/nrepl/middleware/slurp.clj:103:16 - reference to field getInputStream can't be resolved.")
(move-to-column 20)
(expect (cider-locref-at-point)
:to-equal
'(:type reflection :highlight (22 . 61) :var nil :file "cider/nrepl/middleware/slurp.clj" :line 103)))))
|
