diff options
| author | Lars Brinkhoff | 2017-04-08 07:07:32 +0200 |
|---|---|---|
| committer | Lars Brinkhoff | 2017-04-08 08:47:46 +0200 |
| commit | 4fbfd7ad53810153371a588a9bd1a69230f60dd5 (patch) | |
| tree | 22519e6adfcb3f2dc3e8ae98afde59bf1f1870f4 /test/src | |
| parent | a2b3fea957440b8358d3632a4a05e41dee964b5d (diff) | |
| download | emacs-4fbfd7ad53810153371a588a9bd1a69230f60dd5.tar.gz emacs-4fbfd7ad53810153371a588a9bd1a69230f60dd5.zip | |
Fix circular read syntax for records.
* lread.c (substitute_object_recurse): Work with records.
* lread-tests.el (lread-record-1): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/lread-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index a783afd3128..27f967f045b 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el | |||
| @@ -112,4 +112,8 @@ | |||
| 112 | (should-error (read "#24r") :type 'invalid-read-syntax) | 112 | (should-error (read "#24r") :type 'invalid-read-syntax) |
| 113 | (should-error (read "#") :type 'invalid-read-syntax)) | 113 | (should-error (read "#") :type 'invalid-read-syntax)) |
| 114 | 114 | ||
| 115 | (ert-deftest lread-record-1 () | ||
| 116 | (should (equal '(#s(foo) #s(foo)) | ||
| 117 | (read "(#1=#s(foo) #1#)")))) | ||
| 118 | |||
| 115 | ;;; lread-tests.el ends here | 119 | ;;; lread-tests.el ends here |