Change how to stringify Fiber objects

When stringifying `Fiber` objects, the most important thing is to see
which callback it will execute, but currently, the `ObjectStringifier`
doesn't show that because it can't find the callable as a property.

Signed-off-by: Henrique Moody <[email protected]>

Author: henriquemoody

src/Stringifiers/ClusterStringifier.php

@@ -46,6 +46,7 @@ public static function createDefault(): self
             self::MAXIMUM_DEPTH,
             self::MAXIMUM_NUMBER_OF_ITEMS
         );
+        $callableStringifier = new CallableStringifier($stringifier, $quoter);
 
         $stringifier->setStringifiers([
             new IteratorObjectStringifier($stringifier, $quoter),
@@ -55,7 +56,8 @@ public static function createDefault(): self
             new JsonSerializableObjectStringifier($jsonEncodableStringifier, $quoter),
             new EnumerationStringifier($quoter),
             new ObjectWithDebugInfoStringifier($arrayStringifier, $quoter),
-            new CallableStringifier($stringifier, $quoter),
+            new FiberObjectStringifier($callableStringifier, $quoter),
+            $callableStringifier,
             new ObjectStringifier($stringifier, $quoter, self::MAXIMUM_DEPTH, self::MAXIMUM_NUMBER_OF_PROPERTIES),
             $arrayStringifier,
             new InfiniteNumberStringifier($quoter),

src/Stringifiers/FiberObjectStringifier.php

@@ -0,0 +1,42 @@
+<?php
+
+/*
+ * This file is part of Respect/Stringifier.
+ * Copyright (c) Henrique Moody <[email protected]>
+ * SPDX-License-Identifier: MIT
+ */
+
+declare(strict_types=1);
+
+namespace Respect\Stringifier\Stringifiers;
+
+use Fiber;
+use ReflectionFiber;
+use Respect\Stringifier\Quoter;
+use Respect\Stringifier\Stringifier;
+
+use function sprintf;
+
+final class FiberObjectStringifier implements Stringifier
+{
+    public function __construct(
+        private readonly Stringifier $stringifier,
+        private readonly Quoter $quoter
+    ) {
+    }
+
+    public function stringify(mixed $raw, int $depth): ?string
+    {
+        if (!$raw instanceof Fiber) {
+            return null;
+        }
+
+        return $this->quoter->quote(
+            sprintf(
+                'Fiber { %s }',
+                $this->stringifier->stringify((new ReflectionFiber($raw))->getCallable(), $depth + 1)
+            ),
+            $depth
+        );
+    }
+}

tests/integration/stringify-fiber.phpt

@@ -0,0 +1,11 @@
+--FILE--
+<?php
+
+declare(strict_types=1);
+
+require 'vendor/autoload.php';
+
+output(new Fiber('strlen'));
+?>
+--EXPECT--
+`Fiber { strlen(string $string): int }`

tests/unit/Stringifiers/FiberObjectStringifierTest.php

@@ -0,0 +1,60 @@
+<?php
+
+/*
+ * This file is part of Respect/Stringifier.
+ * Copyright (c) Henrique Moody <[email protected]>
+ * SPDX-License-Identifier: MIT
+ */
+
+declare(strict_types=1);
+
+namespace Respect\Stringifier\Test\Unit\Stringifiers;
+
+use Fiber;
+use PHPUnit\Framework\Attributes\CoversClass;
+use PHPUnit\Framework\Attributes\Test;
+use PHPUnit\Framework\TestCase;
+use Respect\Stringifier\Stringifiers\FiberObjectStringifier;
+use Respect\Stringifier\Test\Double\FakeQuoter;
+use Respect\Stringifier\Test\Double\FakeStringifier;
+use stdClass;
+use WithInvoke;
+
+use function sprintf;
+
+#[CoversClass(FiberObjectStringifier::class)]
+final class FiberObjectStringifierTest extends TestCase
+{
+    private const DEPTH = 0;
+
+    #[Test]
+    public function itShouldNotStringifyRawValueWhenItIsNotAnObjectWithDebugInfo(): void
+    {
+        $sut = new FiberObjectStringifier(new FakeStringifier(), new FakeQuoter());
+
+        self::assertNull($sut->stringify(new stdClass(), self::DEPTH));
+    }
+
+    #[Test]
+    public function itShouldStringifyRawValueWhenItIsAnObjectWithDebugInfo(): void
+    {
+        $callable = new WithInvoke();
+
+        $raw = new Fiber($callable);
+
+        $stringifier = new FakeStringifier();
+        $quoter = new FakeQuoter();
+
+        $string = $stringifier->stringify($callable, self::DEPTH + 1);
+
+        $sut = new FiberObjectStringifier($stringifier, $quoter);
+
+        $actual = $sut->stringify($raw, self::DEPTH);
+        $expected = $quoter->quote(
+            sprintf('Fiber { %s }', $string),
+            self::DEPTH
+        );
+
+        self::assertSame($expected, $actual);
+    }
+}