random: adding tests for Wald distribution

mrjbq7 · Jul 8, 2024 · 0c09331 · 0c09331
1 parent da39367
commit 0c09331
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/basis/random/random-tests.factor b/basis/random/random-tests.factor
@@ -100,3 +100,8 @@ math.functions sets grouping random.private math.statistics ;
     500000 [ 100 0.8 binomial-random ] replicate
     [ mean 80 .1 ~ ] [ std 4 .1 ~ ] bi
 ] unit-test
+
+{ t } [
+    500000 [ 1.23 1.45 wald-random ] replicate
+    mean 1.54 1.23 / .1 ~
+] unit-test