Mercurial > octave
diff scripts/specfun/expint.m @ 25015:baa7e37453b1 stable
Added more tests for betainc and expint.
* betainc.m: Added to show that bug #34405 is solved.
* expint.m: Added tests to show that bugs #53351 and #47738 are solved.
| author | Michele Ginesi <michele.ginesi@gmail.com> |
|---|---|
| date | Fri, 23 Mar 2018 15:43:59 +0100 |
| parents | c280560d9c96 |
| children | d7ad543255c5 |
line wrap: on
line diff
--- a/scripts/specfun/expint.m Mon Mar 26 16:49:40 2018 -0700 +++ b/scripts/specfun/expint.m Fri Mar 23 15:43:59 2018 +0100 @@ -238,6 +238,15 @@ %! y = expint (x); %! assert (y, y_exp, 5*eps); +%!test <53351> +%! assert (expint (32.5 + 1i), +%! 1.181108930758065e-16 - 1.966348533426658e-16i, -4*eps); +%! assert (expint (44 + 1i), +%! 9.018757389858152e-22 - 1.475771020004195e-21i, -4*eps); + +%!test <47738> +%! assert (expint (10i), 0.0454564330044554 + 0.0875512674239774i, -4*eps); + ## Test preservation or conversion of the class %!assert (class (expint (single (1))), "single") %!assert (class (expint (int8 (1))), "double")