;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Tue Jan 21 20:32:57 2003 ;;;; Contains: Tests for ARRAY-RANK (in-package :cl-test) ;;; Most tests for ARRAY-RANK are in make-array.lsp (deftest array-rank.1 (array-rank #0aNIL) 0) (deftest array-rank.2 (loop for e in *universe* when (and (typep e 'vector) (not (eql (array-rank e) 1))) collect e) nil) ;;; Error tests (deftest array-rank.error.1 (classify-error (array-rank)) program-error) (deftest array-rank.error.2 (classify-error (array-rank #(a b c) nil)) program-error) (deftest array-rank.error.3 (loop for e in *mini-universe* when (and (not (typep e 'array)) (not (eq (classify-error** `(array-rank ',e)) 'type-error))) collect e) nil)