From: Jens Vollinga <vollinga@thep.physik.uni-mainz.de>
Date: Wed, 13 Dec 2006 20:04:23 +0000 (+0000)
Subject: Check for fixed bug in multiple polylogs.
X-Git-Tag: release_1-5-0~104
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=1254f5ef941aa6ead793e843b637edc927f47c7d;ds=sidebyside

Check for fixed bug in multiple polylogs.
---

diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp
index 247fa80d..d0f6869e 100644
--- a/check/exam_inifcns_nstdsums.cpp
+++ b/check/exam_inifcns_nstdsums.cpp
@@ -290,6 +290,30 @@ static unsigned inifcns_test_LiG()
 }
 
 
+////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////
+//  legacy exam - checking for historical bugs
+////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////
+
+
+static unsigned inifcns_test_legacy()
+{
+	Digits = 17;
+	ex prec = 5 * pow(10, -(int)Digits);
+
+	unsigned result = 0;
+
+	ex r1 = zeta(lst(1,1,1,1,1,1),lst(-1,-1,-1,1,1,1));
+	if ((r1.evalf() - numeric("-0.0012588769028204890704")) > prec) {
+		clog << "zeta({1,1,1,1,1,1},{-1,-1,-1,1,1,1}) seems to be wrong." << endl;
+		result++;
+	}
+
+	return result;
+}
+
+
 unsigned exam_inifcns_nstdsums(void)
 {
 	unsigned result = 0;
@@ -300,6 +324,7 @@ unsigned exam_inifcns_nstdsums(void)
 	result += inifcns_test_S();
 	result += inifcns_test_HLi();
 	result += inifcns_test_LiG();
+	result += inifcns_test_legacy();
 	
 	return result;
 }