Index: tol_tests/tol/kernel/MemoryLeak/test_0001/test.tol
===================================================================
--- tol_tests/tol/kernel/MemoryLeak/test_0001/test.tol	(revision 2aef478eb37973f165e344c5476c6dccc40a04c4)
+++ tol_tests/tol/kernel/MemoryLeak/test_0001/test.tol	(revision 2aef478eb37973f165e344c5476c6dccc40a04c4)
@@ -0,0 +1,59 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for #Embed macro
+//////////////////////////////////////////////////////////////////////////////
+
+Text email_ = "vdebuen@tol-project.org"; 
+Text link_ = "";
+Text summary_ = "test for Memory Leaks on Copy special function" ;
+
+
+//Write here the initial test TOL code if needed
+
+Real numErr0 = Copy(NError);
+
+
+Real iter = 1;
+
+Real numObj0 = ?;
+Real numObj1 = ?;
+
+Real numObj0 := Copy(NObject);
+
+Real {
+  Real Copy(iter);
+  Write("")
+};
+
+/*
+While(iter<=10,
+{
+  Real iter := Copy(iter + 1)
+});
+*/
+
+Real numObj1 := Copy(NObject);
+
+Real numErr1 = Copy(NError);
+
+
+//Extented information about test behaviour
+Set partialResults_ = 
+[[
+  Real numObj0, numObj1
+]];
+
+//This is a messure of the success of the test 
+Real quality_ = And(numErr0 == numErr1, EQ(numObj0,numObj1));
+
+//Return the results 
+Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                  "Partial results = "<<partialResults_,
+                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                  email_);
+WriteLn(""<<resultStr_);
+resultStr_
+/* */
+
+
+