# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1220456455 14400
# Node ID 46aa040553254660894f13bf131688ca8d384527
# Parent  16ab78b816bc8ec897bd8c00934fc2e79a6cbc48
Use eps(single) as tolerance for single precesion test.

diff -r 16ab78b816bc -r 46aa04055325 src/ChangeLog
--- a/src/ChangeLog	Wed Sep 03 11:36:11 2008 -0400
+++ b/src/ChangeLog	Wed Sep 03 11:40:55 2008 -0400
@@ -1,3 +1,7 @@
+2008-09-03  Ben Abbott <bpabott@mac.com>
+
+	* mappers.cc: Use eps(single) as tolerance for single precesion test.
+
 2008-09-03  John W. Eaton  <jwe@octave.org>
 
 	* variables.cc (mlock): Lock current function on the call stack.
diff -r 16ab78b816bc -r 46aa04055325 src/mappers.cc
--- a/src/mappers.cc	Wed Sep 03 11:36:11 2008 -0400
+++ b/src/mappers.cc	Wed Sep 03 11:40:55 2008 -0400
@@ -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]), 4*sqrt (eps));
+%!assert(log (single([1, e, e^2])), single([0, 1, 2]), sqrt (eps('single')));
 %!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), 4*eps('single'));
 
 %!error log ();