pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2002-05-01
2002-05-01 20:06:21 by Martin Stjernholm <mast@lysator.liu.se>
4705b581c70c257fa7f49d462b7853d783a343c7 (
62
lines) (+
61
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Added some tests for the identifier lookup fix.
Rev: src/testsuite.in:1.505
1:
-
test_true([["$Id: testsuite.in,v 1.
504
2002/
04
/
29
15
:
07
:
14
grubba
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
505
2002/
05
/
01
20
:
06
:
21
mast
Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
1127:
dnl test_eq([[Stdio._stdin]],[[Stdio.stdin->_fd]])
+
test_program([[
+
class A {
+
string f() {return "A";}
+
}
+
class B {
+
string f() {return "B";}
+
}
+
class C {
+
inherit B;
+
}
+
class D {
+
inherit A;
+
inherit C;
+
string g() {return f();}
+
}
+
int a() {
+
return D()->g() == "B";
+
}
+
]])
+
test_program([[
+
class A {
+
string f() {return "A";}
+
}
+
class B {
+
string f() {return "B";}
+
}
+
class C {
+
inherit B;
+
}
+
class D {
+
inherit C;
+
inherit A;
+
string g() {return f();}
+
}
+
int a() {
+
return D()->g() == "A";
+
}
+
]])
+
test_program([[
+
class A {
+
string f() {return "A";}
+
}
+
class B {
+
string f() {return "B";}
+
}
+
class C {
+
inherit B;
+
}
+
class D {
+
string f() {return "D";}
+
inherit A;
+
inherit C;
+
string g() {return f();}
+
}
+
int a() {
+
return D()->g() == "D";
+
}
+
]])
+
test_compile_any([[ class Bar {