pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
1999-12-28
1999-12-28 01:18:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
5f05c127cd84c436b25d920727e36a462dd7f5b4 (
38
lines) (+
37
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
bugfix in inheritance
Rev: src/program.c:1.192
Rev: src/testsuite.in:1.255
1:
-
test_true([["$Id: testsuite.in,v 1.
254
1999/12/
17
21
:
09
:
53
hubbe Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
255
1999/12/
28
01
:
18
:
44
hubbe Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
136:
} }()->C()->D()->bonk_me()]],"oiff")
+
+
test_do([[
+
class Foo
+
{
+
inherit Stdio.File;
+
+
void create() { }
+
};
+
+
class Bar
+
{
+
int y;
+
+
+
class Gazonk
+
{
+
inherit Foo;
+
+
+
void create(Stdio.File f)
+
{
+
assign(f);
+
}
+
}
+
+
void create()
+
{
+
Gazonk(Stdio.stdin);
+
}
+
};
+
+
Bar();
+
+
]])
+
test_false([[object_variablep(class X { int y; int z() { return 1; }}(),"foo")]]) test_false([[object_variablep(class X { int y; int z() { return 1; }}(),"z")]]) test_true([[object_variablep(class X { int y; int z() { return 1; }}(),"y")]])