pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.783 2007/06/17 23:14:08 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.784 2007/06/17 23:34:04 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])   test_compile_any([[#pike 7.4]])   test_compile_any([[#pike 7.0]])   test_compile_any([[#pike 0.6]])      cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
pike.git/src/testsuite.in:246:    map(indices(allocate($1)), lambda(int no) {    no++;    return sprintf(" if (var_%d != %d)\n"    " error(\"Variable var_%d was \"\n"    " \"clobbered with %%O.\\n\",\n"    " var_%d);\n",    no, no, no, no);    })) * "" +    "}\n";    program p; +  if ($3) master()->set_inhibit_compile_errors (1);    mixed err = catch {    p = compile_string("int a() {\n" + line + (s * $2) +    " return 0;\n"    "}\n");    };    if ($3) { -  +  master()->set_inhibit_compile_errors (0);    if (err) return 0;    error("Expected a compilation error for $1 variables in $2 scope%s.\n",    ($2>1)?"s":"");    }    if (err) throw(err);    return p()->a();    ]], 0)   ]])      test_scopes(255, 1, 0)