random-state-p.lsp 564 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sat Sep  6 17:50:04 2003
;;;; Contains: Tests of RANDOM-STATE-P

6

7 8

(deftest random-state-p.error.1
9 10
  (signals-error (random-state-p) program-error)
  t)
11 12

(deftest random-state-p.error.2
13 14
  (signals-error (random-state-p nil nil) program-error)
  t)
15 16

(deftest random-state-p.1
17
  (check-type-predicate #'random-state-p 'random-state)
18 19 20 21 22 23 24 25 26
  nil)

(deftest random-state-p.2
  (notnot-mv (random-state-p *random-state*))
  t)

(deftest random-state-p.3
  (notnot-mv (random-state-p (make-random-state)))
  t)