floatp.lsp 471 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Thu Sep 11 23:07:33 2003
;;;; Contains: Tests of FLOATP

6

7

8 9
;;; Error tests

10
(deftest floatp.error.1
11 12
  (signals-error (floatp) program-error)
  t)
13 14

(deftest floatp.error.2
15 16 17 18
  (signals-error (floatp 1.0 nil) program-error)
  t)

;;; Non-error tests
19 20 21 22 23 24 25 26 27 28

(deftest floatp.1
  (notnot-mv (floatp 1.0))
  t)

(deftest floatp.2
  (floatp nil)
  nil)

(deftest floatp.3
29
  (check-type-predicate #'floatp 'float)
30 31
  nil)