From: Alexey D. <ade...@us...> - 2003-07-22 06:17:04
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv20766/tests Modified Files: reader.pure.lisp Log Message: 0.8.1.53: * Export SB-KERNEL::READER-EOF-EROR (bug reported by Nikodemus Siivola). Index: reader.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/reader.pure.lisp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- reader.pure.lisp 8 Jan 2003 10:59:12 -0000 1.6 +++ reader.pure.lisp 22 Jul 2003 05:45:25 -0000 1.7 @@ -76,10 +76,18 @@ (assert (= (parse-integer " 12asdb" :junk-allowed t) 12))) ;;; #A notation enforces that once one 0 dimension has been found, all -;;; subsequent ones are also 0. +;;; subsequent ones are also 0. (assert (equal (array-dimensions (read-from-string "#3A()")) '(0 0 0))) (assert (equal (array-dimensions (read-from-string "#3A(())")) '(1 0 0))) (assert (equal (array-dimensions (read-from-string "#3A((() ()))")) '(1 2 0))) + +;;; Bug reported by Nikodemus Siivola on sbcl-devel 2003-07-21: +;;; package misconfiguration +(assert (eq + (handler-case (with-input-from-string (s "cl:") (read s)) + (end-of-file (c) + 'good)) + 'good)) \ No newline at end of file |