pike.git/ src/ testsuite.in

1999-04-02

1999-04-02 23:25:01 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 3ce5b0865aa53e632798fb1bbac2492838ea3734 (12 lines) (+11/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

more tests :)

Rev: src/testsuite.in:1.165

1: - stest_true([["$Id: testsuite.in,v 1.164 1999/03/30 13:34:17 grubba Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.165 1999/04/02 23:25:01 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
1020:    test_any([[mapping m=([]); m[m]=m; gc(); m=0; return gc() > 0; ]],1);    test_any([[multiset m=(<>); m[m]=1; gc(); m=0; return gc() > 0; ]],1);    test_any([[mapping q=([ "t":class {} ()]); gc(); if(!objectp(q->t)) return -1; set_weak_flag(q,1); gc(); if(objectp(q->t)) return -2; return 0;]],0); +  +  test_do([[class bar { object foo; void create(void|object tmp) { foo=tmp; } }; +  object o=bar(),o2=o; +  for(int e=0;e<10000;e++) o=bar(o); +  o2->foo=o; +  o=o2=0; +  gc();    ]])    -  + ]]) +    cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())