Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
380759e3
by Raymond Toy at 2018-01-27T21:59:25-08:00
3 changed files:
Changes:
| ... | ... | @@ -127,7 +127,6 @@ |
| 127 | 127 |
'("target:code/rand-xoroshiro"))
|
| 128 | 128 |
(t
|
| 129 | 129 |
'("target:code/rand")))
|
| 130 |
- "target:code/rand-xoroshiro"
|
|
| 131 | 130 |
"target:code/alieneval"
|
| 132 | 131 |
"target:code/c-call"
|
| 133 | 132 |
"target:code/sap"
|
| ... | ... | @@ -102,7 +102,6 @@ |
| 102 | 102 |
(maybe-byte-load "code:rand-xoroshiro")
|
| 103 | 103 |
#-(or random-mt19937 random-xoroshiro)
|
| 104 | 104 |
(maybe-byte-load "code:rand")
|
| 105 |
-(maybe-byte-load "code:rand-xoroshiro")
|
|
| 106 | 105 |
(maybe-byte-load "target:pcl/walk")
|
| 107 | 106 |
(maybe-byte-load "code:fwrappers")
|
| 108 | 107 |
(maybe-byte-load "code:ntrace")
|
| ... | ... | @@ -20,6 +20,13 @@ |
| 20 | 20 |
|
| 21 | 21 |
(defvar *test-state*)
|
| 22 | 22 |
|
| 23 |
+(define-test rng.state
|
|
| 24 |
+ (let ((s (kernel::random-state-state *random-state*)))
|
|
| 25 |
+ #+random-xoroshiro
|
|
| 26 |
+ (assert-true (typep s '(simple-array double-float (2))))
|
|
| 27 |
+ #+random-mt19937
|
|
| 28 |
+ (assert-true (typep s '(simple-array (unsigned-byte 32) (627))))))
|
|
| 29 |
+ |
|
| 23 | 30 |
#+random-xoroshiro
|
| 24 | 31 |
(define-test rng.initial-state
|
| 25 | 32 |
(setf *test-state*
|
| ... | ... | @@ -56,6 +63,7 @@ |
| 56 | 63 |
(assert-equal value (64-bit-value *test-state*))
|
| 57 | 64 |
(assert-equal state (multiple-value-list (64-bit-rng-state *test-state*))))))
|
| 58 | 65 |
|
| 66 |
+#+random-xoroshiro
|
|
| 59 | 67 |
(define-test rng.jump
|
| 60 | 68 |
(setf *test-state*
|
| 61 | 69 |
(kernel::make-random-object :state (kernel::init-random-state #x12345678)
|
| ... | ... | @@ -68,3 +76,4 @@ |
| 68 | 76 |
(kernel:random-state-jump *test-state*)
|
| 69 | 77 |
(assert-equal result (multiple-value-list
|
| 70 | 78 |
(64-bit-rng-state *test-state*)))))
|
| 79 |
+ |