Fix small memory leak in test

diff --git a/src/runtime/Test/TestComponent.cxx b/src/runtime/Test/TestComponent.cxx
index 4e5ef9ac3f0b7812362a1174a69a3af8c2001e97..1517d4be7f223b9d91fc2ddc21fc736268bf75ca 100644 (file)
--- a/src/runtime/Test/TestComponent.cxx
+++ b/src/runtime/Test/TestComponent.cxx
@@ -58,11 +58,13 @@ extern "C" void __run(void *vObj, const char *service, int nIn, int nOut,
        obj->info.message = "";
        obj->info.code = 0;
        
+        Out[0] = NULL;
        if (std::strncmp(service, "f", 1) == 0) 
        {
                double _arg0 = In[0]->getDoubleValue();
                double _res = obj->f(_arg0);
-               Out[0] = YACS::ENGINE::AtomAny::New(_res);
+               if (obj->info.code == 0)
+                 Out[0] = YACS::ENGINE::AtomAny::New(_res);
        }
        else
        {
@@ -70,7 +72,6 @@ extern "C" void __run(void *vObj, const char *service, int nIn, int nOut,
                obj->info.message = "service ";
                obj->info.message += service;
                obj->info.message += " doesn't exist in TestComponent";
-               Out[0] = NULL;
        }
        *r = obj->info;
 }