From 490def939412143c4b94f02a15a601ba289dfe9b Mon Sep 17 00:00:00 2001 From: Antero Mejr Date: Sun, 4 Jun 2023 17:42:06 +0000 Subject: [PATCH] gnu: Add perl-test-mockrandom. * gnu/packages/perl-check.scm (perl-test-mockrandom): New variable. Signed-off-by: Danny Milosavljevic --- gnu/packages/perl-check.scm | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm index 7672e82f9b0aae394b6d3a8b5310b02947218fdf..e1eb5a07640c36679c1efd12f1a9f30fd8c63528 100644 --- a/gnu/packages/perl-check.scm +++ b/gnu/packages/perl-check.scm @@ -963,6 +963,33 @@ to particular interfaces with very little code. You don't have to reimplement the behavior, just the input and the output.") (license perl-license))) +(define-public perl-test-mockrandom + (package + (name "perl-test-mockrandom") + (version "1.01") + (source (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/D/DA/DAGOLDEN/Test-MockRandom-" + version ".tar.gz")) + (sha256 + (base32 + "1q6c474ya9najgj4wzgj0waj56ykrj3fxhgvkb1ylpgwhh6r6516")))) + (build-system perl-build-system) + (home-page "https://metacpan.org/release/Test-MockRandom") + (synopsis + "Replaces random number generation with non-random number generation") + (description + "This module can test routines that manipulate random numbers by +providing a known output from @code{rand}. Given a list of seeds with +@code{srand}, it will return each in turn. After seeded random numbers are +exhausted, it will always return 0. Seed numbers must be of a form that +meets the expected output from @code{rand} as called with no arguments: they +must be between 0 (inclusive) and 1 (exclusive). In order to facilitate +generating and testing a nearly-one number, this module exports the function +@code{oneish}, which returns a number just fractionally less than one.") + (license asl2.0))) + (define-public perl-test-mocktime (package (name "perl-test-mocktime")