pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
1999-04-08
1999-04-08 22:19:47 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
07d3f2373ca76649328c7cb976820301f1492043 (
35
lines) (+
34
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
more tests..
Rev: src/testsuite.in:1.166
1:
-
stest_true([["$Id: testsuite.in,v 1.
165
1999/04/
02
23
:
25
:
01
hubbe Exp $"]])
+
stest_true([["$Id: testsuite.in,v 1.
166
1999/04/
08
22
:
19
:
47
hubbe Exp $"]])
cond([[all_constants()->_verify_internals]], [[ test_do(_verify_internals())
349:
class Y { inherit X:banan; void hopp() { banan::hej(); } } ]])
+
// testing virtual overloading
+
test_any([[
+
class fnord
+
{
+
int ber() { return 1; }
+
int goo() { return ber(); }
+
};
-
+
class blorg
+
{
+
inherit fnord;
+
int ber() { return 2; }
+
};
+
return blorg()->goo();
+
]],2)
+
+
// testing 'local'
+
test_any([[
+
class fnord
+
{
+
local int ber() { return 1; }
+
int goo() { return ber(); }
+
};
+
+
class blorg
+
{
+
inherit fnord;
+
int ber() { return 2; }
+
};
+
return blorg()->goo();
+
]],1)
+
+
// 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)