[Maxima-commits] CVS: maxima/tests rtest16.mac,1.63,1.64

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

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

Modified Files:
	rtest16.mac 
Log Message:
src/limit.lisp:
o getsignl: avoid asking questions.
   fixes [ 1498047 ] limit(a/n,n,inf);

o limunknown1, simplimsubst: fix limit(signum(x), x, 0, plus)

tests/rtest16.mac: add tests



Index: rtest16.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -d -r1.63 -r1.64
--- rtest16.mac	10 Feb 2009 03:25:43 -0000	1.63
+++ rtest16.mac	15 Feb 2009 20:58:09 -0000	1.64
@@ -208,6 +208,10 @@
 limit(x*(atan(x)-%pi/2),x,inf);
 -1;
 
+/* [ 1498047 ] limit(a/n,n,inf); */
+limit(a/n, n, inf);
+0;
+
 /*
  * Bug [ 1661490 ] An integral gives a wrong result.
  */
@@ -302,6 +306,12 @@
 limit((-2/3)^x,x,inf);
 0;
 
+limit(signum(x), x, 0, plus);
+1;
+
+limit(signum(x), x, 0, minus);
+-1;
+
 limit((-1/%pi)^x,x,inf);
 0;