[Maxima-commits] CVS: maxima/tests rtest6a.mac,1.9,1.10

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

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

Modified Files:
	rtest6a.mac 
Log Message:
Cutting out two tests for the function specint, which have been commented out since the initial release of the file. Equivalent tests are included in the file rtest_hypgeo.lisp.


Index: rtest6a.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest6a.mac,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- rtest6a.mac	1 Nov 2006 21:17:37 -0000	1.9
+++ rtest6a.mac	1 Nov 2009 01:14:13 -0000	1.10
@@ -24,18 +24,6 @@
 changevar(%,y-z^2/a,z,y);
 /* on lispm -2*('integrate(z*%e^abs(z),z,-2*sqrt(a),0))/a; */
 - 'integrate(2*z*%e^abs(z)/a,z,-2*sqrt(a),0);
-assume(p > 0);
-[p > 0]$
-t^(1/2)*%e^-(a*t/4)*%e^-(p*t);
-sqrt(t)*%e^(-p*t-a*t/4);
-/* specint(%,t); not available in distribution
-sqrt(%pi)/(2*(p+a/4)^(3/2)); */
-t^(1/2)*%j[1](2*a^(1/2)*t^(1/2))*%e^-(p*t);
-%j[1](2*sqrt(a)*sqrt(t))*sqrt(t)*%e^-(p*t);
-/* specint(%,t); not available
-sqrt(a)*%e^-(a/p)/p^2;*/
-forget(p > 0,a > 0)$
-[p > 0,a > 0]$
 x+y/z^2;
 y/z^2+x;
 part(%,1,2,2);