id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc
51	tol crash	Jorge	danirus	"The following code make tol crash, for an indentical behaviour create a file
inside tol dir  in development environment and insert the code given below.

Set result = Copy(Empty);

Set testIt (Text dir) {
    Set dirSet = GetDir(dir);
    Set result = EvalSet(dirSet[2], Set (Text subdir) {
      Set If (subdir == ""tests"",
         {Set makeTests(dir + ""/tests"")},
         {Set testIt(dir + ""/"" + subdir)})
    })
};

Set makeTests (Text dir) {
    Set testFiles = GetDir(dir);
    Set tolfiles = Select(testFiles[1], Real (Text name) {
      Real If (GetFileExtension(name)==""tol"", 1, 0)
    });
    Set tf = EvalSet(tolfiles, Text (Text name) {
      Text file = dir + ""/"" + name;
      Set lres = [[file]] << Include(file);
      Set (result := result << [[lres]]);
      file
    })
};"	defect	closed	high		Various	head	critical	fixed