Mercurial > hg > octave-nkf

comparison scripts/testfun/assert.m @ 17907:6a381b9ae055

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
17906:c757f5421ecc 17907:6a381b9ae055
403 %!error <Dimensions don't match> assert ([3,3; 3,3], 3) 403 %!error <Dimensions don't match> assert ([3,3; 3,3], 3)
404 %!assert (3, 3) 404 %!assert (3, 3)
405 %!error <Abs err 1 exceeds tol> assert (3, 4) 405 %!error <Abs err 1 exceeds tol> assert (3, 4)
406 %!assert (3+eps, 3, eps) 406 %!assert (3+eps, 3, eps)
407 %!assert (3, 3+eps, eps) 407 %!assert (3, 3+eps, eps)
408 %!error <Abs err 4.4409e-16 exceeds tol> assert (3+2*eps, 3, eps) 408 %!error <Abs err 4.4409e-0?16 exceeds tol> assert (3+2*eps, 3, eps)
409 %!error <Abs err 4.4409e-16 exceeds tol> assert (3, 3+2*eps, eps) 409 %!error <Abs err 4.4409e-0?16 exceeds tol> assert (3, 3+2*eps, eps)
410 410
411 ## vectors 411 ## vectors
412 %!assert ([1,2,3],[1,2,3]); 412 %!assert ([1,2,3],[1,2,3]);
413 %!assert ([1;2;3],[1;2;3]); 413 %!assert ([1;2;3],[1;2;3]);
414 %!error <Abs err 1 exceeds tol 0> assert ([2,2,3,3],[1,2,3,4]); 414 %!error <Abs err 1 exceeds tol 0> assert ([2,2,3,3],[1,2,3,4]);
441 %!error <Rel err .* exceeds tol> assert (100+300*eps, 100, -2*eps) 441 %!error <Rel err .* exceeds tol> assert (100+300*eps, 100, -2*eps)
442 %!error <Rel err .* exceeds tol> assert (100, 100+300*eps, -2*eps) 442 %!error <Rel err .* exceeds tol> assert (100, 100+300*eps, -2*eps)
443 443
444 ## test relative vs. absolute tolerances 444 ## test relative vs. absolute tolerances
445 %!test assert (0.1+eps, 0.1, 2*eps); 445 %!test assert (0.1+eps, 0.1, 2*eps);
446 %!error <Rel err 2.2204e-15 exceeds tol> assert (0.1+eps, 0.1, -2*eps); 446 %!error <Rel err 2.2204e-0?15 exceeds tol> assert (0.1+eps, 0.1, -2*eps);
447 %!test assert (100+100*eps, 100, -2*eps); 447 %!test assert (100+100*eps, 100, -2*eps);
448 %!error <Abs err 2.8422e-14 exceeds tol> assert (100+100*eps, 100, 2*eps); 448 %!error <Abs err 2.8422e-0?14 exceeds tol> assert (100+100*eps, 100, 2*eps);
449 449
450 ## Corner case of relative tolerance with 0 divider 450 ## Corner case of relative tolerance with 0 divider
451 %!error <Abs err 2 exceeds tol 0.1> assert (2, 0, -0.1) 451 %!error <Abs err 2 exceeds tol 0.1> assert (2, 0, -0.1)
452 452
453 ## Extra checking of inputs when tolerance unspecified. 453 ## Extra checking of inputs when tolerance unspecified.