[Sbcl-commits] CVS: sbcl/tests arith.impure.lisp,1.1,1.2 reader.impure.lisp,1.2,1.3

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv14113/tests

Modified Files:
	arith.impure.lisp reader.impure.lisp 
Log Message:
0.7.7.31:
	Fix BUG 51b (as per CSR sbcl-devel 2002-09-19)
	... but with s/READER-INTERNAL-ERROR/READER-IMPOSSIBLE-NUMBER-ERROR
	... and a couple more tests.
	Delete stale BUGS 131 and 168


Index: arith.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/arith.impure.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- arith.impure.lisp	16 Sep 2002 08:28:41 -0000	1.1
+++ arith.impure.lisp	19 Sep 2002 17:19:16 -0000	1.2
@@ -65,4 +65,6 @@
 (assert (null (ignore-errors (compiled-logxor #c(2 3)))))
 (assert (= (compiled-logxor -6) -6))
 
+(assert (raises-error? (coerce (expt 10 1000) 'single-float) type-error))
+
 (sb-ext:quit :unix-status 104)

Index: reader.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/reader.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- reader.impure.lisp	25 Jan 2001 18:31:50 -0000	1.2
+++ reader.impure.lisp	19 Sep 2002 17:19:17 -0000	1.3
@@ -15,6 +15,8 @@
 
 (in-package :cl-user)
 
+(load "assertoid.lisp")
+
 ;;; Bug 30, involving mistakes in binding the read table, made this
 ;;; code fail.
 (defun read-vector (stream char)
@@ -34,6 +36,11 @@
     (read-from-string "[#\\x]")
   (assert (equalp res #(#\x)))
   (assert (= pos 5)))
+
+;;; Bug 51b. (try to throw READER-ERRORs when the reader encounters
+;;; dubious input)
+(assert (raises-error? (read-from-string "1e1000") reader-error))
+(assert (raises-error? (read-from-string "1/0") reader-error))
 
 ;;; success
 (quit :unix-status 104)