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

tests/rng.lisp

+2 −0
Original line number Diff line number Diff line
@@ -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*)))