pike.git/ src/ testsuite.in

2001-07-01

2001-07-01 18:34:20 by Martin Stjernholm <mast@lysator.liu.se>

• 3cc12a964a1836ac6f4b2d5454fd8ce5eb087ad2 (42 lines) (+39/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Added test case for live recurse bug in the gc.

Rev: src/testsuite.in:1.431

1: - test_true([["$Id: testsuite.in,v 1.430 2001/06/29 17:04:19 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.431 2001/07/01 18:34:20 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
2879:    void destroy()    {    if (!arrayp(a) || !arrayp(a[0]) || a[0][0] != a) -  error ("GC garbed weak things too early.\n"); +  add_constant ("my_little_error", "GC garbed weak things too early.\n");    }    };    object o = Live();    o = 0; -  return gc() + gc() >= 3; +  int res = gc() + gc() >= 3; +  if (all_constants()->my_little_error) +  error (all_constants()->my_little_error); +  return res;    }]], 1);    -  +  test_do([[{ +  class Live +  { +  Foo f; +  void destroy() +  { +  if (!f->l || !f->a || !f->a[0] || !f->a[1]) +  add_constant ("my_little_error", "GC garbed live things.\n"); +  } +  }; +  class Foo +  { +  int i; +  class Bar +  { +  int j = i++; // Ensure parent pointer. +  array a = ({j}); +  } +  Live l; +  void create (Live _l) +  { +  l = _l; +  l->f = this_object(); +  } +  array a = allocate (2, Bar)(); +  }; +  object o = Foo(Live()); +  o = 0; +  gc(), gc(); +  if (all_constants()->my_little_error) +  error (all_constants()->my_little_error); +  }]]);   ]])      ifefun(gc,