emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/inf-clojure b4193fc 289/313: Reindent tests


From: ELPA Syncer
Subject: [nongnu] elpa/inf-clojure b4193fc 289/313: Reindent tests
Date: Wed, 11 Aug 2021 10:00:35 -0400 (EDT)

branch: elpa/inf-clojure
commit b4193fce80a5d2b3cc777946f304059d07599d46
Author: dan sutton <dan@dpsutton.com>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    Reindent tests
---
 test/inf-clojure-tests.el | 93 ++++++++++++++++++++++++-----------------------
 1 file changed, 47 insertions(+), 46 deletions(-)

diff --git a/test/inf-clojure-tests.el b/test/inf-clojure-tests.el
index c35c9b2..71f9266 100644
--- a/test/inf-clojure-tests.el
+++ b/test/inf-clojure-tests.el
@@ -48,76 +48,77 @@
     (expect (inf-clojure--kw-to-symbol "::keyword") :to-equal "keyword")
     (expect (inf-clojure--kw-to-symbol nil) :to-equal nil)))
 
-(describe "completion bounds at point" ()
+(describe "completion bounds at point"
   (it "computes bounds for plain-text"
-      (ict-with-assess-buffers
-       ((a (insert "plain-text")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal "plain-text"))))
+    (ict-with-assess-buffers
+     ((a (insert "plain-text")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal "plain-text"))))
 
   (it "computes bounds for @deref"
-      (ict-with-assess-buffers
-       ((a (insert "@deref")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal "deref"))))
+    (ict-with-assess-buffers
+     ((a (insert "@deref")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal "deref"))))
 
   (it "computes bounds for ^:keyword"
-      (ict-with-assess-buffers
-       ((a (insert "^:keyword")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal ":keyword"))))
+    (ict-with-assess-buffers
+     ((a (insert "^:keyword")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal ":keyword"))))
 
   (it "computes bounds for ::keyword"
-      (ict-with-assess-buffers
-       ((a (insert "::keyword")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal "::keyword"))))
+    (ict-with-assess-buffers
+     ((a (insert "::keyword")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal "::keyword"))))
 
   (it "computes bounds for [^:keyword (combined break chars and keyword)"
-      (ict-with-assess-buffers
-       ((a (insert "[^:keyword")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal ":keyword"))))
+    (ict-with-assess-buffers
+     ((a (insert "[^:keyword")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal ":keyword"))))
 
   (it "computes no bounds for point directly after a break expression"
-      (ict-with-assess-buffers
-       ((a (insert "@")))
-       (with-current-buffer a
-         (expect
-          (ict-bounds-string (inf-clojure-completion-bounds-of-expr-at-point))
-          :not :to-be nil))))
+    (ict-with-assess-buffers
+     ((a (insert "@")))
+     (with-current-buffer a
+       (expect
+        (ict-bounds-string (inf-clojure-completion-bounds-of-expr-at-point))
+        :not :to-be nil))))
 
   (it "computes bounds for [symbol"
-      (ict-with-assess-buffers
-       ((a (insert "[symbol")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal "symbol"))))
+    (ict-with-assess-buffers
+     ((a (insert "[symbol")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal "symbol"))))
 
   (it "computes bounds for (@deref (multiple break chars)"
-      (ict-with-assess-buffers
-       ((a (insert "(@deref")))
-       (with-current-buffer a
-         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
-                 :to-equal "deref")))))
+    (ict-with-assess-buffers
+     ((a (insert "(@deref")))
+     (with-current-buffer a
+       (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+               :to-equal "deref")))))
 
 (describe "inf-clojure--sanitize-command"
   (it "sanitizes the command correctly"
-     (expect (inf-clojure--sanitize-command "(doc println)") :to-equal "(doc 
println)\n"))
+    (expect (inf-clojure--sanitize-command "(doc println)") :to-equal "(doc 
println)\n"))
 
   (it "trims newline at the right of a command"
-     (expect (inf-clojure--sanitize-command "(doc println)\n\n\n\n") :to-equal 
"(doc println)\n"))
+    (expect (inf-clojure--sanitize-command "(doc println)\n\n\n\n") :to-equal 
"(doc println)\n"))
 
   (it "returns empty string when the command is empty"
-      (expect (inf-clojure--sanitize-command "   ") :to-equal ""))
+    (expect (inf-clojure--sanitize-command "   ") :to-equal ""))
 
   (it "only removes whitespace at the end of the command - fix 152"
-     (expect (inf-clojure--sanitize-command "1   5") :to-equal "1   5\n")))
+    (expect (inf-clojure--sanitize-command "1   5") :to-equal "1   5\n")))
+
 
 (describe "inf-clojure--update-feature"
   (it "updates new forms correctly"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]