Add engines.inc for ext/random tests

Author: TimWolla

ext/random/tests/02_engine/user_compatibility.phpt

@@ -6,19 +6,10 @@ Random: Engine: Native engines can be wrapped without changing their sequence
 use Random\Engine;
 use Random\Engine\Mt19937;
 use Random\Engine\PcgOneseq128XslRr64;
+use Random\Engine\Test\TestWrapperEngine;
 use Random\Engine\Xoshiro256StarStar;
 
-class WrapperEngine implements Engine
-{
-    public function __construct(private readonly Engine $engine)
-    {
-    }
-
-    public function generate(): string
-    {
-        return $this->engine->generate();
-    }
-}
+include __DIR__ . "/../engines.inc";
 
 $engines = [];
 $engines[] = new Mt19937(1234);
@@ -29,7 +20,7 @@ foreach ($engines as $engine) {
     echo $engine::class, PHP_EOL;
 
     $native_engine = clone $engine;
-    $user_engine = new WrapperEngine(clone $engine);
+    $user_engine = new TestWrapperEngine(clone $engine);
 
     for ($i = 0; $i < 10_000; $i++) {
         if ($native_engine->generate() !== $user_engine->generate()) {

ext/random/tests/engines.inc

@@ -0,0 +1,74 @@
+<?php
+
+namespace Random\Engine\Test;
+
+use Random\Engine;
+
+final class TestShaEngine implements Engine
+{
+    private string $state;
+
+    public function __construct(?string $state = null)
+    {
+        if ($state !== null) {
+            $this->state = $state;
+        } else {
+            $this->state = random_bytes(20);
+        }
+    }
+
+    public function generate(): string
+    {
+        $this->state = sha1($this->state, true);
+
+        return substr($this->state, 0, 8);
+    }
+}
+
+final class TestWrapperEngine implements Engine
+{
+    public function __construct(private readonly Engine $engine)
+    {
+    }
+
+    public function generate(): string
+    {
+        return $this->engine->generate();
+    }
+}
+
+final class TestXoshiro128PlusPlusEngine implements Engine
+{
+    public function __construct(
+        private int $s0,
+        private int $s1,
+        private int $s2,
+        private int $s3
+    ) {
+    }
+
+    private static function rotl($x, $k)
+    {
+        return (($x << $k) | ($x >> (32 - $k))) & 0xFFFFFFFF;
+    }
+
+    public function generate(): string
+    {
+        $result = (self::rotl(($this->s0 + $this->s3) & 0xFFFFFFFF, 7) + $this->s0) & 0xFFFFFFFF;
+
+        $t = ($this->s1 << 9)  & 0xFFFFFFFF;
+
+        $this->s2 ^= $this->s0;
+        $this->s3 ^= $this->s1;
+        $this->s1 ^= $this->s2;
+        $this->s0 ^= $this->s3;
+
+        $this->s2 ^= $t;
+
+        $this->s3 = self::rotl($this->s3, 11);
+
+        return pack('V', $result);
+    }
+}
+
+?>