Branch: Tag:

2001-01-26

2001-01-26 00:54:17 by Martin Stjernholm <mast@lysator.liu.se>

Added test case for the weak mapping bug.

Rev: src/testsuite.in:1.380

1: - test_true([["$Id: testsuite.in,v 1.379 2001/01/25 09:41:08 hubbe Exp $"]]); + test_true([["$Id: testsuite.in,v 1.380 2001/01/26 00:54:17 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1974:      test_any([[mapping m=([]); for(int e=0;e<1000;e++) m[e&3]+=({e}); return sizeof(m)==4 && sizeof(m[0])==250;]],1)    + test_any([[ +  mapping m = set_weak_flag (([1:1]), 1); +  m_delete (m, 1); +  return get_weak_flag (([])); + ]], 0); +    // destructed indices   test_any([[{    object o = class{}();