vectorp.lsp 1.08 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Jan 26 13:17:05 2003
;;;; Contains: Tests for VECTORP

(in-package :cl-test)

(deftest vectorp.1
  (vectorp 1)
  nil)

(deftest vectorp.2
  (vectorp (1+ most-positive-fixnum))
  nil)

(deftest vectorp.3
  (vectorp #\a)
  nil)

(deftest vectorp.4
  (vectorp 10.0)
  nil)

(deftest vectorp.5
  (vectorp #'(lambda (x y) (cons y x)))
  nil)

(deftest vectorp.6
  (vectorp '(a b))
  nil)

(deftest vectorp.7
  (vectorp #0aT)
  nil)

(deftest vectorp.8
  (vectorp #2a((a b)(c d)))
  nil)

(deftest vectorp.9
  (notnot-mv (vectorp "abcd"))
  t)

(deftest vectorp.10
  (notnot-mv (vectorp #*))
  t)

(deftest vectorp.11
  (notnot-mv (vectorp #*1101))
  t)

(deftest vectorp.12
  (notnot-mv (vectorp ""))
  t)

(deftest vectorp.13
  (notnot-mv (vectorp #(1 2 3)))
  t)

(deftest vectorp.14
  (notnot-mv (vectorp #()))
  t)

(deftest vectorp.15
  (vectorp #b11010)
  nil)

;;; Error tests

(deftest vectorp.error.1
71 72
  (signals-error (vectorp) program-error)
  t)
73 74

(deftest vectorp.error.2
75 76
  (signals-error (vectorp #() #()) program-error)
  t)
77 78 79 80 81 82