* functions. */
/*
- * GiNaC Copyright (C) 1999-2011 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2014 Johannes Gutenberg University Mainz, Germany
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
if (ex(log(pow(a,b))).is_equal(b*log(a)))
++result;
+ // infinite recursion log_series
+ ex e(log(-p));
+ ex ser = ex_to<pseries>(e.series(z, 1))
+ .convert_to_poly(/* no_order = */ true);
+ if (!ser.is_equal(e)) {
+ clog << "series(" << e << ", " << z << "): wrong result" << endl;
+ ++result;
+ }
+
return result;
}