# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1219807712 14400
# Node ID c476c2214a9014bea5529ff05603a3944ad81751
# Parent  366821c0c01cb4301b29449981c468cd7b8b266b
Adjust tolerance to single precision test.

diff -r 366821c0c01c -r c476c2214a90 src/ChangeLog
--- a/src/ChangeLog	Tue Aug 26 23:26:58 2008 -0400
+++ b/src/ChangeLog	Tue Aug 26 23:28:32 2008 -0400
@@ -1,6 +1,8 @@
 2008-08-26 Ben Abbott <bpabott@mac.com>
 
-	* DLD-FUNCTIONS/chol.cc (test): Double tolerance.
+	* mappers.cc: Adjust tolerance for single precesion tests.
+
+	* DLD-FUNCTIONS/chol.cc: Double tolerance.
 
 2008-08-26  Jaroslav Hajek <highegg@gmail.com>
 
diff -r 366821c0c01c -r c476c2214a90 src/mappers.cc
--- a/src/mappers.cc	Tue Aug 26 23:26:58 2008 -0400
+++ b/src/mappers.cc	Tue Aug 26 23:28:32 2008 -0400
@@ -217,7 +217,7 @@
 %!assert(arg (single(i)), single(pi/2));
 %!assert(arg (single(-1)), single(pi));
 %!assert(arg (single(-i)), single(-pi/2));
-%!assert(arg (single([1, i; -1, -i])), single([0, pi/2; pi, -pi/2]));
+%!assert(arg (single([1, i; -1, -i])), single([0, pi/2; pi, -pi/2]), 2e1*eps('single'));
 
 %!error arg ();
 %!error arg (1, 2);
@@ -1185,7 +1185,7 @@
 %!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]), 4*sqrt (eps));
-%!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), sqrt (eps));
+%!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), 4*eps('single'));
 
 %!error log ();
 %!error log (1, 2);