void CFunctionCollection::ExecuteSelftest() {
  CString name = kSelftestName;
  CString function_text = kSelftestFunction;
  CFunction *p_function = new CFunction(&name, 
    &function_text, kNoAbsoluteLineNumberExists); 
  Add((COHScriptObject *)p_function);
  p_function->Parse();
  CSelftestParserEvaluator selftest;
  selftest.Test();
}
void CFunctionCollection::ExecuteSelftest() {
  write_log(preferences.debug_formula(), 
    "[CFunctionCollection] Executing self-test\n");
  CString name = kSelftestName;
  CString function_text = kSelftestFunction;
  CFunction *p_function = new CFunction(&name, 
    &function_text, kNoAbsoluteLineNumberExists); 
  Add((COHScriptObject *)p_function);
  p_function->Parse();
  CSelftestParserEvaluator selftest;
  selftest.Test();
}
void CFunctionCollection::ExecuteSelftest() {
   write_log(preferences.debug_formula(), 
    "[CFunctionCollection] Executing self-test\n");
  CString name = kSelftestName;
  CString function_text = kSelftestFunction;
  CFunction *p_function = new CFunction(name, 
    function_text, kNoAbsoluteLineNumberExists); 
  Add((COHScriptObject *)p_function);
  p_function->Parse();
  CSelftestParserEvaluator selftest;
  selftest.Test();
  // The function stazs in the collection until the very end
  // and then gets released together with the OpenPPL-symbols.
}