[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)"))