[Maxima-commits] CVS: maxima/tests rtest16.mac,1.86,1.87

[Dieter K. <cra...@us...>]

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

Modified Files:
	rtest16.mac 
Log Message:
Adding examples related to the bug reports:

BUG ID: 2835098 - SIGN-PREP strangeness
BUG  ID: 2840566 - defint fails to determine if one of its limit is real

Index: rtest16.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- rtest16.mac	10 Aug 2009 00:14:48 -0000	1.86
+++ rtest16.mac	19 Aug 2009 22:30:33 -0000	1.87
@@ -943,5 +943,28 @@
 float(0b0);
 0.0;
 
+/*
+ * BUG ID: 2835098 - SIGN-PREP strangeness
+ */
+ 
+block ([?limitp : true], sign (foo (x)));
+pnz;
+
+integrate(sqrt(2*m*(E[n]-U(x))),x,-x[0],x[0])=(n-1/2)*%pi*hbar;
+sqrt(2)*'integrate(sqrt(m*(E[n]-U(x))),x,-x[0],x[0]) = %pi*hbar*(n-1/2);
+
+integrate(f(x),x,x[0],x[1]);
+'integrate(f(x),x,x[0],x[1]);
+
+/*
+ * BUG  ID: 2840566 - defint fails to determine if one of its limit is real
+ */
+ 
+(assume(b>0,c>0),done);
+done;
+ 
+integrate(x,x,0,sqrt(b^2+(b-c)^2));
+(c^2-2*b*c+2*b^2)/2;
+
 end;
 end$