branch: externals/inspector
commit e7f2f13ff4839f6f9face82260fd1ec596b734ae
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@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))
