]> www.ginac.de Git - ginac.git/blobdiff - check/exam_paranoia.cpp
finalized 1.0.14
[ginac.git] / check / exam_paranoia.cpp
index 104e20da9207f7b5f07ccddb7f305107691c1ab8..4050b5f5c238fcd49594993c4d18f02ce18ecdc1 100644 (file)
@@ -6,7 +6,7 @@
  *  these oopses for good, so we run those stupid tests... */
 
 /*
- *  GiNaC Copyright (C) 1999-2002 Johannes Gutenberg University Mainz, Germany
+ *  GiNaC Copyright (C) 1999-2003 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
@@ -362,7 +362,7 @@ static unsigned exam_paranoia15(void)
        // this used to produce "1+4*sqrt(2)+4*2" which would never evaluate
        // to "9+4*sqrt(2)"
 
-       if (!(q-9-4*pow(2, numeric(1, 2).is_zero()) {
+       if (!(q-9-4*pow(2, numeric(1, 2))).is_zero()) {
                clog << "expand((sqrt(2)*2+1)^2) erroneously returned " << q << " instead of 9-4*sqrt(2)\n";
                ++result;
        }