0.7.8.7:

[sbcl.git] / tests / seq.impure.lisp

diff --git a/tests/seq.impure.lisp b/tests/seq.impure.lisp
index 1339374..ef70526 100644 (file)
--- a/tests/seq.impure.lisp
+++ b/tests/seq.impure.lisp
@@ -196,7 +196,16 @@
   ;; physical ARRAY-DIMENSION 0.
   ;;
   ;; fixed in sbcl-0.7.4.22 by WHN
-  (assert (null (ignore-errors (subseq avec 1 5)))))
+  (assert (null (ignore-errors (aref (subseq avec 1 5) 0)))))
+
+;;; FILL
+(defun test-fill-typecheck (x)
+  (declare (optimize (safety 3) (space 2) (speed 1)))
+  (fill (make-string 10) x))
+
+(assert (string= (test-fill-typecheck #\@) "@@@@@@@@@@"))
+;;; BUG 186, fixed in sbcl-0.7.5.5
+(assert (null (ignore-errors (test-fill-typecheck 4097))))
 
 ;;; success
 (quit :unix-status 104)