Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 4580:1d11ecca9cd0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print char table values correctly. src/ChangeLog addition: 2009-01-16 Aidan Kehoe <kehoea@parhasard.net> * chartab.c (print_table_entry): Print char table values correctly, eliminating some confusion between symbols and strings. tests/ChangeLog addition: 2009-01-18 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Check that a bug I fixed in char table printing is really gone.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 18 Jan 2009 12:49:53 +0000
parents eecd28508f4a
children 00ed9903a988
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el	Tue Jan 13 12:07:27 2009 +0000
+++ b/tests/automated/lisp-tests.el	Sun Jan 18 12:49:53 2009 +0000
@@ -1327,3 +1327,9 @@
 					printed-with-uninterned)))
   (Assert (null (string-match awkward-regexp printed-with-uninterned
 			      (1+ first-match-start)))))
+
+(let ((char-table-with-string #s(char-table data (?\x00 "text")))
+      (char-table-with-symbol #s(char-table data (?\x00 text))))
+  (Assert (not (string-equal char-table-with-string char-table-with-symbol))
+          "Check that char table elements are quoted correctly when printing"))
+