pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2014-12-04
2014-12-04 19:23:54 by Henrik Grubbström (Grubba) <grubba@grubba.org>
454ecaf641b81e9cd3b9ceeee5e06e7fd1609e4a (
19
lines) (+
16
/-
3
)
[
Show
|
Annotate
]
Branch:
bill/master_archive_support
Testsuite: Extended the __INIT() tests somewhat.
4008:
// Testing __INIT test_any([[
-
class X { int x = 1; };
+
class X { int x = 1;
int zz = 1;
};
class Y { int y = 2; };
-
class Z { inherit X; inherit Y; int z = 4; };
+
class Z { inherit X; inherit Y; int z = 4;
int zz = 0;
};
object zz = Z();
-
return zz->x + zz->y + zz->z;
+
return zz->x + zz->y + zz->z
+ zz->zz
;
]], 7)
-
+
test_any([[
+
// Test __INIT with forward references to programs needing their parents.
+
class X {
+
program y = Y;
+
local class Y {
+
program z = y;
+
};
+
};
+
object x = X();
+
return x->y == x->Y;
+
]], 1)
+
// Testing getter/setters test_any([[ // Trivial case.