pike.git/ src/ testsuite.in

2001-07-15

2001-07-15 21:16:04 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 3b8c9b221129b127aec37546ff66eb006dd4d086 (33 lines) (+32/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix for encoding cyclic object/program references

Rev: src/encode.c:1.111
Rev: src/testsuite.in:1.445

1: - test_true([["$Id: testsuite.in,v 1.444 2001/07/12 23:56:04 hubbe Exp $"]]); + test_true([["$Id: testsuite.in,v 1.445 2001/07/15 21:16:04 hubbe Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1837:    return Test()->main();   ]],"foo")    + test_any([[ + class Test + { +  class Codec +  { +  mixed nameof (mixed what) +  { +  return ([])[0]; +  } +  } +  +  int main() +  { +  object o = compile_string (#" +  constant x = ({0}); +  int f() {return 17;} +  int g() {return x[0]();} +  ")(); +  o->x[0] = o->f; +  function e=encode_value; +  function d=decode_value; +  o = d (e (o, Codec()), Codec()); +  return function_object (o->x[0]) == o; +  } + }; +  return Test()->main(); + ]],1); +  +  +    test_any([[mixed s="foo"; return s++;]],"foo")   test_any([[mixed s="foo"; s++; return s;]],"foo1")   test_any([[mixed s="foo"; return ++s;]],"foo1")