Branch: Tag:

2000-06-12

2000-06-12 13:52:32 by Martin Stjernholm <mast@lysator.liu.se>

Another gc test.

Rev: src/testsuite.in:1.301

1: - test_true([["$Id: testsuite.in,v 1.300 2000/06/12 03:21:34 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.301 2000/06/12 13:52:32 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1846:    }]], 1)       test_do([[{ +  object o = class {}(); +  array a = ({o}); +  destruct (o); +  gc(); +  }]]); +  +  test_do([[{    int got_error = 0;    array(string) destruct_order;    add_constant ("destructing", lambda (string id) {destruct_order += ({id});});