X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Ftime_lw_O.cpp;h=1f419f8ef4b72bc9d5fa0175d5d2564d49f97628;hp=211cc2472b735b138d6e41e96346f8e415266947;hb=6a289cac851857096561ee8ecb32ee4ba8a28ac4;hpb=af922d5eb36ed70e4a9e3ffaf4c24492cf89a1a6

diff --git a/check/time_lw_O.cpp b/check/time_lw_O.cpp
index 211cc247..1f419f8e 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-2001 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");
@@ -108,20 +110,25 @@ unsigned time_lw_O(void)
 	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);
-	
-	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;
 }