Mercurial > hg > xemacs-beta
comparison tests/automated/symbol-tests.el @ 4381:3906442b491b
Improve style and add tests for 'built-in-symbol-file'.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Thu, 03 Jan 2008 01:33:59 -0800 |
| parents | aa15a2bbba1a |
| children | 189fb67ca31a |
comparison
equal
deleted
inserted
replaced
| 4380:461fdb92f3b6 | 4381:3906442b491b |
|---|---|
| 330 ; (lambda (&rest args) | 330 ; (lambda (&rest args) |
| 331 ; (throw 'test-tag args))) | 331 ; (throw 'test-tag args))) |
| 332 ; (Assert (equal (catch 'test-tag | 332 ; (Assert (equal (catch 'test-tag |
| 333 ; (set mysym 'foo)) | 333 ; (set mysym 'foo)) |
| 334 ; `(,mysym (foo) make-local nil nil)))) | 334 ; `(,mysym (foo) make-local nil nil)))) |
| 335 | |
| 336 ;; ---------------------------------------------------------------- | |
| 337 ;; Symbol documentation | |
| 338 ;; ---------------------------------------------------------------- | |
| 339 | |
| 340 ;; built-in variable documentation | |
| 341 (Assert (string= (built-in-symbol-file 'internal-doc-file-name) | |
| 342 "doc.c")) | |
| 343 | |
| 344 ;; built-in function documentation | |
| 345 (Assert (string= (built-in-symbol-file 'built-in-symbol-file) | |
| 346 "doc.c")) | |
| 347 | |
| 348 ;; built-in macro documentation | |
| 349 (Assert (string= (built-in-symbol-file 'when) | |
| 350 "eval.c")) | |
| 351 | |
| 352 ;; #### we should handle symbols defined in Lisp, dumped, autoloaded, | |
| 353 ;; and required, too. | |
| 354 |