2
;;;; Author: Paul Dietz
3
;;;; Created: Mon Sep 1 13:49:18 2003
4
;;;; Contains: Tests of RATIONAL
8
(deftest rational.error.1
9
(signals-error (rational) program-error)
12
(deftest rational.error.2
13
(signals-error (rational 0 nil) program-error)
16
(deftest rational.error.3
17
(signals-error (rational 0 0) program-error)
20
(deftest rational.error.4
21
(loop for x in *mini-universe*
23
(eval `(signals-error (rational ',x) type-error)))
28
(loop for x in (loop for r in *reals*
29
when (or (not (floatp r))
30
(<= -1000 (nth-value 1 (integer-decode-float r)) 1000))
33
unless (and (rationalp r)
41
(loop for type in '(short-float single-float double-float long-float)
43
(loop for i from -10000 to 10000
44
for x = (coerce i type)
46
count (not (eql r i))))
50
(loop for type in '(short-float single-float double-float long-float)
51
for bound in '(1.0s5 1.0f10 1.0d20 1.0l30)
53
(loop for x = (random-from-interval bound)
57
unless (and (rationalp r) (= x x2))
58
collect (list x r x2)))
b'\\ No newline at end of file'