pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.830 2008/06/27 23:14:38 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.831 2008/06/28 14:44:16 nilsson Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])   test_compile_any([[#pike 7.4]])   test_compile_any([[#pike 7.0]])   test_compile_any([[#pike 0.6]])      cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
pike.git/src/testsuite.in:9067:   #endif   ]],1)      // #pragma   // FIXME: add tests for real pragmas   test_any([[   #pragma whatever   return 1;   ]],1)    + test_compile_warning([[ + class A { + nomask int x; + } + ]]) +  + test_do([[ + #pragma no_deprecation_warnings + class A { + nomask int x; + } + ]]) +  + test_compile_warning([[ + #pragma no_deprecation_warnings + #pragma deprecation_warnings + class A { + nomask int x; + } + ]]) +  +    // #include   test_compile_any([[   #pike 7.0   #include <simulate.h>   ]])      // #error   test_compile_error([[   #error Gurgel   ]])
pike.git/src/testsuite.in:11438:   )      // - modifiers, compile time access properties      test_compile_error_any(class A {} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {public int v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {static int v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_error_any(class A {private int v; int q=v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {final int v;} class B {inherit A; int q; void g(){q=v;}}) - test_compile_any(class A {nomask int v;} class B {inherit A; int q; void g(){q=v;}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {nomask int v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {local int v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {inline int v;} class B {inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int f(){}} class B {inherit A; void g(){f();}})   test_compile_any(class A {public int f(){}} class B {inherit A; void g(){f();}})   test_compile_any(class A {static int f(){}} class B {inherit A; void g(){f();}})   test_compile_error_any(class A {private int f(){} int q=f();} class B {inherit A; void g(){f();}})   test_compile_any(class A {final int f(){}} class B {inherit A; void g(){f();}}) - test_compile_any(class A {nomask int f(){}} class B {inherit A; void g(){f();}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {nomask int f(){}} class B {inherit A; void g(){f();}})   test_compile_any(class A {local int f(){}} class B {inherit A; void g(){f();}})   test_compile_any(class A {inline int f(){}} class B {inherit A; void g(){f();}})      test_compile_any(class A {int v;} class B {public inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int v;} class B {static inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int v;} class B {private inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int v;} class B {final inherit A; int q; void g(){q=v;}}) - test_compile_any(class A {int v;} class B {nomask inherit A; int q; void g(){q=v;}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {int v;} class B {nomask inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int v;} class B {local inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int v;} class B {inline inherit A; int q; void g(){q=v;}})   test_compile_any(class A {int f(){}} class B {public inherit A; void g(){f();}})   test_compile_any(class A {int f(){}} class B {static inherit A; void g(){f();}})   test_compile_any(class A {int f(){}} class B {private inherit A; void g(){f();}})   test_compile_any(class A {int f(){}} class B {final inherit A; void g(){f();}}) - test_compile_any(class A {int f(){}} class B {nomask inherit A; void g(){f();}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {int f(){}} class B {nomask inherit A; void g(){f();}})   test_compile_any(class A {int f(){}} class B {local inherit A; void g(){f();}})   test_compile_any(class A {int f(){}} class B {inline inherit A; void g(){f();}})      test_compile_error_any(class A {} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {public int v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {static int v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_error_any(class A {private int v; int q=v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {final int v;} class B {inherit A; int q; void g(){q=A::v;}}) - test_compile_any(class A {nomask int v;} class B {inherit A; int q; void g(){q=A::v;}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {nomask int v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {local int v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {inline int v;} class B {inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int f(){}} class B {inherit A; void g(){A::f();}})   test_compile_any(class A {public int f(){}} class B {inherit A; void g(){A::f();}})   test_compile_any(class A {static int f(){}} class B {inherit A; void g(){A::f();}})   test_compile_error_any(class A {private int f(){} int q=f();} class B {inherit A; void g(){A::f();}})   test_compile_any(class A {final int f(){}} class B {inherit A; void g(){A::f();}}) - test_compile_any(class A {nomask int f(){}} class B {inherit A; void g(){A::f();}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {nomask int f(){}} class B {inherit A; void g(){A::f();}})   test_compile_any(class A {local int f(){}} class B {inherit A; void g(){A::f();}})   test_compile_any(class A {inline int f(){}} class B {inherit A; void g(){A::f();}})      test_compile_any(class A {int v;} class B {public inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int v;} class B {static inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int v;} class B {private inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int v;} class B {final inherit A; int q; void g(){q=A::v;}}) - test_compile_any(class A {int v;} class B {nomask inherit A; int q; void g(){q=A::v;}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {int v;} class B {nomask inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int v;} class B {local inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int v;} class B {inline inherit A; int q; void g(){q=A::v;}})   test_compile_any(class A {int f(){}} class B {public inherit A; void g(){A::f();}})   test_compile_any(class A {int f(){}} class B {static inherit A; void g(){A::f();}})   test_compile_any(class A {int f(){}} class B {private inherit A; void g(){A::f();}})   test_compile_any(class A {int f(){}} class B {final inherit A; void g(){A::f();}}) - test_compile_any(class A {int f(){}} class B {nomask inherit A; void g(){A::f();}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {int f(){}} class B {nomask inherit A; void g(){A::f();}})   test_compile_any(class A {int f(){}} class B {local inherit A; void g(){A::f();}})   test_compile_any(class A {int f(){}} class B {inline inherit A; void g(){A::f();}})      test_compile_error_any(class A {} class B {inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int v;} class B {inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int v;} class B {public inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int v;} class B {static inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_error_any(class A {int v;} class B {private inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int v;} class B {final inherit A;} class C {inherit B; int q; void g(){q=B::v;}}) - test_compile_any(class A {int v;} class B {nomask inherit A;} class C {inherit B; int q; void g(){q=B::v;}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {int v;} class B {nomask inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int v;} class B {local inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int v;} class B {inline inherit A;} class C {inherit B; int q; void g(){q=B::v;}})   test_compile_any(class A {int f(){}} class B {inherit A;} class C {inherit B; void g(){B::f();}})   test_compile_any(class A {int f(){}} class B {public inherit A;} class C {inherit B; void g(){B::f();}})   test_compile_any(class A {int f(){}} class B {static inherit A;} class C {inherit B; void g(){B::f();}})   test_compile_error_any(class A {int f(){}} class B {private inherit A;} class C {inherit B; void g(){B::f();}})   test_compile_any(class A {int f(){}} class B {final inherit A;} class C {inherit B; void g(){B::f();}}) - test_compile_any(class A {int f(){}} class B {nomask inherit A;} class C {inherit B; void g(){B::f();}}) + test_compile_any( + #pragma no_deprecation_warnings + class A {int f(){}} class B {nomask inherit A;} class C {inherit B; void g(){B::f();}})   test_compile_any(class A {int f(){}} class B {local inherit A;} class C {inherit B; void g(){B::f();}})   test_compile_any(class A {int f(){}} class B {inline inherit A;} class C {inherit B; void g(){B::f();}})      // - modifiers, run time access properties      test_eval_error(return class {}()->f())   test_do(class {int f(){}}()->f())   test_do(class {public int f(){}}()->f())   test_eval_error(return class {static int f(){}}()->f())   test_eval_error(return class {private int f(){} int q=f();}()->f())   test_do(class {final int f(){}}()->f()) - test_do(class {nomask int f(){}}()->f()) + test_do( + #pragma no_deprecation_warnings + class {nomask int f(){}}()->f())   test_do(class {local int f(){}}()->f())   test_do(class {inline int f(){}}()->f())   test_do(class {class A {}}()->A())   test_do(class {public class A {}}()->A())   test_eval_error(return class {static class A {}}()->A())   test_eval_error(return class {private class A {} object q=A();}()->A())   test_do(class {final class A {}}()->A()) - test_do(class {nomask class A {}}()->A()) + test_do( + #pragma no_deprecation_warnings + class {nomask class A {}}()->A())   test_do(class {local class A {}}()->A())   test_do(class {inline class A {}}()->A())      test_equal(indices(class {}()), ({}))   test_equal(indices(class {int v;}()), ({"v"}))   test_equal(indices(class {public int v;}()), ({"v"}))   test_equal(indices(class {static int v;}()), ({}))   test_equal(indices(class {private int v; static int q=v;}()), ({}))   test_equal(indices(class {final int v;}()), ({"v"})) - test_equal(indices(class {nomask int v;}()), ({"v"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {nomask int v;}()), ({"v"}))   test_equal(indices(class {local int v;}()), ({"v"}))   test_equal(indices(class {inline int v;}()), ({"v"}))   test_equal(indices(class {int f(){}}()), ({"f"}))   test_equal(indices(class {public int f(){}}()), ({"f"}))   test_equal(indices(class {static int f(){}}()), ({}))   test_equal(indices(class {private int f(){} static int q=f();}()), ({}))   test_equal(indices(class {final int f(){}}()), ({"f"})) - test_equal(indices(class {nomask int f(){}}()), ({"f"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {nomask int f(){}}()), ({"f"}))   test_equal(indices(class {local int f(){}}()), ({"f"}))   test_equal(indices(class {inline int f(){}}()), ({"f"}))      test_equal(indices(class {class A {} class B {inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {int v;} class B {inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {public int v;} class B {inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {static int v;} class B {inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {private int v; static int q=v;} class B {inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {final int v;} class B {inherit A;}}()->B()), ({"v"})) - test_equal(indices(class {class A {nomask int v;} class B {inherit A;}}()->B()), ({"v"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {class A {nomask int v;} class B {inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {local int v;} class B {inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {inline int v;} class B {inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {int f(){}} class B {inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {public int f(){}} class B {inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {static int f(){}} class B {inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {private int f(){} static int q=f();} class B {inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {final int f(){}} class B {inherit A;}}()->B()), ({"f"})) - test_equal(indices(class {class A {nomask int f(){}} class B {inherit A;}}()->B()), ({"f"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {class A {nomask int f(){}} class B {inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {local int f(){}} class B {inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {inline int f(){}} class B {inherit A;}}()->B()), ({"f"}))      test_equal(indices(class {class A {int v;} class B {public inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {static inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {int v;} class B {private inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {int v;} class B {final inherit A;}}()->B()), ({"v"})) - test_equal(indices(class {class A {int v;} class B {nomask inherit A;}}()->B()), ({"v"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {class A {int v;} class B {nomask inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {local inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {inline inherit A;}}()->B()), ({"v"}))   test_equal(indices(class {class A {int f(){}} class B {public inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {static inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {int f(){}} class B {private inherit A;}}()->B()), ({}))   test_equal(indices(class {class A {int f(){}} class B {final inherit A;}}()->B()), ({"f"})) - test_equal(indices(class {class A {int f(){}} class B {nomask inherit A;}}()->B()), ({"f"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {class A {int f(){}} class B {nomask inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {local inherit A;}}()->B()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {inline inherit A;}}()->B()), ({"f"}))      test_equal(indices(class {class A {} class B {inherit A;} class C {inherit B;}}()->C()), ({}))   test_equal(indices(class {class A {int v;} class B {inherit A;} class C {inherit B;}}()->C()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {public inherit A;} class C {inherit B;}}()->C()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {static inherit A;} class C {inherit B;}}()->C()), ({}))   test_equal(indices(class {class A {int v;} class B {private inherit A;} class C {inherit B;}}()->C()), ({}))   test_equal(indices(class {class A {int v;} class B {final inherit A;} class C {inherit B;}}()->C()), ({"v"})) - test_equal(indices(class {class A {int v;} class B {nomask inherit A;} class C {inherit B;}}()->C()), ({"v"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {class A {int v;} class B {nomask inherit A;} class C {inherit B;}}()->C()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {local inherit A;} class C {inherit B;}}()->C()), ({"v"}))   test_equal(indices(class {class A {int v;} class B {inline inherit A;} class C {inherit B;}}()->C()), ({"v"}))   test_equal(indices(class {class A {int f(){}} class B {inherit A;} class C {inherit B;}}()->C()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {public inherit A;} class C {inherit B;}}()->C()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {static inherit A;} class C {inherit B;}}()->C()), ({}))   test_equal(indices(class {class A {int f(){}} class B {private inherit A;} class C {inherit B;}}()->C()), ({}))   test_equal(indices(class {class A {int f(){}} class B {final inherit A;} class C {inherit B;}}()->C()), ({"f"})) - test_equal(indices(class {class A {int f(){}} class B {nomask inherit A;} class C {inherit B;}}()->C()), ({"f"})) + test_equal( + #pragma no_deprecation_warnings + indices(class {class A {int f(){}} class B {nomask inherit A;} class C {inherit B;}}()->C()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {local inherit A;} class C {inherit B;}}()->C()), ({"f"}))   test_equal(indices(class {class A {int f(){}} class B {inline inherit A;} class C {inherit B;}}()->C()), ({"f"}))      test_any([[   #pike 7.6    class Y {    static object x = class X {}();    };    return has_index (Y(), "X");   ]], 1)      // - modifiers, binding and redefinition properties with compile time access      test_any(class A {int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {public int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {static int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {private int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_compile_error_any(class A {final int v=1;}; class B {inherit A; int v=2;};) - test_compile_error_any(class A {nomask int v=1;}; class B {inherit A; int v=2;};) + test_compile_error_any( + #pragma no_deprecation_warnings + class A {nomask int v=1;}; class B {inherit A; int v=2;};)   test_any(class A {local int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {inline int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {public int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {static int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {private int f(){return 1;} int q=f();}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_compile_error_any(class A {final int f(){return 1;}}; class B {inherit A; int f(){return 2;}};) - test_compile_error_any(class A {nomask int f(){return 1;}}; class B {inherit A; int f(){return 2;}};) + test_compile_error_any( + #pragma no_deprecation_warnings + class A {nomask int f(){return 1;}}; class B {inherit A; int f(){return 2;}};)   test_any(class A {local int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {inline int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)      test_any(class A {int v=1;}; class B {public inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {static inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {private inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_compile_error_any(class A {int v=1;}; class B {final inherit A; int v=2;};) - test_compile_error_any(class A {int v=1;}; class B {nomask inherit A; int v=2;};) + test_compile_error_any( + #pragma no_deprecation_warnings + class A {int v=1;}; class B {nomask inherit A; int v=2;};)   test_any(class A {int v=1;}; class B {local inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inline inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {public inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {static inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {private inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_compile_error_any(class A {int f(){return 1;}}; class B {final inherit A; int f(){return 2;}};) - test_compile_error_any(class A {int f(){return 1;}}; class B {nomask inherit A; int f(){return 2;}};) + test_compile_error_any( + #pragma no_deprecation_warnings + class A {int f(){return 1;}}; class B {nomask inherit A; int f(){return 2;}};)   test_any(class A {int f(){return 1;}}; class B {local inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inline inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)      test_any(class A {int v=1;}; class B {inherit A; int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inherit A; public int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inherit A; static int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inherit A; private int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inherit A; final int v=2; int t(){return v;}}; return B()->t(), 2) - test_any(class A {int v=1;}; class B {inherit A; nomask int v=2; int t(){return v;}}; return B()->t(), 2) + test_any( + #pragma no_deprecation_warnings + class A {int v=1;}; class B {inherit A; nomask int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inherit A; local int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int v=1;}; class B {inherit A; inline int v=2; int t(){return v;}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; public int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; static int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; private int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; final int f(){return 2;} int t(){return f();}}; return B()->t(), 2) - test_any(class A {int f(){return 1;}}; class B {inherit A; nomask int f(){return 2;} int t(){return f();}}; return B()->t(), 2) + test_any( + #pragma no_deprecation_warnings + class A {int f(){return 1;}}; class B {inherit A; nomask int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; local int f(){return 2;} int t(){return f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; int f(){return 2;} int t(){return local::f();}}; return B()->t(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; inline int f(){return 2;} int t(){return f();}}; return B()->t(), 2)      test_any(class A {int v=1; int t(){return v;}}; class B {inherit A; int v=2;}; return B()->t(), 2)   test_any(class A {public int v=1; int t(){return v;}}; class B {inherit A; int v=2;}; return B()->t(), 2)   test_any(class A {static int v=1; int t(){return v;}}; class B {inherit A; int v=2;}; return B()->t(), 2)   test_any(class A {private int v=1; int t(){return v;}}; class B {inherit A; int v=2;}; return B()->t(), 1)   test_any(class A {local int v=1; int t(){return v;}}; class B {inherit A; int v=2;}; return B()->t(), 1)   test_any(class A {inline int v=1; int t(){return v;}}; class B {inherit A; int v=2;}; return B()->t(), 1)
pike.git/src/testsuite.in:11747:   test_any(class A {int f(){return 1;}}; class B {public inherit A; int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {static inherit A; int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {private inherit A; int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {local inherit A; int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {inline inherit A; int f(){return 2;}}; return B()->f(), 2)      test_any(class A {int v=1;}; class B {inherit A; public int v=2;}; return B()->v, 2)   test_any(class A {int v=1;}; class B {inherit A; static int v=2;}; return B()->v, 0)   test_any(class A {int v=1;}; class B {inherit A; private int v=2;}; return B()->v, 0)   test_any(class A {int v=1;}; class B {inherit A; final int v=2;}; return B()->v, 2) - test_any(class A {int v=1;}; class B {inherit A; nomask int v=2;}; return B()->v, 2) + test_any( + #pragma no_deprecation_warnings + class A {int v=1;}; class B {inherit A; nomask int v=2;}; return B()->v, 2)   test_any(class A {int v=1;}; class B {inherit A; local int v=2;}; return B()->v, 2)   test_any(class A {int v=1;}; class B {inherit A; inline int v=2;}; return B()->v, 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; public int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; static int f(){return 2;}}; return B()->f, 0)   test_any(class A {int f(){return 1;}}; class B {inherit A; private int f(){return 2;} int q=f();}; return B()->f, 0)   test_any(class A {int f(){return 1;}}; class B {inherit A; final int f(){return 2;}}; return B()->f(), 2) - test_any(class A {int f(){return 1;}}; class B {inherit A; nomask int f(){return 2;}}; return B()->f(), 2) + test_any( + #pragma no_deprecation_warnings + class A {int f(){return 1;}}; class B {inherit A; nomask int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; local int f(){return 2;}}; return B()->f(), 2)   test_any(class A {int f(){return 1;}}; class B {inherit A; inline int f(){return 2;}}; return B()->f(), 2)      // - modifiers, misc checks      test_program([[    class A {int i = 17;}    class B {    private inherit A;    class C {