emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/inspector 683313d9bd 20/39: tree-inspector: records tes


From: ELPA Syncer
Subject: [elpa] externals/inspector 683313d9bd 20/39: tree-inspector: records test
Date: Sat, 10 Sep 2022 17:57:48 -0400 (EDT)

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

    tree-inspector: records test
---
 tree-inspector-tests.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/tree-inspector-tests.el b/tree-inspector-tests.el
index 2479f395a0..f7913d9a03 100644
--- a/tree-inspector-tests.el
+++ b/tree-inspector-tests.el
@@ -189,13 +189,11 @@
      (should (cl-search "factorial" buffer-string))))
 
 (ert-deftest tree-inspector-tests--inspect-record-test ()
-  (tree-inspector-inspect (record 'foo 23 [bar baz] "rats"))
-  (let ((buffer-string (buffer-string)))
-    (should (cl-search "record" buffer-string))
+  (tree-inspector-tests--with-tree-inspector-contents
+   (buffer-string (record 'foo 23 [bar baz] "rats"))
     (should (cl-search "foo" buffer-string))
     (should (cl-search "23" buffer-string))
-    (should (cl-search "rats" buffer-string)))
-  (inspector-quit))
+    (should (cl-search "rats" buffer-string))))
 
 (ert-deftest inspector-tests--inspect-finalizer-test ()
   (inspector-inspect (make-finalizer #'print)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]