X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Ftime_lw_O.cpp;h=d91fdf99d143a0d1b64eb03dd52c4acfff423ad5;hp=211cc2472b735b138d6e41e96346f8e415266947;hb=729d30ae80fa9fdcdbafd7a29e8671083130f69c;hpb=af922d5eb36ed70e4a9e3ffaf4c24492cf89a1a6 diff --git a/check/time_lw_O.cpp b/check/time_lw_O.cpp index 211cc247..d91fdf99 100644 --- a/check/time_lw_O.cpp +++ b/check/time_lw_O.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 @@ -23,6 +23,8 @@ #include "times.h" +static const bool do_test = true; // set to true in order to run this beast + static unsigned test1(void) { symbol a1("a1"), a2("a2"), a3("a3"), a4("a4"), a5("a5"), a6("a6"); @@ -106,22 +108,27 @@ unsigned time_lw_O(void) double time = .0; cout << "timing Lewis-Wester test O1 (three 15x15 dets)" << flush; - clog << "-------Lewis-Wester test O1 (three 15x15 dets)" << endl; - - rolex.start(); - // correct for very small times: - do { - result = test1(); - ++count; - } while ((time=rolex.read())<0.1 && !result); + clog << "-------Lewis-Wester test O1 (three 15x15 dets):" << endl; - if (!result) { - cout << " passed "; - clog << "(no output)" << endl; + if (do_test) { + rolex.start(); + // correct for very small times: + do { + result = test1(); + ++count; + } while ((time=rolex.read())<0.1 && !result); + + if (!result) { + cout << " passed "; + clog << "(no output)" << endl; + } else { + cout << " failed "; + } + cout << int(1000*(time/(3*count)))*0.001 << "s (average)" << endl; } else { - cout << " failed "; + cout << " disabled" << endl; + clog << "(no output)" << endl; } - cout << int(1000*(time/(3*count)))*0.001 << "s (average)" << endl; return result; }