Mercurial > hg > xemacs-beta
annotate tests/automated/lisp-reader-tests.el @ 5368:ed74d2ca7082
Use ', not #', when a given symbol may not have a function binding at read time
2011-03-10 Aidan Kehoe <kehoea@parhasard.net>
* cmdloop.el (yes-or-no-p):
* cmdloop.el (y-or-n-p):
* descr-text.el (describe-char):
* diagnose.el (show-memory-usage):
* diagnose.el (show-object-memory-usage-stats):
* diagnose.el (show-mc-alloc-memory-usage):
* diagnose.el (show-gc-stats):
* faces.el (face-font-instance):
* gtk-font-menu.el (gtk-reset-device-font-menus):
* help.el (help-symbol-function-context-menu):
* help.el (help-symbol-variable-context-menu):
* help.el (help-symbol-function-and-variable-context-menu):
* help.el (help-find-source-or-scroll-up):
* help.el (help-mouse-find-source-or-track):
* help.el (temp-buffer-resize-mode):
* minibuf.el (mouse-read-file-name-1):
* obsolete.el (find-non-ascii-charset-string):
* obsolete.el (find-non-ascii-charset-region):
* occur.el (occur-engine):
* paragraphs.el (forward-paragraph):
* paragraphs.el (forward-sentence):
* select.el (activate-region-as-selection):
* select.el (select-make-extent-for-selection):
* simple.el (zmacs-make-extent-for-region):
Use quote, not function, for quoting symbols that may not be
fboundp at the point they are read (again, a style issue, since
Common Lisp throws an error on this, but we don't, and have no
plans to.)
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Thu, 10 Mar 2011 18:51:15 +0000 |
parents | e6508b64ee08 |
children | b9167d522a9a |
rev | line source |
---|---|
3543 | 1 ;; Copyright (C) 2005 Martin Kuehl. |
2 | |
3 ;; Author: Martin Kuehl <martin.kuehl@gmail.com> | |
4 ;; Maintainer: Martin Kuehl <martin.kuehl@gmail.com> | |
5 ;; Created: 2005 | |
6 ;; Keywords: tests | |
7 | |
5290
e6508b64ee08
More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3543
diff
changeset
|
8 ;; This file is part of XEmacs. |
3543 | 9 |
5290
e6508b64ee08
More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3543
diff
changeset
|
10 ;; XEmacs is free software; you can redistribute it and/or modify it |
3543 | 11 ;; under the terms of the GNU General Public License as published by |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
5290
e6508b64ee08
More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3543
diff
changeset
|
15 ;; XEmacs is distributed in the hope that it will be useful, but |
3543 | 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
18 ;; General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
5290
e6508b64ee08
More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3543
diff
changeset
|
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free |
3543 | 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA |
23 ;; 02111-1307, USA. | |
24 | |
25 ;;; Synched up with: Not in FSF. | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;; Test the lisp reader. | |
30 ;; See test-harness.el for instructions on how to run these tests. | |
31 | |
32 ;;; Raw Strings | |
33 ;;; =========== | |
34 | |
35 ;; Equality to "traditional" strings | |
36 ;; --------------------------------- | |
37 (dolist (strings '((#r"xyz" "xyz") ; no backslashes | |
38 (#r"\xyz" "\\xyz") ; backslash at start | |
39 (#r"\\xyz" "\\\\xyz") ; backslashes at start | |
40 (#r"\nxyz" "\\nxyz") ; escape seq. at start | |
41 (#r"\"xyz" "\\\"xyz") ; quote at start | |
42 (#r"xy\z" "xy\\z") ; backslash in middle | |
43 (#r"xy\\z" "xy\\\\z") ; backslashes in middle | |
44 (#r"xy\nz" "xy\\nz") ; escape seq. in middle | |
45 (#r"xy\"z" "xy\\\"z") ; quote in middle | |
46 ;;(#r"xyz\" "xyz\\") ; backslash at end: error | |
47 (#r"xyz\\" "xyz\\\\") ; backslashes at end | |
48 (#r"xyz\n" "xyz\\n") ; escape seq. at end | |
49 (#r"xyz\"" "xyz\\\"") ; quote at end | |
50 (#ru"\u00ABxyz" "\u00ABxyz") ; one Unicode escape | |
51 (#rU"\U000000ABxyz" "\U000000ABxyz") ; another Unicode escape | |
52 (#rU"xyz\u00AB" "xyz\u00AB") ; one Unicode escape | |
53 )) | |
54 (Assert (apply #'string= strings))) | |
55 | |
56 ;; Odd number of backslashes at the end | |
57 ;; ------------------------------------ | |
58 (dolist (string '("#r\"xyz\\\"" ; `#r"abc\"': escaped delimiter | |
59 "#r\"xyz\\\\\\\"" ; `#r"abc\\\"': escaped delimiter | |
60 )) | |
61 (with-temp-buffer | |
62 (insert string) | |
63 (Check-Error end-of-file (eval-buffer)))) | |
64 | |
65 ;; Alternate string/regex delimiters | |
66 ;; --------------------------------- | |
67 (dolist (string '("#r/xyz/" ; Perl syntax | |
68 "#r:ix/xyz/" ; Extended Perl syntax | |
69 "#r|xyz|" ; TeX syntax | |
70 "#r[xyz]" ; (uncommon) Perl syntax | |
71 "#r<xyz>" ; Perl6 syntax? | |
72 "#r(xyz)" ; arbitrary santax | |
73 "#r{xyz}" ; arbitrary santax | |
74 "#r,xyz," ; arbitrary santax | |
75 "#r!xyz!" ; arbitrary santax | |
76 )) | |
77 (with-temp-buffer | |
78 (insert string) | |
79 (Check-Error-Message invalid-read-syntax "unrecognized raw string" | |
80 (eval-buffer)))) |