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
71
72
73
74
75
76
77
78
79
80
81
82
|
;-*- 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
(signals-error (vectorp) program-error)
t)
(deftest vectorp.error.2
(signals-error (vectorp #() #()) program-error)
t)
|
