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

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

[elpa] externals/inspector 0c621dec1d 4/4: Indentation adjustments


From: ELPA Syncer
Subject: [elpa] externals/inspector 0c621dec1d 4/4: Indentation adjustments
Date: Fri, 10 Feb 2023 19:11:24 -0500 (EST)

branch: externals/inspector
commit 0c621dec1d794eb1fa5217e167182f08c088bed0
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Indentation adjustments
---
 tree-inspector-tests.el | 50 ++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/tree-inspector-tests.el b/tree-inspector-tests.el
index e91dede1a2..54aea413a7 100644
--- a/tree-inspector-tests.el
+++ b/tree-inspector-tests.el
@@ -221,11 +221,11 @@
     (goto-char (point-min))
     (tree-inspector-inspect-defun)
     (with-current-buffer "*tree-inspector*"
-                      (let ((content (buffer-string)))
-                        (should (cl-search "1" content))
-                        (should (cl-search "2" content))
-                        (should (cl-search "[-]" content))
-                        (kill-buffer)))))
+      (let ((content (buffer-string)))
+        (should (cl-search "1" content))
+        (should (cl-search "2" content))
+        (should (cl-search "[-]" content))
+        (kill-buffer)))))
 
 
 (ert-deftest 
tree-inspector-tests--tree-inspector-inspect-top-defun-simple-vector-test ()
@@ -247,11 +247,11 @@
     (goto-char (point-min))
     (tree-inspector-inspect-defun)
     (with-current-buffer "*tree-inspector*"
-        (let ((buffer-string (buffer-string)))
-          (should (cl-search "a" buffer-string))
-          (should (cl-search "1" buffer-string))
-          (should (cl-search "[-]" buffer-string))
-          (kill-buffer)))))
+      (let ((buffer-string (buffer-string)))
+        (should (cl-search "a" buffer-string))
+        (should (cl-search "1" buffer-string))
+        (should (cl-search "[-]" buffer-string))
+        (kill-buffer)))))
 
 (ert-deftest 
tree-inspector-tests--tree-inspector-inspect-top-defun-simple-plist-test ()
   (with-temp-buffer
@@ -315,21 +315,21 @@
 (ert-deftest 
tree-inspector-tests--tree-inspector-inspect-defun-complicate-plist-test ()
   (with-temp-buffer
     (let* ((insert-content "'(:key1 2 :key2 3 (:key4 4))")
-            )
-       (insert insert-content)
-        (goto-char (point-min))
-        (tree-inspector-inspect-defun)
-        (with-current-buffer (format "*tree-inspector*")
-          (let ((buffer-content (buffer-string)))
-            (should (cl-search "key1" buffer-content))
-            (should (cl-search "2" buffer-content))
-            (should (cl-search "key2" buffer-content))
-            (should (cl-search "3" buffer-content))
-            (should (cl-search "key4" buffer-content))
-            (should (cl-search "4" buffer-content))
-            (kill-buffer)
-            ))
-       )))
+           )
+      (insert insert-content)
+      (goto-char (point-min))
+      (tree-inspector-inspect-defun)
+      (with-current-buffer (format "*tree-inspector*")
+        (let ((buffer-content (buffer-string)))
+          (should (cl-search "key1" buffer-content))
+          (should (cl-search "2" buffer-content))
+          (should (cl-search "key2" buffer-content))
+          (should (cl-search "3" buffer-content))
+          (should (cl-search "key4" buffer-content))
+          (should (cl-search "4" buffer-content))
+          (kill-buffer)
+          ))
+      )))
 (ert-deftest tree-inspector-tests--tree-inspector-inspect-region ()
   (with-temp-buffer
     (let ((insert-string "(list 1 2 3)"))



reply via email to

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