Changeset 9d3daf46c3e396941c8eb43209a45c0105217840

Timestamp:

03/21/12 18:58:02 (14 months ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

4b332ed2140e56c6fcaa689e6b8a48be36c988f6

Parents:

0d5870201359817c679921a2d740fdd1697469b2

git-committer:

Raymond Toy <toy.raymond@…> (03/21/12 18:58:02)

Message:

Add a few tests for exp-integral-e. More needed.

Files:

• rt-tests.lisp (modified) (1 diff)

rt-tests.lisp

@@ -1364 +1364 @@
   nil)
 
+(rt:deftest expintegral-e.1d
+    (let* ((z 1d0)
+           (e (exp-integral-e 0 z))
+           (true (/ (exp (- z)) z)))
+      (check-accuracy 53 e true))
+  nil)
+
+(rt:deftest expintegral-e.1q
+    (let* ((z #q1)
+           (e (exp-integral-e 0 z))
+           (true (/ (exp (- z)) z)))
+      (check-accuracy 212 e true))
+  nil)
+
+(rt:deftest expintegral-e.2d
+    (let* ((z 15d0)
+           (e (exp-integral-e 0 z))
+           (true (/ (exp (- z)) z)))
+      (check-accuracy 53 e true))
+  nil)
+
+(rt:deftest expintegral-e.2q
+    (let* ((z #q15)
+           (e (exp-integral-e 0 z))
+           (true (/ (exp (- z)) z)))
+      (check-accuracy 212 e true))
+  nil)
+
+(rt:deftest expintegral-e.3d
+    (let* ((e (exp-integral-e 2 1d0))
+           (true 0.14849550677592204791835999d0))
+      (check-accuracy 47.5 e true))
+  nil)