X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Farray.pure.lisp;h=2088758e00d386a851fd6a273066564460b3980a;hb=2ff0ff83dacac9fb25a31f5783b6ea8c0442bc2c;hp=21088fc694fbf09ff2aade08dae54c574dc16fc4;hpb=fb2656c40ff25482dcf3519c3d0fab510216f983;p=sbcl.git diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp index 21088fc..2088758 100644 --- a/tests/array.pure.lisp +++ b/tests/array.pure.lisp @@ -246,6 +246,17 @@ (assert (eq 'fixnum (array-element-type (sb-ext:array-storage-vector (make-array '(3 4 5) :element-type 'fixnum))))) - (assert (equalp (vector 1 2 3 4 0) - (sb-ext:array-storage-vector - (make-array 5 :fill-pointer 4)))))) + (assert (not (array-has-fill-pointer-p + (sb-ext::array-storage-vector + (make-array 5 :fill-pointer 4))))))) + +(with-test (:name invalid-array-index-error) + (let ((array (make-array '(3 3 3)))) + (assert + (eq :right + (handler-case + (eval `(aref ,array 0 1 3)) + (sb-int:invalid-array-index-error (e) + (when (and (eq array (sb-kernel::invalid-array-index-error-array e)) + (= 3 (type-error-datum e))) + :right)))))))