Mercurial > hg > xemacs-beta
comparison tests/automated/lisp-tests.el @ 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 | 1d11ecca9cd0 |
| children | 1e3cf11fa27d |
comparison
equal
deleted
inserted
replaced
| 4581:c02fdef8db8b | 4582:00ed9903a988 |
|---|---|
| 1328 (Assert (null (string-match awkward-regexp printed-with-uninterned | 1328 (Assert (null (string-match awkward-regexp printed-with-uninterned |
| 1329 (1+ first-match-start))))) | 1329 (1+ first-match-start))))) |
| 1330 | 1330 |
| 1331 (let ((char-table-with-string #s(char-table data (?\x00 "text"))) | 1331 (let ((char-table-with-string #s(char-table data (?\x00 "text"))) |
| 1332 (char-table-with-symbol #s(char-table data (?\x00 text)))) | 1332 (char-table-with-symbol #s(char-table data (?\x00 text)))) |
| 1333 (Assert (not (string-equal char-table-with-string char-table-with-symbol)) | 1333 (Assert (not (string-equal (prin1-to-string char-table-with-string) |
| 1334 (prin1-to-string char-table-with-symbol))) | |
| 1334 "Check that char table elements are quoted correctly when printing")) | 1335 "Check that char table elements are quoted correctly when printing")) |
| 1335 | 1336 |