Mercurial > hg > xemacs-beta
changeset 4582:00ed9903a988
Fix make check after my last change.
2009-01-18 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el: (char-table-with-string):
That was remiss of me, I should have checked before commiting that
last changed. Fixed, the char tables are now actually printed.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 18 Jan 2009 12:56:51 +0000 |
| parents | c02fdef8db8b |
| children | 2669b1b7e33b 732e3243f2e4 c83cab5a4f04 |
| files | tests/ChangeLog tests/automated/lisp-tests.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/tests/ChangeLog Sun Jan 18 12:51:25 2009 +0000 +++ b/tests/ChangeLog Sun Jan 18 12:56:51 2009 +0000 @@ -1,3 +1,9 @@ +2009-01-18 Aidan Kehoe <kehoea@parhasard.net> + + * automated/lisp-tests.el: (char-table-with-string): + That was remiss of me, I should have checked before commiting that + last changed. Fixed, the char tables are now actually printed. + 2009-01-18 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el:
--- a/tests/automated/lisp-tests.el Sun Jan 18 12:51:25 2009 +0000 +++ b/tests/automated/lisp-tests.el Sun Jan 18 12:56:51 2009 +0000 @@ -1330,6 +1330,7 @@ (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)) + (Assert (not (string-equal (prin1-to-string char-table-with-string) + (prin1-to-string char-table-with-symbol))) "Check that char table elements are quoted correctly when printing"))