X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fexam_pseries.cpp;h=1e34be780109581d56527c2486927dc8d9c26231;hp=93d786849c29dea4cd31da80342c316bdb41e5c6;hb=75d4e0711724b9cc8e6d3e64302a120607284f8a;hpb=e8f0a62c637afab747ba93dfd8b127a7d5df24ec

diff --git a/check/exam_pseries.cpp b/check/exam_pseries.cpp
index 93d78684..1e34be78 100644
--- a/check/exam_pseries.cpp
+++ b/check/exam_pseries.cpp
@@ -43,9 +43,15 @@ static unsigned exam_series1()
 {
 	using GiNaC::log;
 
+	symbol a("a");
+	symbol b("b");
 	unsigned result = 0;
 	ex e, d;
 	
+	e = pow(a+b, x);
+	d = 1 + Order(pow(x, 1));
+	result += check_series(e, 0, d, 1);
+
 	e = sin(x);
 	d = x - pow(x, 3) / 6 + pow(x, 5) / 120 - pow(x, 7) / 5040 + Order(pow(x, 8));
 	result += check_series(e, 0, d);
@@ -119,16 +125,18 @@ static unsigned exam_series1()
 	d = 1 + Order(pow(x, 2));
 	result += check_series(e, 0, d, 2);
 
-	symbol a("a");
 	e = pow(x, 4) * sin(a) + pow(x, 2);
 	d = pow(x, 2) + Order(pow(x, 3));
 	result += check_series(e, 0, d, 3);
 
-	symbol b("b");
 	e = log(a*x + b*x*x*log(x));
 	d = log(a*x) + b/a*log(x)*x - pow(b/a, 2)/2*pow(log(x)*x, 2) + Order(pow(x, 3));
 	result += check_series(e, 0, d, 3);
 
+	e = pow((x+a), b);
+	d = pow(a, b) + (pow(a, b)*b/a)*x + (pow(a, b)*b*b/a/a/2 - pow(a, b)*b/a/a/2)*pow(x, 2) + Order(pow(x, 3));
+	result += check_series(e, 0, d, 3);
+
 	return result;
 }