Mercurial > octave-nkf

changeset 6543:aa2837cae002

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Thu Apr 19 03:19:12 2007 +0000
+++ b/src/syscalls.cc	Thu Apr 19 03:32:12 2007 +0000
@@ -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	Thu Apr 19 03:19:12 2007 +0000
+++ b/test/test_quad.m	Thu Apr 19 03:32:12 2007 +0000
@@ -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 ();