symbolp.lsp 547 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Jun 22 08:59:12 2003
;;;; Contains: Tests for SYMBOLP

(in-package :cl-test)

(deftest symbolp.1
  (notnot-mv (symbolp nil))
  t)

(deftest symbolp.2
13
  (check-predicate #'symbolp nil *symbols*)
14 15 16
  nil)

(deftest symbolp.3
17
  (check-predicate (complement #'symbolp) #'(lambda (x) (member x *symbols*)))
18 19 20 21 22
  nil)

;;; Error cases

(deftest symbolp.error.1
23 24
  (signals-error (symbolp) program-error)
  t)
25 26

(deftest symbolp.error.2
27 28
  (signals-error (symbolp nil nil) program-error)
  t)