pike.git/ src/ testsuite.in

2002-05-05

2002-05-05 00:28:30 by Martin Stjernholm <mast@lysator.liu.se>

• 91b0d91a57457a95338be48fca90ed2547b7ff47 (80 lines) (+79/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Include the names of the surrounding classes themselves in the lookup for
Foo::, to make it possible to adress hidden variables in the scopes of
surrounding classes, e.g:

class X {
int i;
void create (int i) {X::i = i;}
}

Since this change is mostly but not completely compatible with the earlier
lookup rule, it's disabled in 7.2 compatibility mode.

Rev: src/language.yacc:1.275
Rev: src/testsuite.in:1.508

1: - test_true([["$Id: testsuite.in,v 1.507 2002/05/02 16:33:14 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.508 2002/05/05 00:28:30 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
2064:    class Y { inherit X:banan; void hopp() { banan::hej(); } }   ]])    + test_program([[ +  class X { +  int i = 17; +  class Y { +  constant i = 18; +  mixed f (int i) {return ({i, Y::i, X::i});} +  } +  } +  int a() {return equal (X()->Y()->f (19), ({19, 18, 17}));} + ]]) +  + test_compile_error_any([[ +  #pike 7.2 +  class X { +  int i = 17; +  class Y { +  constant i = 18; +  mixed f (int i) {return ({i, Y::i, X::i});} +  } +  } + ]]) +  + test_compile_error_any([[ +  class X { +  constant i = 18; +  mixed f() {return Y::i;} +  } + ]]) +  + test_program([[ +  class A { +  int i = 17; +  } +  class X { +  inherit A: Y; +  class Y { +  constant i = 18; +  mixed f() {return Y::i;} +  } +  } +  int a() {return X()->Y()->f() == 18;} + ]]) +  + test_program([[ +  #pike 7.2 +  class A { +  int i = 17; +  } +  class X { +  inherit A: Y; +  class Y { +  constant i = 18; +  mixed f() {return Y::i;} +  } +  } +  int a() {return X()->Y()->f() == 17;} + ]]) +  + test_program([[ +  class A { +  string s = "A"; +  } +  class B { +  constant s = "B"; +  } +  class X { +  constant s = "X"; +  inherit A; +  class Y { +  inherit B: A; +  constant s = "Y"; +  mixed f() {return X::s + X::A::s + Y::s + Y::A::s + A::s;} +  } +  } +  int a() {return X()->Y()->f() == "XAYBB";} + ]]) +    // testing virtual overloading   test_any([[   class fnord