--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/automated/lisp-reader-tests.el	Fri Aug 04 22:55:19 2006 +0000
@@ -0,0 +1,80 @@
+;; Copyright (C) 2005 Martin Kuehl.
+
+;; Author: Martin Kuehl <martin.kuehl@gmail.com>
+;; Maintainer: Martin Kuehl <martin.kuehl@gmail.com>
+;; Created: 2005
+;; Keywords: tests
+
+;; This file is NOT part of SXEmacs.
+
+;; SXEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; SXEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with SXEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: Not in FSF.
+
+;;; Commentary:
+
+;; Test the lisp reader.
+;; See test-harness.el for instructions on how to run these tests.
+
+;;; Raw Strings
+;;; ===========
+
+;; Equality to "traditional" strings
+;; ---------------------------------
+(dolist (strings '((#r"xyz"   "xyz")	 ; no backslashes
+		   (#r"\xyz"  "\\xyz")   ; backslash at start
+                   (#r"\\xyz" "\\\\xyz") ; backslashes at start
+                   (#r"\nxyz" "\\nxyz")  ; escape seq. at start
+                   (#r"\"xyz" "\\\"xyz") ; quote at start
+                   (#r"xy\z"  "xy\\z")   ; backslash in middle
+                   (#r"xy\\z" "xy\\\\z") ; backslashes in middle
+                   (#r"xy\nz" "xy\\nz")  ; escape seq. in middle
+                   (#r"xy\"z" "xy\\\"z") ; quote in middle
+                   ;;(#r"xyz\"  "xyz\\")   ; backslash at end: error
+                   (#r"xyz\\" "xyz\\\\") ; backslashes at end
+                   (#r"xyz\n" "xyz\\n")  ; escape seq. at end
+                   (#r"xyz\"" "xyz\\\"") ; quote at end
+		   (#ru"\u00ABxyz" "\u00ABxyz") ; one Unicode escape
+		   (#rU"\U000000ABxyz" "\U000000ABxyz") ; another Unicode escape
+		   (#rU"xyz\u00AB" "xyz\u00AB") ; one Unicode escape
+                   ))
+  (Assert (apply #'string= strings)))
+
+;; Odd number of backslashes at the end
+;; ------------------------------------
+(dolist (string '("#r\"xyz\\\""         ; `#r"abc\"': escaped delimiter
+                  "#r\"xyz\\\\\\\""     ; `#r"abc\\\"': escaped delimiter
+                  ))
+  (with-temp-buffer
+    (insert string)
+    (Check-Error end-of-file (eval-buffer))))
+
+;; Alternate string/regex delimiters
+;; ---------------------------------
+(dolist (string '("#r/xyz/"             ; Perl syntax
+                  "#r:ix/xyz/"          ; Extended Perl syntax
+                  "#r|xyz|"             ; TeX syntax
+                  "#r[xyz]"             ; (uncommon) Perl syntax
+                  "#r<xyz>"             ; Perl6 syntax?
+                  "#r(xyz)"             ; arbitrary santax
+                  "#r{xyz}"             ; arbitrary santax
+                  "#r,xyz,"             ; arbitrary santax
+                  "#r!xyz!"             ; arbitrary santax
+                  ))
+  (with-temp-buffer
+    (insert string)
+    (Check-Error-Message invalid-read-syntax "unrecognized raw string"
+                         (eval-buffer))))