numberp.lsp 451 Bytes
Newer Older
1 2 3 4 5 6 7 8
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sat Sep  6 18:20:36 2003
;;;; Contains: Tests of NUMBERP

(in-package :cl-test)

(deftest numberp.error.1
9 10
  (signals-error (numberp) program-error)
  t)
11 12

(deftest numberp.error.2
13 14
  (signals-error (numberp 0 nil) program-error)
  t)
15 16

(deftest numberp.error.3
17 18
  (signals-error (numberp 'a nil nil) program-error)
  t)
19 20

(deftest numberp.1
21
  (check-type-predicate #'numberp 'number)
22
  nil)