random.pcg: add a unit-test

Check the first and the millionth number of the 32-bit generator for the
seed (1, 1).

diff --git a/extra/random/pcg/pcg-tests.factor b/extra/random/pcg/pcg-tests.factor
new file mode 100644 (file)
index 0000000..2aa1a66
--- /dev/null
+++ b/extra/random/pcg/pcg-tests.factor
@@ -0,0 +1,9 @@
+! Copyright (C) 2023 Alexander Ilin.
+! See https://factorcode.org/license.txt for BSD license.
+USING: kernel math random tools.test random.pcg ;
+IN: random.pcg.tests
+
+{ 3182460383 1446378418 } [
+    1 1 <Mwc128XXA32> dup random-32* swap
+    999999 [ dup random-32* drop ] times random-32*
+] unit-test