pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.736 2004/07/04 22:31:10 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.737 2004/07/16 14:38:36 grubba 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:773:    if (count != c)    error ("Destruct out of sequence, "    "%d destructed when %d should be.\n", c, count);    object x = foo && Foo(0);    x = 0;    // Cause call to destruct_objects_to_destruct.    for (int j = 0; j < 10; j++) werror ("");    }    }    -  mixed eat_stack(int|void cnt) +  mixed eat_stack(int|void probe)    { -  +  // Avoid eating as much C-stack by releasing the +  // catch at every level. +  if (probe) return 1; +  if (catch(eat_stack(1))) return 1;    mixed err = 1; -  // Avoid eating C-stack by adding a catch context only every -  // 10th frame. -  if ((cnt && ((err = eat_stack(cnt-1)) != 10)) || -  (!cnt && (catch(err = eat_stack(10)) || err != 10))) -  return intp (err) && err > 0 ? err + 1 : err; +  if ((err = eat_stack()) != 10) +  return intp(err) && err > 0 ? err + 1 : err;    if (err = catch {       Foo foo;    for(int i=0; i < 10000; i++)    foo = Foo(foo);    foo = 0;    // Cause call to destruct_objects_to_destruct.    for (int j = 0; j < 10; j++) werror ("");       }) return err;
pike.git/src/testsuite.in:4824:    object o = class{}();    multiset m = (<o>);    set_weak_flag (m, 1);    m[class{}()] = 1;    m[o] = 0;    gc();    return !sizeof (m);    ]])       test_do([[ -  mixed eat_stack(int|void cnt) +  mixed eat_stack(int|void probe)    { -  +  // Avoid eating as much C-stack by releasing the +  // catch at every level. +  if (probe) return 1; +  if (catch(eat_stack(1))) return 1;    mixed err = 1; -  // Avoid eating C-stack by adding a catch context only every -  // 10th frame. -  if ((cnt && ((err = eat_stack(cnt-1)) != 10)) || -  (!cnt && (catch(err = eat_stack(10)) || err != 10))) -  return intp (err) && err ? err + 1 : err; +  if ((err = eat_stack()) != 10) +  return intp(err) && err > 0 ? err + 1 : err;    if (err = catch {    class Foo    {    object foo;    static void create(object o) {foo = o;}    };    Foo foo;    for(int i=0; i < 10000; i++)    foo = Foo(foo);    gc();