unikernel/duniverse/ocaml-tls/eio/tests/test_rng.ml

@@ -0,0 +1,21 @@
+(* Insecure predictable RNG for fuzz testing. *)
+
+type g = int ref
+
+let block = 1
+
+let create ?time:_ () = ref 1234
+
+let generate_into ~g buf ~off n =
+  for i = off to off + n - 1 do
+    Bytes.set_uint8 buf i !g;
+    g := !g + 1
+  done
+
+let reseed ~g:_ _ = ()
+
+let accumulate ~g:_ _ = `Acc ignore
+
+let seeded ~g:_ = true
+
+let pools = 0