; Fix my previous commit

* test/src/chartab-tests.el (chartab-test-char-table-extra-slot): Fix
test.

diff --git a/test/src/chartab-tests.el b/test/src/chartab-tests.el
index 0a8d8bcdf7d8a310dbd2ece9b523b41f5f232e1a..98893e55fe2b6e975051d2bea6584c16c14c9ab7 100644 (file)
--- 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