X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fexam_inifcns.cpp;h=2fe28415ecaed6c8734b8396b5ceb6db14a88e1f;hp=3a1a36b5bd8d3c615a8ee3211efd782626e0a84a;hb=13964f3416ec9de8829b57d4a2bbd9fe9a6db4ef;hpb=edfa67d26bac695b5ef9911f3cda3ff50232e35a

diff --git a/check/exam_inifcns.cpp b/check/exam_inifcns.cpp
index 3a1a36b5..2fe28415 100644
--- a/check/exam_inifcns.cpp
+++ b/check/exam_inifcns.cpp
@@ -318,6 +318,15 @@ static unsigned inifcns_consist_log()
 	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;
 }