add suspend halt strategy

composer.json

@@ -15,7 +15,9 @@
         "issues": "http://github.com/innmind/async-time-warp/issues"
     },
     "require": {
-        "php": "~8.1"
+        "php": "~8.1",
+        "innmind/time-warp": "^3.0",
+        "innmind/mantle": "dev-develop"
     },
     "autoload": {
         "psr-4": {

src/Suspend.php

@@ -0,0 +1,42 @@
+<?php
+declare(strict_types = 1);
+
+namespace Innmind\Async\TimeWarp;
+
+use Innmind\TimeWarp\{
+    Halt,
+    PeriodToMilliseconds,
+};
+use Innmind\TimeContinuum\{
+    Clock,
+    Period,
+    Earth\ElapsedPeriod,
+};
+use Innmind\Mantle\Suspend as Suspension;
+
+final class Suspend implements Halt
+{
+    private Clock $clock;
+    private Suspension $suspend;
+
+    private function __construct(Clock $clock, Suspension $suspend)
+    {
+        $this->clock = $clock;
+        $this->suspend = $suspend;
+    }
+
+    public function __invoke(Period $period): void
+    {
+        $expected = ElapsedPeriod::of((new PeriodToMilliseconds)($period));
+        $start = $this->clock->now();
+
+        do {
+            ($this->suspend)();
+        } while (!$this->clock->now()->elapsedSince($start)->longerThan($expected));
+    }
+
+    public static function of(Clock $clock, Suspension $suspend): self
+    {
+        return new self($clock, $suspend);
+    }
+}

tests/SuspendTest.php

@@ -0,0 +1,32 @@
+<?php
+declare(strict_types = 1);
+
+namespace Tests\Innmind\Async\TimeWarp;
+
+use Innmind\Async\TimeWarp\Suspend;
+use Innmind\Mantle\{
+    Suspend as Suspension,
+    Suspend\Synchronous,
+};
+use Innmind\TimeContinuum\Earth\{
+    Clock,
+    Period\Second,
+};
+use PHPUnit\Framework\TestCase;
+
+class SuspendTest extends TestCase
+{
+    public function testSuspend()
+    {
+        $suspend = Suspend::of(
+            new Clock,
+            Suspension::of(new Clock, Synchronous::of()),
+        );
+
+        $start = \microtime(true);
+
+        $suspend(new Second(2));
+
+        $this->assertGreaterThanOrEqual(2, \microtime(true) - $start);
+    }
+}