Skip to content
Snippets Groups Projects
Commit be17d9f4 authored by Raymond Toy's avatar Raymond Toy
Browse files

Conditionalize on random-xoroshiro.

These tests test the actual implementation details of the
xoroshiro128+ generator, so conditionalize it for this generator.
parent f5df8745
No related branches found
No related tags found
No related merge requests found
...@@ -20,6 +20,7 @@ ...@@ -20,6 +20,7 @@
(defvar *test-state*) (defvar *test-state*)
#+random-xoroshiro
(define-test rng.initial-state (define-test rng.initial-state
(setf *test-state* (setf *test-state*
(kernel::make-random-object :state (kernel::init-random-state #x12345678) (kernel::make-random-object :state (kernel::init-random-state #x12345678)
...@@ -33,6 +34,7 @@ ...@@ -33,6 +34,7 @@
(assert-equal nil (kernel::random-state-cached-p *test-state*)))) (assert-equal nil (kernel::random-state-cached-p *test-state*))))
#+random-xoroshiro
(define-test rng.values-test (define-test rng.values-test
(assert-equal (list #x38f1dc39d1906b6f #xdfe4142236dd9517) (assert-equal (list #x38f1dc39d1906b6f #xdfe4142236dd9517)
(multiple-value-list (64-bit-rng-state *test-state*))) (multiple-value-list (64-bit-rng-state *test-state*)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment