pike.git/ src/ testsuite.in

1996-12-05

1996-12-05 21:38:23 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• d9e9bda404125415b5a175a074285d04cfd99f07 (9 lines) (+7/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

more tests for gc() added

Rev: src/testsuite.in:1.13

4:   test_any(object o=this_object(); while(o=_next(o)));   test_any(object o=this_object(); while(o=_prev(o)));    - test_true([["$Id: testsuite.in,v 1.12 1996/12/05 04:49:38 hubbe Exp $"]]) + test_true([["$Id: testsuite.in,v 1.13 1996/12/05 21:38:23 hubbe Exp $"]])   test_any([[object(File) o=File(); return objectp(o);]],1)   test_any([[object o=Regexp("foo"); return objectp(o);]],1)   test_any([[object o=Regexp("foo"); return object_program(o);]],Regexp)
284:   ifefun(gc,   [[    test_true(intp(gc())); -  test_any([[ gc(); array a=({0}); a[0]=a; a=0; return gc() > 0; ]],1); +  test_any([[ array a=({0}); a[0]=a; gc(); a=0; return gc() > 0; ]],1); +  test_any([[object o=class {object o;}(); o->o=o; gc(); o=0; return gc() > 0; ]],1); +  test_any([[object o=class {object o;}(); o->o=o; gc(); o=0; return gc() > 0; ]],1); +  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);   ]])