From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:42980) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1drsuh-0001KT-Mt for guix-patches@gnu.org; Tue, 12 Sep 2017 17:40:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1drsug-0002kM-Pn for guix-patches@gnu.org; Tue, 12 Sep 2017 17:40:11 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:56060) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1drsug-0002k8-ME for guix-patches@gnu.org; Tue, 12 Sep 2017 17:40:10 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1drsug-0003wX-EO for guix-patches@gnu.org; Tue, 12 Sep 2017 17:40:10 -0400 Subject: [bug#28177] [PATCH 06/12] gnu: Add perl-test-memory-cycle. Resent-Message-ID: From: Christopher Baines Date: Tue, 12 Sep 2017 22:38:58 +0100 Message-Id: <20170912213904.24503-6-mail@cbaines.net> In-Reply-To: <20170912213904.24503-1-mail@cbaines.net> References: <20170912213904.24503-1-mail@cbaines.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 28177@debbugs.gnu.org * gnu/packages/perl.scm (perl-test-memory-cycle): New variable. --- gnu/packages/perl.scm | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index 0ddc77acd..7681e6d65 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -7116,6 +7116,42 @@ file to find out which tests you want to run and the order in which you want to It constructs the right value for the build system to do the right thing.") (license (package-license perl)))) +(define-public perl-test-memory-cycle + (package + (name "perl-test-memory-cycle") + (version "1.06") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/P/PE/PETDANCE/Test-Memory-Cycle-" + version + ".tar.gz")) + (sha256 + (base32 + "00ijmgx1r3cxrcs1qa9rb2s4gbm3nsawd90drda89kb4r7yxslwx")))) + (build-system perl-build-system) + (inputs + `(("perl-padwalker" ,perl-padwalker))) + (propagated-inputs + `(("perl-devel-cycle" ,perl-devel-cycle))) + (home-page + "http://search.cpan.org/dist/Test-Memory-Cycle") + (synopsis + "Verifies code hasn't left circular references") + (description + "@code{Test::Memory::Cycle} is built on top of @code{Devel::Cycle} to +give you an easy way to check for these circular references. + +@example +use Test::Memory::Cycle; + +my $object = new MyObject; +# Do stuff with the object. +memory_cycle_ok( $object ); +@end example") + (license artistic2.0))) + (define-public perl-test-mockobject (package (name "perl-test-mockobject") -- 2.14.1