separate serializable and magic serialize test

Author: m6w6

tests/021.phpt

@@ -2,8 +2,8 @@
 Object Serializable interface
 --SKIPIF--
 <?php
-if (version_compare(PHP_VERSION, '5.1.0') < 0) {
-    echo "skip tests in PHP 5.1 or newer";
+if (version_compare(PHP_VERSION, '5.1.0') < 0 || version_compare(PHP_VERSION, '8.1.0dev') >= 0) {
+    echo "skip tests in PHP 5.1-8.1";
 }
 --FILE--
 <?php
@@ -39,13 +39,6 @@ class Obj implements Serializable {
         $this->__construct($tmp[1], $tmp[2]);
     }
 
-    public function __serialize() {
-        return [$this->serialize()];
-    }
-
-    public function __unserialize($serialized) {
-        return $this->unserialize($serialized[0]);
-    }
 }
 
 $o = new Obj(1, 2);

tests/021a.phpt

@@ -0,0 +1,64 @@
+--TEST--
+Object Serializable interface
+--SKIPIF--
+<?php
+if (version_compare(PHP_VERSION, '8.1.0dev') < 0) {
+    echo "skip tests in PHP 8.1+";
+}
+--FILE--
+<?php
+if(!extension_loaded('msgpack')) {
+    dl('msgpack.' . PHP_SHLIB_SUFFIX);
+}
+
+function test($type, $variable, $test) {
+    $serialized = msgpack_serialize($variable);
+    $unserialized = msgpack_unserialize($serialized);
+
+    echo $type, PHP_EOL;
+    echo bin2hex($serialized), PHP_EOL;
+    var_dump($unserialized);
+    echo $test || $unserialized == $variable ? 'OK' : 'ERROR', PHP_EOL;
+}
+
+class Obj implements Serializable {
+    var $a;
+    var $b;
+
+    function __construct($a, $b) {
+        $this->a = $a;
+        $this->b = $b;
+    }
+
+    public function serialize() {
+        return pack('NN', $this->a, $this->b);
+    }
+
+    public function unserialize($serialized) {
+        $tmp = unpack('N*', $serialized);
+        $this->__construct($tmp[1], $tmp[2]);
+    }
+
+    public function __serialize() {
+        return [$this->serialize()];
+    }
+
+    public function __unserialize($serialized) {
+        return $this->unserialize($serialized[0]);
+    }
+}
+
+$o = new Obj(1, 2);
+
+test('object', $o, false);
+?>
+--EXPECTF--
+object
+82c0a34f626ac091a80000000100000002
+object(Obj)#%d (2) {
+  ["a"]=>
+  int(1)
+  ["b"]=>
+  int(2)
+}
+OK