pike.git/ src/ testsuite.in

2003-02-12

2003-02-12 22:57:54 by Martin Stjernholm <mast@lysator.liu.se>

• 44dbb6eabaa2d9732fbde2fd7ed4b422fc05c8f7 (55 lines) (+3/-52) ^{[ Show | Annotate ]}
  Branch: 7.9

The gc hasn't been optional for a long time.

Rev: src/testsuite.in:1.598

1: - test_true([["$Id: testsuite.in,v 1.597 2003/02/11 15:22:29 mirar Exp $"]]); + test_true([["$Id: testsuite.in,v 1.598 2003/02/12 22:57:54 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
3949:   }]], 0)      // gc - ifefun(gc, - [[ +     test_true(intp(gc()));    test_any([[ array a=({0}); a[0]=a; gc(); a=0; return gc() > 0; ]],1);    test_any([[object o=class c {object o;}(); o->o=o; gc(); o=0; return gc() > 0; ]],1);
4042:    gc();    return sizeof(q);    ]],2) - ]]) +     - ifefun(gc, - [[ +     test_eq([[    int dummy;    gc();
4114:    gc(); o = 0; return gc() > 0;    }]], 1)    -  - ]]) -  - ifefun(gc, - [[ -  +     test_any_equal([[{    class Live {object o; void destroy() {}};    array a = set_weak_flag(({Live()}), 1);
4185:    return all_constants()->blatinka;    }]], ({0}));    - ]]) +    test_do(add_constant("kablutt");)   test_do(add_constant("blatinka");)    - ifefun(gc, - [[ -  +     test_any([[{    class Dead {object o;};    object o = Dead(); o->o = Dead();
4245:    return !sizeof (x);    }]], 1);    - ]]) -  - ifefun(gc, - [[ -  +     test_any([[{    class Foo {    Foo f = this_object();
4371:    o = 0;    gc();    }]]); - ]]) +     - ifefun(gc, - [[ -  +     test_do([[{    mapping a = ([1:({17}),2:3,4:5,6:7,8:9]), b = a + ([]);    set_weak_flag (b, 1);
4428:    return gc() >= 2 && !sizeof (a);    }]], 1);    - ]]) -  - ifefun(gc, - [[ -  +     test_any([[{    object o = class{}();    mapping a = set_weak_flag ((["foo": o]), 1);
4472:    return gc() >= 2 && !sizeof (a);    }]], 1);    - ]]) -  - ifefun(gc, - [[ -  +     test_any([[{    object o = class{}();    mapping a = set_weak_flag ((["foo": o]), 1);
4585:    f = 0;    gc();    }]]); - ]]) +     - ifefun(gc, - [[ -  +     test_tests([[inherit "]]SRCDIR[[/test_gc.pike";]])    - ]]) -  - ifefun(gc, - [[ -  +     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; } };
4715:    return sizeof (m);    ]], 1)    - ]]) -  - ifefun(gc, - [[ -  +     test_do([[    mapping m = set_weak_flag (([]), Pike.WEAK_INDICES);    object o = class {object o;}();
4815:    }    }()->test();    ]], 1) - ]]) +       cond([[ sizeof( cpp("__AUTO_BIGNUM__")/"__AUTO_BIGNUM__" ) == 1 ]],   [[
7563:   // - functionp   // Tested in foop    - // - gc -  +    // - get_all_groups   // - get_all_users   // - get_dir