Branch: Tag:

2001-07-01

2001-07-01 23:42:41 by Martin Stjernholm <mast@lysator.liu.se>

Added gc test with cycle between parent program and inherited program.

Rev: src/testsuite.in:1.432

1: - test_true([["$Id: testsuite.in,v 1.431 2001/07/01 18:34:20 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.432 2001/07/01 23:42:41 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
2922:    if (all_constants()->my_little_error)    error (all_constants()->my_little_error);    }]]); +  +  test_do([[{ +  object o = compile_string(#" +  class Foo +  { +  int i; +  class Bar +  { +  int j = i++; // Ensure parent pointer. +  } +  inherit Bar; +  }")(); +  o = 0; +  gc(); +  }]]);   ]])      ifefun(gc,