Commit 9d3daf46c3e396941c8eb43209a45c0105217840

Authored by Raymond Toy
1 parent 0d587020

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

Showing 1 changed file with 33 additions and 0 deletions
rt-tests.lisp
... ... @@ -1363,3 +1363,36 @@
1363 1363 (check-accuracy 212 s true))
1364 1364 nil)
1365 1365  
  1366 +(rt:deftest expintegral-e.1d
  1367 + (let* ((z 1d0)
  1368 + (e (exp-integral-e 0 z))
  1369 + (true (/ (exp (- z)) z)))
  1370 + (check-accuracy 53 e true))
  1371 + nil)
  1372 +
  1373 +(rt:deftest expintegral-e.1q
  1374 + (let* ((z #q1)
  1375 + (e (exp-integral-e 0 z))
  1376 + (true (/ (exp (- z)) z)))
  1377 + (check-accuracy 212 e true))
  1378 + nil)
  1379 +
  1380 +(rt:deftest expintegral-e.2d
  1381 + (let* ((z 15d0)
  1382 + (e (exp-integral-e 0 z))
  1383 + (true (/ (exp (- z)) z)))
  1384 + (check-accuracy 53 e true))
  1385 + nil)
  1386 +
  1387 +(rt:deftest expintegral-e.2q
  1388 + (let* ((z #q15)
  1389 + (e (exp-integral-e 0 z))
  1390 + (true (/ (exp (- z)) z)))
  1391 + (check-accuracy 212 e true))
  1392 + nil)
  1393 +
  1394 +(rt:deftest expintegral-e.3d
  1395 + (let* ((e (exp-integral-e 2 1d0))
  1396 + (true 0.14849550677592204791835999d0))
  1397 + (check-accuracy 47.5 e true))
  1398 + nil)
1366 1399 \ No newline at end of file
... ...