[Maxima-commits] CVS: maxima/tests rtest8.mac,1.13,1.14

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv32509/tests

Modified Files:
	rtest8.mac 
Log Message:
Increase float_approx_equal_tolerance so that comparison of
floating point result from solve matches the expected result.
Result is presumably the output of a numerical root-finding algorithm
so it seems unlikely that an exact match can be achieved.

Index: rtest8.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest8.mac,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- rtest8.mac	29 Mar 2008 17:55:42 -0000	1.13
+++ rtest8.mac	6 Apr 2008 02:36:36 -0000	1.14
@@ -54,6 +54,8 @@
 [x = %pi/6,f(x) = 1]$
 ev(solve(5^f(x) = 125,f(x)),solveradcan:true);
 [f(x) = 3]$
+(float_approx_equal_tolerance : 1e-12, 0);
+0;
 [4*x^2-y^2 = 12,x*y-x = 2];
 [4*x^2-y^2 = 12,x*y-x = 2]$
 solve(%,[x,y]);
@@ -63,6 +65,8 @@
  [x = -0.5202594388652008*%i-0.1331240357358706,
   y = 3.608003221870287*%i+0.07678378523787777],
  [x = -1.733751846381093,y = -0.1535675710019696]];
+(reset (float_approx_equal_tolerance), 0);
+0;
 
 (eq :1+a*x+x^3, sol : solve(eq,x), makelist(ratsimp(subst(s,eq)),s, sol));
 [0,0,0]$