[elpa] externals/inspector 8b000e4e4e 15/39: tree-inspector: tests

[ELPA Syncer]

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

    tree-inspector: tests
---
 tree-inspector-tests.el | 102 ++++++++++++++++++++----------------------------
 tree-inspector.el       |  19 +++++++++
 2 files changed, 61 insertions(+), 60 deletions(-)

diff --git a/tree-inspector-tests.el b/tree-inspector-tests.el
index a258f32f08..65cb0c3e27 100644
--- a/tree-inspector-tests.el
+++ b/tree-inspector-tests.el
@@ -57,6 +57,7 @@
 
 (defun tree-inspector-tests-run ()
   "Run tree-inspector tests."
+  (interactive)
   (ert "tree-inspector-tests.*"))
 
 (ert-deftest tree-inspector-tests--inspect-integer-test ()
@@ -73,75 +74,56 @@
    ;;(should (cl-search "float" buffer-string))
    ))
 
-(ert-deftest inspector-tests--inspect-character-test ()
-  (inspector-inspect ?a)
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "character" buffer-string))
-    (should (cl-search "97" buffer-string))
-    (inspector-quit)))
+(ert-deftest tree-inspector-tests--inspect-character-test ()
+  (tree-inspector-tests--with-tree-inspector-contents
+   (buffer-string ?a)
+   (should (cl-search "97" buffer-string))))
 
-(ert-deftest inspector-tests--inspect-symbol-test ()
-  (inspector-inspect 'abcd)
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "abcd" buffer-string))
-    (should (cl-search "symbol" buffer-string))
-    (inspector-quit))
+(ert-deftest tree-inspector-tests--inspect-symbol-test ()
+  (tree-inspector-tests--with-tree-inspector-contents
+   (buffer-string 'abcd)
+   (should (cl-search "abcd" buffer-string)))
 
-  (inspector-inspect :abcd)
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "abcd" buffer-string))
-    (should (cl-search "symbol" buffer-string))
-    (inspector-quit)))
+  (tree-inspector-tests--with-tree-inspector-contents
+   (buffer-string :abcd)
+   (should (cl-search "abcd" buffer-string))))
 
-(ert-deftest inspector-tests--inspect-list-test ()
-  (inspector-inspect '(1 2 3))
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "list" buffer-string))
-    (should (cl-search "1" buffer-string))
+(ert-deftest tree-inspector-tests--inspect-list-test ()
+  (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))
-    (inspector-quit)))
+    (should (cl-search "3" buffer-string))))
 
 (ert-deftest inspector-tests--inspect-vector-test ()
-  (inspector-inspect [1 "two" (three)])
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "vector" buffer-string))
-    (should (cl-search "1" buffer-string))
-    (should (cl-search "two" buffer-string))
-    (should (cl-search "three" buffer-string))
-    (inspector-quit)))
-
-;; Long lists are to be sliced:
-(ert-deftest inspector-tests--inspect-long-list-test ()
-  (inspector-inspect (cl-loop for i from 1 to 3000 collect i))
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "more" buffer-string))
-    (should (< (count-lines (point-min) (point-max)) 120)))
-  (inspector-quit))
+  (tree-inspector-tests--with-tree-inspector-contents
+   (buffer-string [1 "two" (three)])
+   (should (cl-search "1" buffer-string))
+   (should (cl-search "two" buffer-string))
+   (should (cl-search "three" buffer-string))))
 
 ;; Char tables
 ;; 
https://www.gnu.org/software/emacs/manual/html_node/elisp/Char_002dTable-Type.html
-(ert-deftest inspector-tests--inspect-char-table-test ()
-  (inspector-inspect ascii-case-table)
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "char-table" buffer-string))
-    (inspector-quit))
-
-  (inspector-inspect (make-display-table))
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "char-table" buffer-string))
-    (inspector-quit))
-
-  (inspector-inspect (standard-syntax-table))
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "char-table" buffer-string))
-    (inspector-quit)))
-
-(ert-deftest inspector-tests--inspect-bool-vector-test ()
-  (inspector-inspect (make-category-set "al"))
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "bool-vector" buffer-string))
-    (inspector-quit)))
+;; (ert-deftest inspector-tests--inspect-char-table-test ()
+;;   (tree-inspector-inspect ascii-case-table)
+;;   (let ((buffer-string (buffer-string)))
+;;     (should (cl-search "char-table" buffer-string))
+;;     (inspector-quit))
+
+;;   (inspector-inspect (make-display-table))
+;;   (let ((buffer-string (buffer-string)))
+;;     (should (cl-search "char-table" buffer-string))
+;;     (inspector-quit))
+
+;;   (inspector-inspect (standard-syntax-table))
+;;   (let ((buffer-string (buffer-string)))
+;;     (should (cl-search "char-table" buffer-string))
+;;     (inspector-quit)))
+
+;; (ert-deftest tree-inspector-tests--inspect-bool-vector-test ()
+;;   (tree-inspector-tests--with-tree-inspector-contents
+;;    (buffer-string (make-category-set "al"))
+;;     (should (cl-search "nil" buffer-string))))
 
 (ert-deftest inspector-tests--inspect-nil-test ()
   (inspector-inspect nil)
diff --git a/tree-inspector.el b/tree-inspector.el
index 96b781771c..0f959c5865 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -167,6 +167,10 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
 (cl-defgeneric tree-inspector--node-children (node)
   (:documentation "Return the NODE children treeview nodes."))
 
+(cl-defmethod tree-inspector--node-children ((object t))
+  "Objects have no children by default."
+  nil)
+
 (cl-defmethod tree-inspector--node-children ((object cons))
   (cond
    ;; alists
@@ -269,6 +273,21 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
       node))
    (t (error "Implement inspector for: %s" object))))
 
+(cl-defmethod tree-inspector--make-node ((object bool-vector))
+  (let ((node (treeview-new-node)))
+    (treeview-set-node-name
+     node (tree-inspector--print-object object))
+    (treeview-set-node-prop node 'object object)
+    (treeview-set-node-children
+     node
+     (cl-map 'list
+             (lambda (item)
+               (let ((child (tree-inspector--make-node item)))
+                 (treeview-set-node-parent child node)
+                 child))
+             object))
+    node))
+
 (cl-defmethod tree-inspector--make-node ((object vector))
   (let ((node (treeview-new-node)))
     (treeview-set-node-name