diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-30 08:36:04 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-30 08:36:04 +0100 |
| commit | 4b6fcb072ab56c472805ecdcdf86f5bada98c1cc (patch) | |
| tree | d2b244afc359e2043c5495096d976e2499e200ad /test/src | |
| parent | 2d58e0e803fb5fe397d446d58a0d83f0d35b4fc4 (diff) | |
| download | emacs-4b6fcb072ab56c472805ecdcdf86f5bada98c1cc.tar.gz emacs-4b6fcb072ab56c472805ecdcdf86f5bada98c1cc.tar.bz2 emacs-4b6fcb072ab56c472805ecdcdf86f5bada98c1cc.zip | |
; Fix my previous commit
* test/src/chartab-tests.el (chartab-test-char-table-extra-slot): Fix
test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/chartab-tests.el | 2 |
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 |