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 @@
(defvar *test-state*)
#+random-xoroshiro
(define-test rng.initial-state
(setf *test-state*
(kernel::make-random-object :state (kernel::init-random-state #x12345678)
......@@ -33,6 +34,7 @@
(assert-equal nil (kernel::random-state-cached-p *test-state*))))
#+random-xoroshiro
(define-test rng.values-test
(assert-equal (list #x38f1dc39d1906b6f #xdfe4142236dd9517)
(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