[elpa] externals/inspector 09e5b1ce83 17/39: tests

[ELPA Syncer]

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

    tests
---
 inspector-tests.el      |  2 +-
 tree-inspector-tests.el | 31 ++++++++++++++-----------------
 2 files changed, 15 insertions(+), 18 deletions(-)

diff --git a/inspector-tests.el b/inspector-tests.el
index 184c3ab3c5..b5fc233f22 100644
--- a/inspector-tests.el
+++ b/inspector-tests.el
@@ -35,7 +35,7 @@
 (defun inspector-tests-run ()
   "Run inspector tests."
   (interactive)
-  (ert "inspector-tests.*"))
+  (ert "^inspector-tests-"))
 
 (ert-deftest inspector-tests--inspect-integer-test ()
   (inspector-inspect 22)
diff --git a/tree-inspector-tests.el b/tree-inspector-tests.el
index 5a0e36351b..6d7f7feb5c 100644
--- a/tree-inspector-tests.el
+++ b/tree-inspector-tests.el
@@ -51,14 +51,14 @@
   (let ((buffer (gensym "buffer")))
     `(let ((,buffer (tree-inspector-inspect ,(car (last var-and-object)))))
        (with-current-buffer ,buffer
-        (let ((,(car var-and-object) (buffer-string)))
-          (kill-current-buffer)
-          ,@body)))))
+         (let ((,(car var-and-object) (buffer-string)))
+           (kill-current-buffer)
+           ,@body)))))
 
 (defun tree-inspector-tests-run ()
   "Run tree-inspector tests."
   (interactive)
-  (ert "tree-inspector-tests.*"))
+  (ert "^tree-inspector-tests-"))
 
 (ert-deftest tree-inspector-tests--inspect-integer-test ()
   (tree-inspector-tests--with-tree-inspector-contents
@@ -92,8 +92,8 @@
   (tree-inspector-tests--with-tree-inspector-contents
    (buffer-string '(1 2 3))
    (should (cl-search "1" buffer-string))
-    (should (cl-search "2" buffer-string))
-    (should (cl-search "3" buffer-string))))
+   (should (cl-search "2" buffer-string))
+   (should (cl-search "3" buffer-string))))
 
 (ert-deftest inspector-tests--inspect-vector-test ()
   (tree-inspector-tests--with-tree-inspector-contents
@@ -128,7 +128,7 @@
 (ert-deftest tree-inspector-tests--inspect-nil-test ()
   (tree-inspector-tests--with-tree-inspector-contents
    (buffer-string nil)
-    (should (cl-search "nil" buffer-string))))
+   (should (cl-search "nil" buffer-string))))
 
 (ert-deftest tree-inspector-tests--inspect-cons-test ()
   (tree-inspector-tests--with-tree-inspector-contents
@@ -136,16 +136,13 @@
    (should (cl-search "1" buffer-string))
    (should (cl-search "foo" buffer-string))))
 
-(ert-deftest inspector-tests--inspect-alist-test ()
-  (inspector-inspect '((a . 33) (b . 44)))
-  (let ((buffer-string (buffer-string)))
-    (when inspector-use-specialized-inspectors-for-lists
-      (should (cl-search "association list" buffer-string)))
-    (should (cl-search "a" buffer-string))
-    (should (cl-search "b" buffer-string))
-    (should (cl-search "33" buffer-string))
-    (should (cl-search "44" buffer-string))
-    (inspector-quit)))
+(ert-deftest tree-inspector-tests--inspect-alist-test ()
+  (tree-inspector-tests--with-tree-inspector-contents
+   (buffer-string '((a . 33) (b . 44)))
+   (should (cl-search "a" buffer-string))
+   (should (cl-search "b" buffer-string))
+   (should (cl-search "33" buffer-string))
+   (should (cl-search "44" buffer-string))))
 
 (ert-deftest inspector-tests--inspect-plist-test ()
   (inspector-inspect '(:a 33 :b 44))