Added some more local:: tests.

Rev: src/testsuite.in:1.307

src/testsuite.in

-test_true([["$Id: testsuite.in,v 1.306 2000/06/21 15:02:27 grubba Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.307 2000/06/22 13:36:22 grubba Exp $"]]);
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -769,6 +769,34 @@ class blorg
 };
 return blorg()->goo();
 ]],1)
+test_any([[
+class fnord
+{
+  int ber() { return 1; }
+  int goo() { return local::ber()+ber(); }
+};
+
+class blorg
+{
+  inherit fnord;
+  int ber() { return 2; }
+};
+return blorg()->goo();
+]],3)
+test_any([[
+class fnord
+{
+  int ber() { return 1; }
+  int goo() { return ber()+local::ber(); }
+};
+
+class blorg
+{
+  inherit fnord;
+  int ber() { return 2; }
+};
+return blorg()->goo();
+]],3)
 
 // Testing the 'inline' keyword
 test_program([[class foo { inline int c() { return time(); } int d() { return c(); } }; class bar { inherit foo; int c() { return 0; } } int a() { return bar()->d(); }]],0)
@@ -5591,6 +5619,7 @@ test_any(class A {int v=1;}; class B {inherit A; private int v=2; int t(){return
 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(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; int v=2; int t(){return local::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)
@@ -5599,6 +5628,7 @@ test_any(class A {int f(){return 1;}}; class B {inherit A; private int f(){retur
 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(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)
@@ -5606,12 +5636,14 @@ test_any(class A {public int v=1; int t(){return v;}}; class B {inherit A; int v
 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 {int v=1; int t(){return local::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)
 test_any(class A {int f(){return 1;} int t(){return f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 2)
 test_any(class A {public int f(){return 1;} int t(){return f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 2)
 test_any(class A {static int f(){return 1;} int t(){return f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 2)
 test_any(class A {private int f(){return 1;} int t(){return f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 1)
 test_any(class A {local int f(){return 1;} int t(){return f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 1)
+test_any(class A {int f(){return 1;} int t(){return local::f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 1)
 test_any(class A {inline int f(){return 1;} int t(){return f();}}; class B {inherit A; int f(){return 2;}}; return B()->t(), 1)
 
 test_any(class A {int v=1; int t(){return v;}}; class B {inherit A; int v=2; int t(){return A::t();}}; return B()->t(), 2)