[elpa] externals/inspector 094cd26780 78/93: More tests

[ELPA Syncer]

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

    More tests
---
 inspector-tests.el | 28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/inspector-tests.el b/inspector-tests.el
index 5c0981987f..0ff564dd65 100644
--- a/inspector-tests.el
+++ b/inspector-tests.el
@@ -89,18 +89,32 @@
                     (puthash :b "foo" table)
                     table))
 
-(inspector-inspect #'print)
-(inspector-inspect #'(lambda () (print "hello")))
-(inspector-inspect (symbol-function 'car))
+(ert-deftest inspector-tests--inspect-function-test ()
+  (inspector-inspect (symbol-function 'car))
+  (let ((buffer-string (buffer-string)))
+    (should (search "function" buffer-string))
+    (should (search "car" buffer-string)))
+  (inspector-quit))
 
-(defun factorial (integer)
+(defun inspector-tests--factorial (integer)
   "Compute factorial of an integer."
   (if (= 1 integer) 1
-    (* integer (factorial (1- integer)))))
+    (* integer (inspector-tests--factorial (1- integer)))))
 
-(inspector-inspect (byte-compile 'factorial))
+(ert-deftest inspector-tests--inspect-compiled-function-test ()
+  (inspector-inspect (byte-compile 'inspector-tests--factorial))
+  (let ((buffer-string (buffer-string)))
+    (should (search "function" buffer-string)))
+  (inspector-quit))
 
-(inspector-inspect (record 'foo 23 [bar baz] "rats"))
+(ert-deftest inspector-tests--inspect-record-test ()
+  (inspector-inspect (record 'foo 23 [bar baz] "rats"))
+  (let ((buffer-string (buffer-string)))
+    (should (search "record" buffer-string))
+    (should (search "foo" buffer-string))
+    (should (search "23" buffer-string))
+    (should (search "rats" buffer-string)))
+  (inspector-quit))
 
 (ert-deftest inspector-tests--inspect-finalizer-test ()
   (inspector-inspect (make-finalizer #'print)))