From: Dieter K. <cra...@us...> - 2009-11-27 22:52:38
|
Update of /cvsroot/maxima/maxima/tests In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1574/tests Modified Files: rtest_sign.mac Log Message: Updating one example because of revision 1.63 of compar.lisp. Index: rtest_sign.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest_sign.mac,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- rtest_sign.mac 14 Nov 2009 18:35:04 -0000 1.9 +++ rtest_sign.mac 27 Nov 2009 22:52:24 -0000 1.10 @@ -900,11 +900,13 @@ * This example no longer works because of revision 1.62 of compar.lisp */ assume(abs(x) < sin(1)+%e/2); -[-abs(x)+sin(1)+%e/2>0]; +[sin(1)+%e/2>abs(x)]; is(x<2*%e); true; is(x>-2*%e); true; +(forget(abs(x)<sin(1)+%e/2),done); +done; /* Bug ID: 2876382 - sign(a+b+sin(1)) unknown */ (assume(a>0,b>0),done); |