Mercurial > hg > octave-nkf
diff scripts/testfun/assert.m @ 17907:6a381b9ae055
assert.m: Modify 4 failing %!error tests to accept 3 digit exponents for MinGW.
* scripts/testfun/assert.m: Modify regular expression in %!error block
"expected result" to accept either 2 or 3 digit exponents.
| author | Rik <rik@octave.org> |
|---|---|
| date | Tue, 12 Nov 2013 15:11:17 -0800 |
| parents | d63878346099 |
| children | 7994d3ce6e8e |
line wrap: on
line diff
--- a/scripts/testfun/assert.m +++ b/scripts/testfun/assert.m @@ -405,8 +405,8 @@ %!error <Abs err 1 exceeds tol> assert (3, 4) %!assert (3+eps, 3, eps) %!assert (3, 3+eps, eps) -%!error <Abs err 4.4409e-16 exceeds tol> assert (3+2*eps, 3, eps) -%!error <Abs err 4.4409e-16 exceeds tol> assert (3, 3+2*eps, eps) +%!error <Abs err 4.4409e-0?16 exceeds tol> assert (3+2*eps, 3, eps) +%!error <Abs err 4.4409e-0?16 exceeds tol> assert (3, 3+2*eps, eps) ## vectors %!assert ([1,2,3],[1,2,3]); @@ -443,9 +443,9 @@ ## test relative vs. absolute tolerances %!test assert (0.1+eps, 0.1, 2*eps); -%!error <Rel err 2.2204e-15 exceeds tol> assert (0.1+eps, 0.1, -2*eps); +%!error <Rel err 2.2204e-0?15 exceeds tol> assert (0.1+eps, 0.1, -2*eps); %!test assert (100+100*eps, 100, -2*eps); -%!error <Abs err 2.8422e-14 exceeds tol> assert (100+100*eps, 100, 2*eps); +%!error <Abs err 2.8422e-0?14 exceeds tol> assert (100+100*eps, 100, 2*eps); ## Corner case of relative tolerance with 0 divider %!error <Abs err 2 exceeds tol 0.1> assert (2, 0, -0.1)