added an additional dummy index symmetrization run over sums in

[ginac.git] / check / time_lw_D.cpp

diff --git a/check/time_lw_D.cpp b/check/time_lw_D.cpp
index f226f51a43b8b2ab95bfcf4c50e378ffc29a6d5e..8e55058a1c27c875f827cb0ed49c09226ac8b4bf 100644 (file)
--- a/check/time_lw_D.cpp
+++ b/check/time_lw_D.cpp
@@ -4,7 +4,7 @@
  *  Lewis and Michael Wester. */
 
 /*
- *  GiNaC Copyright (C) 1999-2000 Johannes Gutenberg University Mainz, Germany
+ *  GiNaC Copyright (C) 1999-2002 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
@@ -32,7 +32,9 @@ static unsigned test(void)
        for (int i=1; i<=10; ++i)
                s += i*y*pow(t,i)/pow(y + i*t,i);
        
-       if (s.nops()!=10) {
+       s = s.normal();
+       
+       if (s.subs(t==0)!=0) {
                clog << "something very strange happened" << endl;
                return 1;
        }
@@ -46,8 +48,8 @@ unsigned time_lw_D(void)
        timer rolex;
        double time = .0;
        
-       cout << "timing Lewis-Wester test D (sum of rational fcns)" << flush;
-       clog << "-------Lewis-Wester test D (sum of rational fcns)" << endl;
+       cout << "timing Lewis-Wester test D (normalized sum of rational fcns)" << flush;
+       clog << "-------Lewis-Wester test D (normalized sum of rational fcns):" << endl;
        
        rolex.start();
        // correct for very small times:
@@ -63,7 +65,7 @@ unsigned time_lw_D(void)
        } else {
                cout << " failed ";
        }
-       cout << int(100000*(time/count))*0.00001 << 's' << endl;
+       cout << int(1000*(time/count))*0.001 << 's' << endl;
        
        return result;
 }