2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Sep 6 17:50:04 2003
4
;;;; Contains: Tests of RANDOM-STATE-P
8
(deftest random-state-p.error.1
9
(signals-error (random-state-p) program-error)
12
(deftest random-state-p.error.2
13
(signals-error (random-state-p nil nil) program-error)
16
(deftest random-state-p.1
17
(loop for x in *universe*
18
when (if (typep x 'random-state)
19
(not (random-state-p x))
24
(deftest random-state-p.2
25
(notnot-mv (random-state-p *random-state*))
28
(deftest random-state-p.3
29
(notnot-mv (random-state-p (make-random-state)))