Mercurial > hg > octave-lojdl
changeset 6543:aa2837cae002
[project @ 2007-04-19 03:32:12 by jwe]
author | jwe |
---|---|
date | Thu, 19 Apr 2007 03:32:12 +0000 |
parents | 90bc7594a7f8 |
children | 43fc02d57862 |
files | src/syscalls.cc test/test_quad.m |
diffstat | 2 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syscalls.cc +++ b/src/syscalls.cc @@ -372,8 +372,8 @@ %! idx++; %! str{idx} = s; %! elseif (errno () == EAGAIN) +%! fclear (out); %! sleep (0.1); -%! fclear (out); %! else %! done = true; %! endif
--- a/test/test_quad.m +++ b/test/test_quad.m @@ -12,8 +12,8 @@ %!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); +%! [v, ier, nfun, err] = quad ("f", 0.001, 3); +%! assert((ier == 0 || ier == 1) && abs (v - 1.98194120273598) < sqrt (eps) && nfun > 0); %% test/octave.test/quad/quad-3.m %!error <Invalid call to quad.*> quad ();