synced to 1.2 (typos, better ncmul::degree() and ::coeff())
[ginac.git] / check / exam_inifcns_nstdsums.cpp
index 188b1b4b0536268966a97cf77a12fa5aa2ca5121..35f9ddbbb32dddc698da42963b18ff4cdeeb7b8e 100644 (file)
@@ -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;
 }