[elpa] externals/inspector e7f2f13ff4 75/93: Start writing ert tests

[ELPA Syncer]

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

    Start writing ert tests
---
 inspector-tests.el | 24 +++++++++++++++++++++---
 inspector.el       |  2 +-
 2 files changed, 22 insertions(+), 4 deletions(-)

diff --git a/inspector-tests.el b/inspector-tests.el
index 9a7b59aff9..a0ded5f8f8 100644
--- a/inspector-tests.el
+++ b/inspector-tests.el
@@ -33,10 +33,28 @@
 ;; The best may to fix this here is likely to use `ert-deftest'.
 
 (require 'inspector)
+(require 'ert)
+
+(ert-deftest inspector-tests--inspect-integer-test ()
+  (inspector-inspect 22)
+  (let ((buffer-string (buffer-string)))
+    (should (search "22" buffer-string))
+    (should (search "integer" buffer-string)))
+  (inspector-quit))
+
+(ert-deftest inspector-tests--inspect-float-test ()
+  (inspector-inspect 2.22)
+  (let ((buffer-string (buffer-string)))
+    (should (search "2.22" buffer-string))
+    (should (search "float" buffer-string)))
+  (inspector-quit))
+
+(ert-deftest inspector-tests--inspect-character-test ()
+  (inspector-inspect ?a)
+  (let ((buffer-string (buffer-string)))
+    (should (search "character" buffer-string))
+    (inspector-quit)))
 
-(inspector-inspect 22)
-(inspector-inspect 2.22)
-(inspector-inspect ?a)
 (inspector-inspect 'abcd)
 (inspector-inspect :abcd)
 (inspector-inspect '(1 2 3))
diff --git a/inspector.el b/inspector.el
index 02d980479b..277f7c16c6 100644
--- a/inspector.el
+++ b/inspector.el
@@ -462,7 +462,7 @@ slice in buffer."
   (inspector--insert-label "integer")
   (insert (inspector--princ-to-string integer))
   (newline)
-  (inspector--insert-label "char")
+  (inspector--insert-label "character")
   (insert (inspector--princ-to-string (char-to-string integer))))
 
 (cl-defmethod inspect-object ((hash-table hash-table))