Index: tol_tests/tol/KMeans/test_0001/test.tol
===================================================================
--- tol_tests/tol/KMeans/test_0001/test.tol	(revision a2e6cc61ffd4eff01cf44951f28e92a078b4898f)
+++ tol_tests/tol/KMeans/test_0001/test.tol	(revision a2e6cc61ffd4eff01cf44951f28e92a078b4898f)
@@ -0,0 +1,28 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for Matrix Algebra Coherence
+//////////////////////////////////////////////////////////////////////////////
+
+  Text email_ = "vdebuen@tol-project.org"; 
+  Text link_ = "";
+  Text summary_ = "KMeans hanged" ;
+
+//Write here the initial test TOL code if needed
+  Real numErr0 = Copy(NError);
+
+  Matrix cases = MatReadFile("cases.bbm");
+  Set cluster = KMeans(cases,5);
+
+  Real numErr1 = Copy(NError);
+
+//This is a messure of the success of the test 
+  Real quality_ = And(numErr0 == numErr1);
+  Set partialResults_ = [[numErr0, numErr1]];
+//Return the results 
+  Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                    "Partial results = "<<partialResults_,
+                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                    email_);
+  WriteLn(""<<resultStr_);
+  resultStr_
+