pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2013-07-15
2013-07-15 17:35:19 by Henrik Grubbström (Grubba) <grubba@grubba.org>
bb6ffa76972858c610616a6ea0202bd79951494b (
19
lines) (+
16
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
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.