Improve the code style a bit

Author: bbatsov

test/cider-repl-tests.el

@@ -72,11 +72,12 @@
 (defvar cider-testing-ansi-colors-vector
   ["black" "red3" "green3" "yellow3" "blue2"
    "magenta3" "cyan3" "gray90"]
-  "Vector of translations for ansi color codes")
+  "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)))
+          (ansi-color-map (ansi-color-make-color-map)))
      ,@body))
 
 (describe "multiple calls to cider-repl--emit-output-at-pos"
@@ -101,29 +102,32 @@
                 :to-equal '(foreground-color . "red3"))))))
 
 (defun simulate-cider-output (s property)
-  "Return properties from cider-repl--emit-output-at-pos.
+  "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))
-    (case property
-      ('text (substring-no-properties (buffer-string)))
-      ('ansi-context ansi-color-context)
-      ('properties (substring (buffer-string))))))
+    (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"))
 
-  (it "when invlaid escape code, doesn't hold string looking for close tag"
-    (expect (simulate-cider-output "\033hi" 'text)
-            :to-equal "\033hi\n")
-    (expect (simulate-cider-output "\033hi" 'ansi-context)
-            :to-equal nil))
-
-  (it "preserves context when valid"
-    (let ((context (simulate-cider-output "abcd" 'ansi-context)))
-      (expect context :to-equal '((31) nil)))))
+  ;; 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 "abcd" 'ansi-context)))
+        (expect context :to-equal '((31) nil))))))