pike.git/ src/ testsuite.in

2000-01-19

2000-01-19 17:57:05 by Martin Stjernholm <mast@lysator.liu.se>

• 469b53834c295bf49be593b0f5666e519e1a71a9 (31 lines) (+30/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Two tests for f_magic_set_index().

Rev: src/testsuite.in:1.261

1: - test_true([["$Id: testsuite.in,v 1.260 2000/01/07 04:19:53 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.261 2000/01/19 17:57:05 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
956:    ({(["a":1]),(["a":1])}),    (["a":1,"b":"d"])}))    + test_any_equal([[ +  /* This test tests a wild program pointer in the object o. The bug can trig +  a coredump in a later test. */ +  class A { +  array a = ({1}); +  void `->= (string var, mixed val) {::`->= (var, val);} +  }; +  class B { +  inherit A; +  void `->= (string var, mixed val) {if (var) ::`->= (var, val);} +  }; +  object o = B(); +  o->a += ({2}); +  return o->a; + ]], ({1,2})) + test_any_equal([[ +  class A { +  array a = ({1}); +  void `->= (string var, mixed val) {::`->= (var, val);} +  }; +  class B { +  inherit A; +  }; +  object o = B(); +  o->a += ({2}); +  return o->a; + ]], ({1,2})) +    test_true(mappingp(_memory_usage()))   test_true(_refs(""));   test_true(_refs(({})));