add 'seed' in random generation in the tests

gnu-octave · Mar 5, 2024 · 195715d · 195715d
1 parent 8e6ec93
commit 195715d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/inst/dist_fit/lognfit.m b/inst/dist_fit/lognfit.m
@@ -181,6 +181,7 @@
 
 ## Test output
 %!test
+%! randn ("seed", 1);
 %! x = lognrnd (3, 5, [1000, 1]);
 %! [paramhat, paramci] = lognfit (x, 0.01);
 %! assert (paramci(1,1) < 3);

diff --git a/inst/dist_obj/LognormalDistribution.m b/inst/dist_obj/LognormalDistribution.m
@@ -708,6 +708,7 @@ function checkparams (mu, sigma)
 
 ## 'paramci' method
 %!shared x
+%! randn ("seed", 1);
 %! x = lognrnd (1, 1, [1, 100]);
 %!error <paramci: optional arguments must be in NAME-VALUE pairs.> ...
 %! paramci (LognormalDistribution.fit (x), "alpha")