More __clone testing

diff --git a/tests/classes/clone_004.phpt b/tests/classes/clone_004.phpt
new file mode 100755 (executable)
index 0000000..ca1a9fc
--- /dev/null
+++ b/tests/classes/clone_004.phpt
@@ -0,0 +1,72 @@
+--TEST--
+ZE2 object cloning, 4
+--FILE--
+<?php
+abstract class base {
+  public $a = 'base';
+
+  // disallow cloning
+  private function __clone() {}
+}
+
+class test extends base {
+  public $b = 'test';
+
+  // reenable cloning
+  public function __clone() {}
+
+  public function show() {
+       var_dump($this);
+  }
+}
+
+echo "Original\n";
+$o1 = new test;
+$o1->a = array(1,2);
+$o1->b = array(3,4);
+$o1->show();
+
+echo "Clone\n";
+$o2 = $o1->__clone();
+$o2->show();
+
+echo "Modify\n";
+$o2->a = 5;
+$o2->b = 6;
+$o2->show();
+
+echo "Done\n";
+?>
+--EXPECT--
+Original
+object(test)#1 (2) {
+  ["b"]=>
+  array(2) {
+    [0]=>
+    int(3)
+    [1]=>
+    int(4)
+  }
+  ["a"]=>
+  array(2) {
+    [0]=>
+    int(1)
+    [1]=>
+    int(2)
+  }
+}
+Clone
+object(test)#2 (2) {
+  ["b"]=>
+  string(4) "test"
+  ["a"]=>
+  string(4) "base"
+}
+Modify
+object(test)#2 (2) {
+  ["b"]=>
+  int(6)
+  ["a"]=>
+  int(5)
+}
+Done

diff --git a/tests/classes/clone_005.phpt b/tests/classes/clone_005.phpt
new file mode 100755 (executable)
index 0000000..bfe4d66
--- /dev/null
+++ b/tests/classes/clone_005.phpt
@@ -0,0 +1,19 @@
+--TEST--
+ZE2 object cloning, 5
+--FILE--
+<?php
+abstract class base {
+  public $a = 'base';
+
+  // disallow cloning once forever
+  final private function __clone() {}
+}
+
+class test extends base {
+  // reenabling should fail
+  public function __clone() {}
+}
+
+?>
+--EXPECTF--
+Fatal error: Cannot override final method base::__clone() in %sclone_005.php on line %d