Index: scalc/tests/scalc_test_suite.cc
===================================================================
--- scalc.orig/tests/scalc_test_suite.cc	2010-08-02 19:13:18.615030465 +0200
+++ scalc/tests/scalc_test_suite.cc	2013-02-15 14:52:16.207204292 +0100
@@ -39,14 +39,22 @@
       if(e->evaluable())
 	{
 	  double value = e->evaluate();
-	  if(value != expected)
-	    {
+          double rel = fabs(value - expected)/value;
+	  if(value != expected) {
+            if(rel < 1e-10)
+	      cerr << "Evaluation of '" << expression 
+		   << "' returned a value differing from <" << expected 
+                   <<  "> by <" 
+		   << expected - value << "> (rel: " << rel 
+                   << ") : ignoring" << endl; 
+            else {
 	      cerr << "Evaluation of '" << expression 
 		   << "' returned <" << value 
 		   << "> and should have returned <" 
 		   << expected << ">" << endl; 
 	      failures ++;
-	    }
+            }
+          }
 	}
       else
 	{