pike.git/ src/ testsuite.in

2000-08-16

2000-08-16 22:03:41 by Martin Stjernholm <mast@lysator.liu.se>

• 10c4a422fd47021737d2b46c7fba2df99d42fe71 (48 lines) (+47/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed the bug that caused the "Still got 6 external weak references to
internal things in gc." fatal.

Rev: src/gc.c:1.123
Rev: src/gc.h:1.62
Rev: src/svalue.c:1.87
Rev: src/testsuite.in:1.320

1: - test_true([["$Id: testsuite.in,v 1.319 2000/08/14 13:56:46 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.320 2000/08/16 22:03:41 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
2008:    return res;    }]], 1);    +  test_any([[{ +  array x = set_weak_flag (({0}), 1); +  x[0] = x; +  multiset b = set_weak_flag ((<x>), 1); +  array a = ({17}); +  b[a] = 1; +  x = 0; +  return gc() + gc() >= 1; +  }]], 1); +  +  test_any([[{ +  array a = set_weak_flag (({0, this_object()}), 1); +  a[0] = a; +  a = 0; +  return gc() + gc() >= 1; +  }]], 1); +  +  test_any([[{ +  array y = set_weak_flag (({0}), 1), z = set_weak_flag (({y}), 1); +  y[0] = z; +  y = z = 0; +  return gc() + gc() >= 2; +  }]], 1); +  +  test_any([[{ +  class Live { +  array a; +  object o = this_object(); +  void create() +  { +  a = set_weak_flag (({0}), 1); +  array b = set_weak_flag (({a}), 1); +  a[0] = b; +  } +  void destroy() +  { +  if (!arrayp(a) || !arrayp(a[0]) || a[0][0] != a) +  error ("GC garbed weak things too early.\n"); +  } +  }; +  object o = Live(); +  o = 0; +  return gc() + gc() >= 3; +  }]], 1); +     test_do([[{    int got_error = 0;    array(string) destruct_order;