1 files changed, 1 insertions, 1 deletions

diff --git a/test/src/chartab-tests.el b/test/src/chartab-tests.el
index 0a8d8bcdf7d..98893e55fe2 100644
--- a/test/src/chartab-tests.el
+++ b/test/src/chartab-tests.el
@@ -67,7 +67,7 @@
   ;; Use any type with extra slots, e.g. 'case-table.
   (let ((tbl (make-char-table 'case-table)))
     (set-char-table-extra-slot tbl 1 'bar)
-    (char-table-extra-slot tbl 1)))
+    (should (eq (char-table-extra-slot tbl 1) 'bar))))
 
 (provide 'chartab-tests)
 ;;; chartab-tests.el ends here