(use test)
(use srfi-27)
(use srfi-4)

(let ((v10 (random-u8vector 10)))
  (newline)
  (print "u8vector: " v10)
  (test "random-u8vector ?" #t (u8vector? v10))
  (test "random-u8vector 10" 10 (u8vector-length v10)) )

(let ((v10 (random-f64vector 10)))
  (newline)
  (print "f64vector: " v10)
  (test "random-f64vector ?" #t (f64vector? v10))
  (test "random-f64vector 10" 10 (f64vector-length v10)) )

(use utils)

(system* "csi -n -s test-mrg32k3a.scm")
(system* "csi -n -s test-confidence")
;(system* "csi -n -s test-diehard") ;errors