Mercurial > octave

changeset 27961:27a5cc0614f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
integral.m: Fix failing BIST test after changes to quadgk. integral.m: Use correct expected value for complex path integral BIST test.
author Rik <rik@octave.org>
date Sat, 18 Jan 2020 05:38:18 -0800
parents 6a37ebaeeb28
children 3b8d21ff0ca6
files scripts/general/integral.m
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/general/integral.m	Fri Jan 17 22:40:15 2020 +0100
+++ b/scripts/general/integral.m	Sat Jan 18 05:38:18 2020 -0800
@@ -245,14 +245,14 @@
 ## tests from quadgk
 %!assert (integral (@sin,-pi,pi, "WayPoints",0, "AbsTol",1e-6, "RelTol",1e-3),
 %!        0, 1e-6)
-%!assert (integral (@(x) abs (1 - x.^2), 0, 2, "Waypoints", 1), 2, 1e-10);
-%!assert (integral (@(z) log (z),1+i,1+i, "WayPoints", [1-i, -1,-i, -1+i]),
-%!        -pi * 1i, 1e-10);
+%!assert (integral (@(x) abs (1 - x.^2), 0, 2, "Waypoints", 1), 2, 1e-10)
+%!assert (integral (@(z) log (z),1+1i,1+1i, "WayPoints", [1-1i, -1,-1i, -1+1i]),
+%!        complex (0, pi), 1e-10)
 
 ## tests from quadv
 ## Test vector-valued functions
 %!assert (integral (@(x) [(sin (x)), (sin (2*x))], 0, pi, "ArrayValued", 1),
-%!        [2, 0], 1e-10);
+%!        [2, 0], 1e-10)
 
 ## Test matrix-valued functions
 %!test