Check for fixed bug in multiple polylogs.

diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp
index 0eb713118151ccf6e00ffbe5ce209bb711ab7f8f..b09a6d4ccf2e56724ccb10c49b7ea8d3fab5989c 100644 (file)
--- a/check/exam_inifcns_nstdsums.cpp
+++ b/check/exam_inifcns_nstdsums.cpp
@@ -287,6 +287,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;
@@ -298,6 +322,7 @@ unsigned exam_inifcns_nstdsums(void)
        result += inifcns_test_S();
        result += inifcns_test_HLi();
        result += inifcns_test_LiG();
+       result += inifcns_test_legacy();
        
        if (!result) {
                cout << " passed " << endl;