X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fexam_inifcns_nstdsums.cpp;h=35f9ddbbb32dddc698da42963b18ff4cdeeb7b8e;hp=df8a4193354c02426e5529b3ec5df23997456340;hb=8df5f21c4503e4f8ad7fb54293005896334a27f5;hpb=2478df378bbdbae452288eb3aa16928e168b7fc2

diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp
index df8a4193..35f9ddbb 100644
--- a/check/exam_inifcns_nstdsums.cpp
+++ b/check/exam_inifcns_nstdsums.cpp
@@ -4,7 +4,7 @@
  *  functions. */
 
 /*
- *  GiNaC Copyright (C) 1999-2003 Johannes Gutenberg University Mainz, Germany
+ *  GiNaC Copyright (C) 1999-2004 Johannes Gutenberg University Mainz, Germany
  *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
@@ -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) {