Added check for harmonic polylog.

[ginac.git] / check / exam_inifcns_nstdsums.cpp

diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp
index df8a4193354c02426e5529b3ec5df23997456340..d0f7304dae04387c581ee234da5c6281a52ed2ad 100644 (file)
--- a/check/exam_inifcns_nstdsums.cpp
+++ b/check/exam_inifcns_nstdsums.cpp
@@ -155,6 +155,14 @@ static unsigned inifcns_test_HLi()
 
        Digits = digitsbuf;
 
+       // conjugate test
+       numeric cdif = ex_to<numeric>(H(lst(2,2,1),5.0-5.0*I) - H(lst(2,2,1),5.0+5.0*I));
+       numeric cadd = ex_to<numeric>(H(lst(2,2,1),5.0-5.0*I) + H(lst(2,2,1),5.0+5.0*I));
+       if ((cdif.real() > prec) || (cadd.imag() > prec)) {
+               clog << "complex conjugation test of H({2,2,1},5.0-5.0*I) seems to be wrong: " << cdif << " " << cadd << endl;
+               result++;
+       }
+
        return result;
 }
 
@@ -219,11 +227,8 @@ unsigned exam_inifcns_nstdsums(void)
        cout << "examining consistency of nestedsums functions" << flush;
        clog << "----------consistency of nestedsums functions:" << endl;
        
-       cout << "zeta" << flush;
        result += inifcns_test_zeta();
-       cout << "S" << flush;
        result += inifcns_test_S();
-       cout << "H/Li" << flush;
        result += inifcns_test_HLi();
        
        if (!result) {