X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Ftime_lw_Qprime.cpp;h=03c4e762254d0e93d135a9af676939c727c72a79;hp=3ec2e8bfbaf61d2e3eb84f29144cd738f061ed1a;hb=835af1e00da6ec929466e961357d4ef4917b1fb9;hpb=af922d5eb36ed70e4a9e3ffaf4c24492cf89a1a6

diff --git a/check/time_lw_Qprime.cpp b/check/time_lw_Qprime.cpp
index 3ec2e8bf..03c4e762 100644
--- a/check/time_lw_Qprime.cpp
+++ b/check/time_lw_Qprime.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 = false;  // set to true in order to run this beast
+
 static unsigned test(void)
 {
 	// same matrix as in test P':
@@ -74,21 +76,26 @@ unsigned time_lw_Qprime(void)
 	cout << "timing Lewis-Wester test Q' (charpoly(P'))" << flush;
 	clog << "-------Lewis-Wester test Q' (charpoly(P'))" << endl;
 	
-	rolex.start();
-	// correct for very small times:
-	do {
-		result = test();
-		++count;
-	} while ((time=rolex.read())<0.1 && !result);
-	cout << '.' << flush;
-	
-	if (!result) {
-		cout << " passed ";
-		clog << "(no output)" << endl;
+	if (do_test) {
+		rolex.start();
+		// correct for very small times:
+		do {
+			result = test();
+			++count;
+		} while ((time=rolex.read())<0.1 && !result);
+		cout << '.' << flush;
+		
+		if (!result) {
+			cout << " passed ";
+			clog << "(no output)" << endl;
+		} else {
+			cout << " failed ";
+		}
+		cout << int(1000*(time/count))*0.001 << 's' << endl;
 	} else {
-		cout << " failed ";
+		cout << " disabled" << endl;
+		clog << "(no output)" << endl;
 	}
-	cout << int(1000*(time/count))*0.001 << 's' << endl;
 	
 	return result;
 }