diff options
Diffstat (limited to 'gnu/packages/perl-check.scm')
| -rw-r--r-- | gnu/packages/perl-check.scm | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm index ccd9279f3a..0aaae65573 100644 --- a/gnu/packages/perl-check.scm +++ b/gnu/packages/perl-check.scm @@ -15,6 +15,7 @@ ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com> +;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1065,6 +1066,34 @@ usually called epsilon. This module provides such a function for use with @code{Test::More}.") (license asl2.0))) +(define-public perl-test-object + (package + (name "perl-test-object") + (version "0.08") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/E/ET/ETHER/" + "Test-Object-" version ".tar.gz")) + (sha256 + (base32 "1fyhn558kvla37fb60fzdr6kd2kfcxcmpr8884zk2dvq2ij8j9v5")))) + (build-system perl-build-system) + (home-page "https://metacpan.org/release/Test-Object") + (synopsis "Thoroughly testing objects via registered handlers") + (description + "In situations where you have deep trees of classes, +there is a common situation in which you test a module 4 or 5 subclasses down, +which should follow the correct behaviour of not just the subclass, but of all +the parent classes. + +This should be done to ensure that the implementation of a subclass has not +somehow ``broken'' the object's behaviour in a more general sense. + +Test::Object is a testing package designed to allow you to easily test what +you believe is a valid object against the expected behaviour of all of the +classes in its inheritance tree in one single call.") + (license perl-license))) + (define-public perl-test-output (package (name "perl-test-output") @@ -1287,6 +1316,33 @@ makes fork(2) safe to use in test cases.") (home-page "https://metacpan.org/release/Test-Simple") (license perl-license))) +(define-public perl-test-subcalls + (package + (name "perl-test-subcalls") + (version "1.10") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/E/ET/ETHER/" + "Test-SubCalls-" version ".tar.gz")) + (sha256 + (base32 "1hmnv9nkdzyrr6yis0dnkf4lk0hwld3zapiyq7mizrq5barykhfb")))) + (build-system perl-build-system) + (propagated-inputs + `(("perl-hook-lexwrap" ,perl-hook-lexwrap))) + (home-page "https://metacpan.org/release/Test-SubCalls") + (synopsis "Track the number of times subs are called") + (description + "There are a number of different situations (like testing caching +code) where you want to want to do a number of tests, and then verify +that some underlying subroutine deep within the code was called +a specific number of times. + +Test::SubCalls module provides a number of functions for doing testing +in this way in association with your normal Test::More (or similar) +test scripts.") + (license perl-license))) + (define-public perl-test-taint (package (name "perl-test-taint") |