random.pcg: adding 64-bit tests

diff --git a/extra/random/pcg/pcg-tests.factor b/extra/random/pcg/pcg-tests.factor
index 2aa1a66b881c5b79fc192ba7ff05f879851cf1d0..35a6b3b2e95becef809043b5d75ff2b34cf49431 100644 (file)
--- a/extra/random/pcg/pcg-tests.factor
+++ b/extra/random/pcg/pcg-tests.factor
@@ -7,3 +7,16 @@ IN: random.pcg.tests
     1 1 <Mwc128XXA32> dup random-32* swap
     999999 [ dup random-32* drop ] times random-32*
 ] unit-test
+
+{
+    0x05e5078c
+    0xc712599d
+    0xcb088197
+    0x38b1f3b7
+} [
+    1 1 <Mwc256XXA64>
+    2 [ [ random-32* ] keep ] times
+    1999998 [ dup random-32* drop ] times
+    2 [ [ random-32* ] keep ] times
+    drop
+] unit-test