Tests for constant initialisation

diff --git a/Zend/tests/selfParent_001.phpt b/Zend/tests/selfParent_001.phpt
new file mode 100755 (executable)
index 0000000..29b698e
--- /dev/null
+++ b/Zend/tests/selfParent_001.phpt
@@ -0,0 +1,30 @@
+--TEST--
+Test when constants are initialised. See also selfParent_002.phpt.
+--FILE--
+<?php
+class A {
+       const myConst = "const in A";
+       const myDynConst = self::myConst;
+       
+       public static function test() {
+               var_dump(self::myDynConst);
+       }
+}
+
+class B extends A {
+       const myConst = "const in B";
+
+       public static function test() {
+               var_dump(parent::myDynConst);
+       }
+}
+
+A::test();
+B::test();
+?>
+--EXPECT--
+string(10) "const in A"
+string(10) "const in A"
+--UEXPECT--
+unicode(10) "const in A"
+unicode(10) "const in A"
\ No newline at end of file

diff --git a/Zend/tests/selfParent_002.phpt b/Zend/tests/selfParent_002.phpt
new file mode 100755 (executable)
index 0000000..30a4a4f
--- /dev/null
+++ b/Zend/tests/selfParent_002.phpt
@@ -0,0 +1,30 @@
+--TEST--
+Test when constants are initialised. See also selfParent_001.phpt.
+--FILE--
+<?php
+class A {
+       const myConst = "const in A";
+       const myDynConst = self::myConst;
+       
+       public static function test() {
+               var_dump(self::myDynConst);
+       }
+}
+
+class B extends A {
+       const myConst = "const in B";
+
+       public static function test() {
+               var_dump(parent::myDynConst);
+       }
+}
+
+B::test();
+A::test();
+?>
+--EXPECT--
+string(10) "const in A"
+string(10) "const in A"
+--UEXPECT--
+unicode(10) "const in A"
+unicode(10) "const in A"