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

(newline)

(test-begin "SRFI 27")

(test-group "Testing random SRFI-4 vector"
  (print "Random Source: " (random-source-kind (current-random-source)))
  (print "Entropy Source: " (entropy-source-kind (current-entropy-source)))

  (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 srfi-27-uniform-random)

(test-group "make-uniform-random-integers"
  (let-values (
      ((gen init)
        (make-uniform-random-integers high: 27 low: 16 precision: 2)))
    (let-values (((high low precision source) (init)))
      (test-assert (= 27 high))
      (test-assert (= 16 low))
      (test-assert (= 2 precision))
      (do ((i 0 (add1 i))
           (rv (gen) (gen)) )
          ((= 100 i))
        (unless (<= 16 rv) (test-assert (<= 16 rv)))
        (unless (<= rv 27) (test-assert (<= rv 27)))
        (unless (zero? (modulo rv 2)) (test-assert (zero? (modulo rv 2)))) ) ) ) )

;FIXME needs real test
(test-group "make-uniform-random-reals"
  (let-values (
      ((gen init)
        (make-uniform-random-reals precision: 0.000000000003)))
    (let-values (((precision source) (init)))
      (test-assert (= 0.000000000003 precision))
      ;(flonum-print-precision 53)
      (do ((i 0 (add1 i))
           (rv (gen) (gen)) )
          ((= 100 i))
          ) ) ) )

(test-end "SRFI 27")

(use utils)

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

(newline)

(test-exit)