Mercurial > octave
changeset 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 | a281de7620d7 |
children | e8031005eb18 |
files | scripts/specfun/betainc.m scripts/specfun/expint.m |
diffstat | 2 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/specfun/betainc.m Mon Mar 26 16:49:40 2018 -0700 +++ b/scripts/specfun/betainc.m Fri Mar 23 15:43:59 2018 +0100 @@ -212,6 +212,10 @@ %! assert (betainc (0, a, b), zeros (20)); %! assert (betainc (1, a, b), ones (20)); +%!test <34405> +%! assert (betainc (NaN, 1, 2), NaN); +%! assert (betainc (0.5, 1, Inf), NaN); + ## Test input validation %!error betainc () %!error betainc (1)
--- 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")