source: project/release/4/mathh/trunk/tests/run.scm @ 14004

Last change on this file since 14004 was 14004, checked in by Kon Lovett, 11 years ago

Added routines

File size: 1.7 KB
Line 
1;;;; mathh-test
2
3(require-extension test)
4(require-extension mathh)
5
6(include "mathh-constants")
7
8(test-group "ISO C Functions"
9
10        (test 1.0 (bessel-j0 0.0))
11        (test 0.0 (bessel-j1 0.0))
12        (test 1.0 (bessel-jn 0 0.0))
13        (test 0.0 (bessel-jn 1 0.0))
14
15        (test 0.088256964215677 (bessel-y0 1.0))
16        (test -0.781212821300289 (bessel-y1 1.0))
17        (test 0.088256964215677 (bessel-yn 0 1.0))
18        (test -0.781212821300289 (bessel-yn 1 1.0))
19
20        (test 1.0 (cosh 0.0))
21        (test 0.0 (sinh 0.0))
22        (test 0.0 (tanh 0.0))
23
24        (test 5.0 (hypot -5.0 0))
25
26        (test 1.0 (tgamma 1.0))
27        (test 0.0 (lgamma 1.0))
28
29        (test 2.0 (log10 100.0))
30        (test 3.0 (log2 8.0))
31        (test 0.0 (log1p 0.0))
32
33        (test 0.0 (fpmod 0.0 1.0))
34
35        (test (values 5.0 0.5) (modf 5.5))
36
37        (test 20.0 (ldexp 5.0 2))
38
39        (test 20.0 (scalbn 5.0 2))
40
41        (test (values 0.536870912 -30) (frexp 5.0e-10))
42)
43
44(test-group "Math Constants"
45
46        ; Well, some
47        (test SQRT2 (sqrt 2.0))
48        (test DEGREE (/ PI 180.0))
49        (test LN2 (log 2.0))
50        (test LOG2E (log2 E))
51)
52
53(test-group "Function fpclass"
54
55        (test 'negative-infinite (fpclass -inf.0))
56        (test 'signaling-nan (fpclass -nan.0))
57        (test 'negative-zero (fpclass -0.0))
58        (test 'positive-normal (fpclass 0.741573033707865))
59        (test 'positive-normal (fpclass (fp/ 33.0 44.5)))
60)
61
62(test-group "Function fpclassify"
63
64        (test 'infinite (fpclassify -inf.0))
65        (test 'nan (fpclassify -nan.0))
66        (test 'zero (fpclassify -0.0))
67        (test 'normal (fpclassify 0.741573033707865))
68        (test 'normal (fpclassify (fp/ 33.0 44.5)))
69)
70
71(test-group "BSD Functions"
72
73        (test-assert (signbit -1.0))
74        (test-assert (not (signbit 1.0)))
75        (test-assert (signbit -0.0))
76
77        (test -1.0 (copysign 1.0 -1.0))
78        (test 1.0 (copysign -1.0 1.0))
79
80        (test 1.0 (nextafter 1.0 -1.0))
81        (test -1.0 (nextafter -1.0 1.0))
82
83        (test 2.4662 (cbrt 15.0))
84)
Note: See TracBrowser for help on using the repository browser.