pike.git/ src/ testsuite.in

2001-10-15

2001-10-15 09:22:17 by Martin Stjernholm <mast@lysator.liu.se>

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

Added some tests for problems like the one fixed in revision 1.120 of
array.c.

Rev: src/testsuite.in:1.463

1: - test_true([["$Id: testsuite.in,v 1.462 2001/10/06 09:24:48 mirar Exp $"]]); + test_true([["$Id: testsuite.in,v 1.463 2001/10/15 09:22:17 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
3564:    gc();    return a;    }]], ([1: 1, "foo": "foo", 3.14: 3.14])); +  +  test_do([[{ +  object f = class +  { +  object o = class {}(); +  array a = set_weak_flag (({o}), 1); +  object this = this_object(); +  void create() {destruct (o);} +  }(); +  f = 0; +  gc(); +  }]]); +  test_do([[{ +  object f = class +  { +  object o = class {}(); +  mapping m = set_weak_flag (([1:o]), 1); +  object this = this_object(); +  void create() {destruct (o);} +  }(); +  f = 0; +  gc(); +  }]]); +  test_do([[{ +  object f = class +  { +  object o = class {}(); +  mapping m = set_weak_flag (([o:1]), 1); +  object this = this_object(); +  void create() {destruct (o);} +  }(); +  f = 0; +  gc(); +  }]]); +  test_do([[{ +  object f = class +  { +  object o = class {}(); +  multiset m = set_weak_flag ((<o>), 1); +  object this = this_object(); +  void create() {destruct (o);} +  }(); +  f = 0; +  gc(); +  }]]);   ]])      ifefun(gc,