Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv4601/tests
Modified Files:
reader.pure.lisp
Log Message:
1.0.36.21: stricter handling of invalid backquote expressions
Based on patch by: Stas Boukarev <stassats@...>
Fixed launchpad bug #309093.
Index: reader.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/reader.pure.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- reader.pure.lisp 4 Jan 2010 15:55:21 -0000 1.17
+++ reader.pure.lisp 12 Mar 2010 09:38:25 -0000 1.18
@@ -254,4 +254,11 @@
(multiple-value-bind (reader-fn non-terminating-p)
(get-macro-character #\" (copy-readtable nil))
(declare (ignore reader-fn))
- (assert (not non-terminating-p))))
\ No newline at end of file
+ (assert (not non-terminating-p))))
+
+(with-test (:name :bug-309093)
+ (assert (eq :error
+ (handler-case
+ (read-from-string "`#2A((,(1+ 0) 0) (0 0))")
+ (reader-error ()
+ :error)))))
|