Fix tests.
original commit: 678451f8c41601eaa8b82bb101c0ad2051f447b8
This commit is contained in:
parent
91f639247e
commit
d5bd8a61e9
|
@ -210,8 +210,8 @@
|
|||
(tc-e (flexpt -2.0 -0.5) -Flonum) ; NaN
|
||||
(tc-e (angle -1) -Real)
|
||||
(tc-e (angle 2.3) -Zero)
|
||||
(tc-e (magnitude 3/4) -Rat)
|
||||
(tc-e (magnitude 3+2i) -Real)
|
||||
(tc-e (magnitude 3/4) -NonNegRat)
|
||||
(tc-e (magnitude 3+2i) -NonNegReal)
|
||||
|
||||
[tc-e/t (lambda: () 3) (t:-> -PosByte : -true-lfilter)]
|
||||
[tc-e/t (lambda: ([x : Number]) 3) (t:-> N -PosByte : -true-lfilter)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user