Ticket #738: ticket_10.Bug_725_II.tol

// ClaseA

Class ClaseA {
  Real a = 1
};

// Constructor de ClaseA

ClaseA ClaseA.New(NameBlock args) {
  ClaseA new = [[ 
    Real a = args::a
  ]]
};

// ClaseB que contiene un objeto ClaseA

Class ClaseB {
  Text _.name;
  Text _.description;
  ClaseA _.variable 
};

// Constructor de ClaseB

ClaseB ClaseB.New(NameBlock args) {
  ClaseB new = [[
    Text _.name         = args::_.name;
    Text _.description  = getOptArg(args,"_.description",  "");
    ClaseA _.variable = args::_.variable
  ]]
};

// [1] Creación paso a paso (sin errores)

ClaseA obj1_A = ClaseA.New([[
  Real a = 3
]]);

ClaseB obj1 = ClaseB.New([[ 
  Text _.name = "hola"; 
  Text _.description = "desc"; 
  ClaseA _.variable = obj1_A 
]]);

// [2] Creación de una vez (da errores)

ClaseB obj2 = ClaseB.New([[ 
  Text _.name = "hola"; 
  Text _.description = "desc"; 
  ClaseA _.variable = ClaseA.New([[
    Real a = 3
  ]])
]]);
//> ERROR: [3] Un NameBlock no puede tener miembros sin un nombre válido ''

// [3] Creación de una vez (evitar el error)

ClaseB obj3 = ClaseB.New([[ 
  Text _.name = "hola"; 
  Text _.description = "desc"; 
  ClaseA _.variable = ClaseA.New( NOMBRE = [[
    Real a = 3
  ]])
]]);