From: Jens Vollinga <vollinga@thep.physik.uni-mainz.de>
Date: Tue, 6 Jan 2004 18:38:45 +0000 (+0000)
Subject: Added check for harmonic polylog.
X-Git-Tag: release_1-2-0~27
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=4fa4ab2d7fedd3a59dc361bc041000628b59cd20

Added check for harmonic polylog.
---

diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp
index 188b1b4b..d0f7304d 100644
--- 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;
 }