[Maxima-commits] CVS: maxima/tests rtestint.mac,1.45,1.46

[Dan G. <dg...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv7768/tests

Modified Files:
	rtestint.mac 
Log Message:
src/defint.lisp:
o atan-pole1: don't worry about discontinuity at boundary of integration
   fixes definite integral - bad answer - ID: 2880886
         integrate(cot(x)^4,x,%pi/6,%pi/2) answer - ID: 2890315

tests/rtestint.mac:
o add integrate(cos(x)^2 * (1 + sin(x)^2)^-3,x,0,%pi/2);



Index: rtestint.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtestint.mac,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- rtestint.mac	18 Aug 2009 16:59:38 -0000	1.45
+++ rtestint.mac	13 Nov 2009 15:18:16 -0000	1.46
@@ -1233,5 +1233,9 @@
 integrate(t*cos(1.0*t),t);
 t*sin(t)+cos(t);
 
+/* definite integral - bad answer - ID: 2880886 */
+integrate(cos(x)^2 * (1 + sin(x)^2)^-3,x,0,%pi/2);
+7*%pi/2^(11/2);
+
 (forget(x>0),gamma_expand:false,done);
 done;