From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 30 Dec 2020 07:36:04 +0000 (+0100)
Subject: ; Fix my previous commit
X-Git-Tag: emacs-28.0.90~4492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b6fcb072ab56c472805ecdcdf86f5bada98c1cc;p=emacs.git

; 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 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