From 4b6fcb072ab56c472805ecdcdf86f5bada98c1cc Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 30 Dec 2020 08:36:04 +0100 Subject: [PATCH] ; Fix my previous commit * test/src/chartab-tests.el (chartab-test-char-table-extra-slot): Fix test. --- test/src/chartab-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5