[elpa] externals/inspector d60552c6d2 76/93: Some more tests

[ELPA Syncer]

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

    Some more tests
---
 inspector-tests.el | 37 ++++++++++++++++++++++++++++++-------
 1 file changed, 30 insertions(+), 7 deletions(-)

diff --git a/inspector-tests.el b/inspector-tests.el
index a0ded5f8f8..5c0981987f 100644
--- a/inspector-tests.el
+++ b/inspector-tests.el
@@ -102,21 +102,44 @@
 
 (inspector-inspect (record 'foo 23 [bar baz] "rats"))
 
-(inspector-inspect (make-finalizer #'print))
+(ert-deftest inspector-tests--inspect-finalizer-test ()
+  (inspector-inspect (make-finalizer #'print)))
 
-(inspector-inspect (make-button 0 10))
-(inspector-inspect (make-overlay 0 10))
+(ert-deftest inspector-tests--overlays-test ()
+  (inspector-inspect (make-button 0 10))
+  (let ((buffer-string (buffer-string)))
+    (should (search "overlay" buffer-string)))
+  (inspector-quit)
+  (inspector-inspect (make-overlay 0 10))
+  (let ((buffer-string (buffer-string)))
+    (should (search "overlay" buffer-string)))
+  (inspector-quit))
 
-(defclass person ()
+(defclass inspector-tests--person ()
   ((name :initform "John")
    (age :initform 40)))
 
-(inspector-inspect (make-instance 'person))
+(ert-deftest inspector-tests--inspect-class-test ()
+  (inspector-inspect (make-instance 'inspector-tests--person))
+  (let ((buffer-string (buffer-string)))
+    (should (search "name" buffer-string))
+    (should (search "John" buffer-string))
+    (should (search "age" buffer-string))
+    (should (search "40" buffer-string))
+    (inspector-quit)))
+    
 
-(cl-defstruct rectangle
+(cl-defstruct inspector-tests--rectangle
   x y)
 
-(inspector-inspect (make-rectangle :x 30 :y 40))
+(ert-deftest inspector-tests--inspect-struct-test ()
+  (inspector-inspect (make-inspector-tests--rectangle :x 30 :y 40))
+  (let ((buffer-string (buffer-string)))
+    (should (search "x" buffer-string))
+    (should (search "y" buffer-string))
+    (should (search "30" buffer-string))
+    (should (search "40" buffer-string))
+    (inspector-quit)))
 
 (setq inspector-slice-size 10)
 (inspector-inspect (cl-loop for i from 1 to 101 collect i))