# HG changeset patch
# User Thomas Treichl <Thomas.Treichl@gmx.net>
# Date 1219341844 14400
# Node ID d54f113aa9839a33022065acc0d0250b53bb0dea
# Parent  c4482fc30c7f0377b6b5ffbbd8d212bb6bc86130
Increase test script tolerances.

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-21  Thomas Treichl  <Thomas.Treichl@gmx.net>
+	
+	* optimization/sqp.m: Increase test script tolerance.
+
 2008-08-21  David Bateman  <dbateman@free.fr>
 
 	* plot/ezplot.m : New function.
diff --git a/scripts/optimization/sqp.m b/scripts/optimization/sqp.m
--- a/scripts/optimization/sqp.m
+++ b/scripts/optimization/sqp.m
@@ -742,4 +742,4 @@
 %!
 %! obj_opt = 0.0539498477702739;
 %!
-%! assert (all (abs (x-x_opt) < 4*sqrt (eps)) && abs (obj-obj_opt) < sqrt (eps));
+%! assert (all (abs (x-x_opt) < 5*sqrt (eps)) && abs (obj-obj_opt) < sqrt (eps));
diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-21  Thomas Treichl  <Thomas.Treichl@gmx.net>
+	
+	* mappers.cc: Increase test script tolerance.
+
 2008-08-20  John W. Eaton  <jwe@octave.org>
 
 	* help.cc (builtin_help): Go to next symbol name on error.
diff --git a/src/mappers.cc b/src/mappers.cc
--- a/src/mappers.cc
+++ b/src/mappers.cc
@@ -1184,7 +1184,7 @@
 %!assert(log ([1, e, e^2]), [0, 1, 2], sqrt (eps));
 %!assert(log ([-0.5, -1.5, -2.5]), log([0.5, 1.5, 2.5]) + pi*1i, sqrt (eps));
 
-%!assert(log (single([1, e, e^2])), single([0, 1, 2]), sqrt (eps));
+%!assert(log (single([1, e, e^2])), single([0, 1, 2]), 4*sqrt (eps));
 %!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), sqrt (eps));
 
 %!error log ();