|
2 | 2 | (:require |
3 | 3 | [clojure.spec.test.alpha :as st] |
4 | 4 | [clojure.test :refer :all] |
5 | | - [provisdom.test.core :refer :all] |
| 5 | + [provisdom.test.core :as t] |
6 | 6 | [provisdom.apache-math.alternative-random :as alt-random])) |
7 | 7 |
|
8 | 8 | ;;? seconds |
|
11 | 11 |
|
12 | 12 | ;;;APACHE RANDOM NUMBER GENERATORS |
13 | 13 | (deftest quasi-rnd-vector-lazy-test |
14 | | - (with-instrument `alt-random/quasi-rnd-vector-lazy |
15 | | - (is (spec-check alt-random/quasi-rnd-vector-lazy))) |
16 | | - (with-instrument (st/instrumentable-syms) |
17 | | - (is= '([0.0] [0.5] [0.75]) |
| 14 | + (t/with-instrument `alt-random/quasi-rnd-vector-lazy |
| 15 | + (is (t/spec-check alt-random/quasi-rnd-vector-lazy))) |
| 16 | + (t/with-instrument (st/instrumentable-syms) |
| 17 | + (t/is= '([0.0] [0.5] [0.75]) |
18 | 18 | (take 3 (alt-random/quasi-rnd-vector-lazy 1))) |
19 | | - (is= '([0.0 0.0] [0.5 0.5] [0.75 0.25]) |
| 19 | + (t/is= '([0.0 0.0] [0.5 0.5] [0.75 0.25]) |
20 | 20 | (take 3 (alt-random/quasi-rnd-vector-lazy 2))))) |
21 | 21 |
|
22 | 22 | (deftest secure-rnd-lazy-test |
23 | | - (with-instrument `alt-random/secure-rnd-lazy |
24 | | - (is (spec-check alt-random/secure-rnd-lazy))) |
25 | | - (with-instrument (st/instrumentable-syms) |
26 | | - (is= 0.26673862796330083 (first (alt-random/secure-rnd-lazy 4))) |
27 | | - (is= 0.9214463212165593 (first (alt-random/secure-rnd-lazy 0))))) |
| 23 | + (t/with-instrument `alt-random/secure-rnd-lazy |
| 24 | + (is (t/spec-check alt-random/secure-rnd-lazy))) |
| 25 | + (t/with-instrument (st/instrumentable-syms) |
| 26 | + (t/is= 0.26673862796330083 (first (alt-random/secure-rnd-lazy 4))) |
| 27 | + (t/is= 0.9214463212165593 (first (alt-random/secure-rnd-lazy 0))))) |
28 | 28 |
|
29 | 29 | (deftest mersenne-rnd-lazy-test |
30 | | - (with-instrument `alt-random/mersenne-rnd-lazy |
31 | | - (is (spec-check alt-random/mersenne-rnd-lazy))) |
32 | | - (with-instrument (st/instrumentable-syms) |
33 | | - (is= 0.8335762378570932 (first (alt-random/mersenne-rnd-lazy 4))) |
34 | | - (is= 0.15071724896777527 (first (alt-random/mersenne-rnd-lazy 0))))) |
| 30 | + (t/with-instrument `alt-random/mersenne-rnd-lazy |
| 31 | + (is (t/spec-check alt-random/mersenne-rnd-lazy))) |
| 32 | + (t/with-instrument (st/instrumentable-syms) |
| 33 | + (t/is= 0.8335762378570932 (first (alt-random/mersenne-rnd-lazy 4))) |
| 34 | + (t/is= 0.15071724896777527 (first (alt-random/mersenne-rnd-lazy 0))))) |
0 commit comments