debian/0000755000000000000000000000000012256704466007202 5ustar debian/patches/0000755000000000000000000000000012256701747010630 5ustar debian/patches/20_fix-defined-array-warnings.patch0000644000000000000000000000124612256673657017311 0ustar Description: Fix defined(@array) deprecation warning Also fixes test suite failures where STDERR was checked Author: Axel Beckert Index: libtest-unit-perl/lib/Test/Unit/TestCase.pm =================================================================== --- libtest-unit-perl.orig/lib/Test/Unit/TestCase.pm 2013-12-25 21:59:45.182407866 +0100 +++ libtest-unit-perl/lib/Test/Unit/TestCase.pm 2013-12-25 22:08:27.777044278 +0100 @@ -103,7 +103,7 @@ my $class = ref($_[0]) || $_[0]; my @tests = (); no strict 'refs'; - if (defined(@{"$class\::TESTS"})) { + if (@{"$class\::TESTS"}) { push @tests, @{"$class\::TESTS"}; } else { debian/patches/series0000644000000000000000000000015712256701140012033 0ustar 20_fix-defined-array-warnings.patch 30_fix-xism-test-suite-failures.patch 40_make-deep-test-less-fragile.patch debian/patches/30_fix-xism-test-suite-failures.patch0000644000000000000000000000252612256673571017643 0ustar Description: Fix test-suite failures due to ?-xism vs ?^ ?^ was introduced with Perl 5.14 as abbreviation for ?d-imsx Author: Axel Beckert Index: libtest-unit-perl/t/tlib/AssertTest.pm =================================================================== --- libtest-unit-perl.orig/t/tlib/AssertTest.pm 2013-12-26 01:17:02.338121179 +0100 +++ libtest-unit-perl/t/tlib/AssertTest.pm 2013-12-26 01:17:50.658363830 +0100 @@ -70,7 +70,7 @@ 'bang' => [ __LINE__, sub { shift->assert(0, 'bang') } ], 'bang' => [ __LINE__, sub { shift->assert('', 'bang') } ], - "'qux' did not match /(?-xism:foo)/" + "'qux' did not match /(?^:foo)/" => [ __LINE__, sub { shift->assert(qr/foo/, 'qux') } ], 'bang' => [ __LINE__, sub { shift->assert(qr/foo/, 'qux', 'bang') } ], 'a ne b'=> [ __LINE__, sub { shift->assert($coderef, 'a', 'b') } ], @@ -253,7 +253,7 @@ q{expected '', got 'foo'} => [ 'foo', '' ], q{expected 'foo', got ''} => [ '', 'foo' ], q{expected 5, got 4} => [ $adder, 5 ], - q{'foo' did not match /(?-xism:x)/} => [ 'foo', qr/x/ ], + q{'foo' did not match /(?^:x)/} => [ 'foo', qr/x/ ], ); my @tests = (); while (@checks) { debian/patches/40_make-deep-test-less-fragile.patch0000644000000000000000000000222312256701636017330 0ustar Description: Add more variants to fragile test This test was already marked by upstream as "may be fragile due to recursion ordering" and it indeed is fragile. Fixes occasional test suite failures due to hash randomization. Author: Axel Beckert Bug: https://rt.cpan.org/Public/Bug/Display.html?id=87017 Index: libtest-unit-perl/t/tlib/AssertTest.pm =================================================================== --- libtest-unit-perl.orig/t/tlib/AssertTest.pm 2013-12-26 02:08:38.782689704 +0100 +++ libtest-unit-perl/t/tlib/AssertTest.pm 2013-12-26 02:13:11.136010021 +0100 @@ -479,7 +479,8 @@ }, } ], - $differ->( 'HASH', 'not exist') => [$families{orig}, $families{bad_copy}], # test may be fragile due to recursion ordering? + # test is fragile due to hash randomization + $differ->( 'HASH|John\sDoe', 'not\sexist|Baby\sDoll') => [$families{orig}, $families{bad_copy}], $differ->("'3'", "'5'") => [ [ \$H, 3 ], [ \$H2, 5 ] ], $differ->("'hello'", "'goodbye'") => [ { world => \$H }, { world => \$G } ], $differ->("'hello'", "'goodbye'") => [ [ \$H, "world" ], [ \$G, "world" ] ], debian/compat0000644000000000000000000000000212256703705010373 0ustar 9 debian/control0000644000000000000000000000261212256704273010602 0ustar Source: libtest-unit-perl Maintainer: Debian Perl Group Uploaders: Andreas Fester , Xavier Guimard , Axel Beckert Section: perl Priority: optional Build-Depends: debhelper (>= 9~) Build-Depends-Indep: libclass-inner-perl, libdevel-symdump-perl, liberror-perl, perl (>= 5.14) Standards-Version: 3.9.5 Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libtest-unit-perl.git Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libtest-unit-perl.git Homepage: https://metacpan.org/release/Test-Unit Package: libtest-unit-perl Architecture: all Depends: ${misc:Depends}, ${perl:Depends}, libclass-inner-perl, libdevel-symdump-perl, liberror-perl Suggests: perl-tk Description: unit testing framework for Perl Test::Unit::* is a sophisticated unit testing framework for Perl that is derived from the JUnit testing framework for Java by Kent Beck and Erich Gamma. . While this framework is originally intended to support unit testing in an object-oriented development paradigm (with support for inheritance of tests etc.), Test::Unit::Procedural is intended to provide a simpler interface to the framework that is more suitable for use in a scripting style environment. debian/copyright0000644000000000000000000000315112256652366011136 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: Test-Unit Source: https://metacpan.org/release/Test-Unit/ Upstream-Contact: Matthew Astley Files: * Copyright: 2000-2005, Adam Spiers 2000-2005, Brian Ewins 2000-2005, Cayte Lindner 2000-2005, Christian Lemburg, 2000-2005, J.E. Fritz 2000-2005, Kevin Connor 2000-2005, Matthew Astley 2000-2005, Michael Schwern 2000-2005, Piers Cawley 2000-2005, Zhon Johansen License: Artistic or GPL-1+ Files: debian/* Copyright: 2001, Doug Porter 2002, Aurelien Jarno 2003, Stephen Zander 2004-2006, Gunnar Wolf 2005, Stephen Quinney 2007, gregor herrmann 2012, Xavier Guimard License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/rules0000755000000000000000000000021612256677176010270 0ustar #!/usr/bin/make -f %: dh $@ override_dh_auto_install: dh_auto_install rm -f debian/libtest-unit-perl/usr/share/perl5/Test/*TestRunner.pl debian/source/0000755000000000000000000000000012256652366010503 5ustar debian/source/format0000644000000000000000000000001412256652366011711 0ustar 3.0 (quilt) debian/watch0000644000000000000000000000015712256652366010237 0ustar version=3 https://metacpan.org/release/Test-Unit .*/Test-Unit-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ debian/clean0000644000000000000000000000001512256652421010174 0ustar Makefile.old debian/test-case-examples/0000755000000000000000000000000012256665367012714 5ustar debian/test-case-examples/procedural-adding-suites-example.pl0000644000000000000000000000223712256665320021571 0ustar # -------------------------------------------------- package Foo; use Test::Unit; use constant DEBUG => 0; # code to be tested will be somewhere around here # define tests, set_up and tear_down sub test_foo_ok_1 { assert(23 == 23); } sub test_foo_ok_2 { assert(42 == 42); } sub set_up { print "hello world\n" if DEBUG; } sub tear_down { print "leaving world again\n" if DEBUG; } # -------------------------------------------------- package Bar; use Test::Unit; use constant DEBUG => 0; # code to be tested will be somewhere around here # define tests, set_up and tear_down sub test_bar_ok_1 { assert(23 == 23); } sub test_bar_ok_2 { assert(42 == 42); } sub set_up { print "hello world\n" if DEBUG; } sub tear_down { print "leaving world again\n" if DEBUG; } # -------------------------------------------------- package FooBar; use Test::Unit; create_suite(); create_suite("Foo"); create_suite("Bar"); add_suite("Foo"); # add Foo to this package add_suite("Bar"); # add Bar to this package print "\n--- Testing FooBar ---\n"; run_suite(); add_suite("Foo", "Bar"); # add Foo to Bar print "\n--- Testing Bar with Foo added to it ---\n"; run_suite("Bar"); debian/test-case-examples/procedural-another-package-example.pl0000644000000000000000000000063612256665320022063 0ustar package Foo; use Test::Unit; use constant DEBUG => 0; # code to be tested will be somewhere around here # define tests, set_up and tear_down sub test_ok_1 { assert(23 == 23); } sub test_ok_2 { assert(42 == 42); } sub set_up { print "hello world\n" if DEBUG; } sub tear_down { print "leaving world again\n" if DEBUG; } # and run them package Bar; use Test::Unit; create_suite("Foo"); run_suite("Foo"); debian/test-case-examples/procedural-fail-example.pl0000644000000000000000000000060512256665320017741 0ustar use Test::Unit; use constant DEBUG => 0; # code to be tested will be somewhere around here # define tests, set_up and tear_down sub test_ok { assert(23 == 23); } sub test_fail { assert("born" =~ /loose/, "Born to lose ..."); } sub set_up { print "hello world\n" if DEBUG; } sub tear_down { print "leaving world again\n" if DEBUG; } # and run them create_suite(); run_suite(); debian/test-case-examples/procedural-ok-example.pl0000644000000000000000000000055212256665320017440 0ustar use Test::Unit; use constant DEBUG => 0; # code to be tested will be somewhere around here # define tests, set_up and tear_down sub test_ok_1 { assert(23 == 23); } sub test_ok_2 { assert(42 == 42); } sub set_up { print "hello world\n" if DEBUG; } sub tear_down { print "leaving world again\n" if DEBUG; } # and run them create_suite(); run_suite(); debian/examples0000644000000000000000000000005312256677355010747 0ustar debian/test-case-examples/* *TestRunner.pl debian/changelog0000644000000000000000000000623612256704152011053 0ustar libtest-unit-perl (0.25-2) unstable; urgency=low [ gregor herrmann ] * Change patch system from dpatch to quilt. * Refresh debian/rules, no functional changes. * debian/control: Added: ${misc:Depends} to Depends: field. [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. [ Xavier Guimard ] * Update source format to 3.0 (quilt) * Bump Standards-Version to 8 * Use debhelper 8 * Update copyright to format 1.0 * Update debian/rules to use dh + Enables running test suite at build time * Change debian/watch to use search.cpan.org [ Salvatore Bonaccorso ] * Change Vcs-Git to canonical URI (git://anonscm.debian.org) * Change search.cpan.org based URIs to metacpan.org based URIs [ Axel Beckert ] * Fix the test suite + Add patch to fix defined(@array) warnings (https://rt.cpan.org/Public/Bug/Display.html?id=77779). + Remove ancient 10_examples.patch as it causes many test suite failures. Move contained files to debian/test-case-examples and install them via debian/examples and dh_installexamples. + Make it work with regexp string representations of Perl 5.14 or later. Add according version restriction to build-dependency. + Make test assert_deep_equals (assert.t) less fragile against hash randomization by adding valid variants. * Install (Tk)TestRunner.pl as examples, not into /usr/share/perl5/Test/ * Add Makefile.old to debian/clean * Add myself to Uploaders. * Bump debhelper compatibility to 9 + Gets rid of the dh_pysupport deprecation warning + Update versioned debhelper build-dependency accordingly * Bump Standards-Version to 3.9.5 (no further changes) -- Axel Beckert Thu, 26 Dec 2013 02:23:43 +0100 libtest-unit-perl (0.25-1) unstable; urgency=low [ Andreas Fester ] * New Maintainer * Re-added package with new upstream version (Closes: #386317) * Added dpatch framework * Converted patch for sample test cases to dpatch [ Gunnar Wolf ] * Added debian/watch file -- Gunnar Wolf Wed, 13 Sep 2006 17:58:54 -0500 libtest-unit-perl (0.24-2) unstable; urgency=low * QA Upload * Changed Maintainer to Debian QA Group -- Stephen Quinney Thu, 17 Feb 2005 21:02:57 +0000 libtest-unit-perl (0.24-1.1) unstable; urgency=low * Corrected missing dependencies (Closes: #197445) * Non-Maintainer Upload -- Gunnar Wolf Fri, 16 Jan 2004 14:27:56 -0600 libtest-unit-perl (0.24-1) unstable; urgency=low * New maintainer; all previous changes included in CVS, Closes: #157510, #157657 * New upstream release, Closes: #187817 -- Stephen Zander Mon, 26 May 2003 21:44:05 -0700 libtest-unit-perl (0.14-1.1) unstable; urgency=low * Non-Maintainer Upload (BSP 2002-11). * Now Build the .deb in binary-indep target (closes: bug#157510). * Updated copyright file (closes: bug#157657). -- Aurelien Jarno Fri, 22 Nov 2002 23:39:31 +0100 libtest-unit-perl (0.14-1) unstable; urgency=low * Initial Release. (closes: Bug#118031) -- Doug Porter Fri, 2 Nov 2001 13:38:33 -0500