Bug fixes and tests



I started a rtest-like file of known bugs from the bug list. If you all
think it's a worthwhile project, I'll finish it.  If you would like 
to contribute, I'll coordinate the effort. Here is what my file looks
like---any suggestions before I append more tests?

Barton

-----known-bugs.mac--------------------------

/* bug  1039965 */
limit(4^n/2^(2*n),n,inf);
1$

/* bug 1036901 */
tlimit(7^(n^2)/8^n,n,inf); 
inf$

/* bug 1036546 */

realpart( (%I*%E^-(%I/2)-%I*%E^(%I/2))^a );
sin(1/2)^a*2^a$

/* bug 1010768 */

is(equal(sqrt(1/z) - 1/sqrt(z),0));
false$

/* bug 990924 */
is(equal((%E^(%I*z)-%E^-(%I*z)), 0)), prederror: false; 
true$

/* bug 993098---I believe this one has been fixed. */

factor(((x*y)^2 + x^2*2)^2 + (x + y^2)^2);
x^4*y^4+y^4+4*x^4*y^2+2*x*y^2+4*x^4+x^2$

/* bug 972212 */
sqrt((-1)^(1/4)*x);
sqrt(sqrt(%i)*x)$

/* bug 944743 */

poly_discriminant((x-1)*(x-2),x), ratfac : true;
1$

/* bug 942261 */
zeta(-1);
-1/12$

/* bug 941457 */

integrate(1/x^5,x,1,2^(1/78));
 1/4-2^(37/39)/8$

/* bug 940835 */

rectform(log(-%i)),numer;
-1.570796326794897 * %I$

rectform(log(-%i)),float;
-1.570796326794897 * %I$