packagep.lsp 472 Bytes
Newer Older
1 2 3 4 5 6 7 8
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Feb 22 06:51:38 2004
;;;; Contains: Tests of PACKAGEP

(in-package :cl-test)

(deftest packagep.1
9 10
  (check-type-predicate #'packagep 'package)
  nil)
11 12 13 14 15 16 17 18 19 20 21 22 23 24

;;; *package* is always a package

(deftest packagep.2
  (not-mv (packagep *package*))
  nil)

(deftest packagep.error.1
  (signals-error (packagep) program-error)
  t)

(deftest packagep.error.2
  (signals-error (packagep nil nil) program-error)
  t)