Mercurial > octave-nkf
diff test/test_quad.m @ 5590:1ad66ea35fe5
[project @ 2006-01-06 00:24:05 by jwe]
author | jwe |
---|---|
date | Fri, 06 Jan 2006 00:24:06 +0000 |
parents | |
children | 02c7e288f581 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/test_quad.m Fri Jan 06 00:24:06 2006 +0000 @@ -0,0 +1,34 @@ +%% Automatically generated from DejaGNU files + +%% test/octave.test/quad/quad-1.m +%!function y = f (x) +%! y = x + 1; +%!test +%! [v, ier, nfun, err] = quad ("f", 0, 5); +%! assert(ier == 0 && abs (v - 17.5) < sqrt (eps) && nfun > 0 && +%! err < sqrt (eps)) + +%% test/octave.test/quad/quad-2.m +%!function y = f (x) +%! y = x .* sin (1 ./ x) .* sqrt (abs (1 - x)); +%!test +%! [v, ier, nfun, err] = quad ("f", 0, 3); +%! assert((ier == 0 || ier == 1) && abs (v - 1.98194122455795) < sqrt (eps) && nfun > 0); + +%% test/octave.test/quad/quad-3.m +%!error <... quad:.*> quad (); + +%% test/octave.test/quad/quad-4.m +%!error <... quad:.*> quad ("f", 1, 2, 3, 4, 5); + +%% test/octave.test/quad/quad_options-1.m +%!test +%! quad_options ("absolute tolerance", eps); +%! assert(quad_options ("absolute tolerance") == eps); + +%% test/octave.test/quad/quad_options-2.m +%!error <... quad_options:.*> quad_options (); + +%% test/octave.test/quad/quad_options-3.m +%!error <... quad_options:.*> quad_options (1, 2, 3); +