debian/0000755000000000000000000000000012237153664007177 5ustar debian/changelog0000644000000000000000000000240112237153664011046 0ustar libtap-formatter-junit-perl (0.09-2) unstable; urgency=low * Fixed failing tests (closes: #711255) - Added dependency on libtie-ixhash-perl for the patch * Updated standards version -- Peter Eisentraut Fri, 08 Nov 2013 07:06:45 -0500 libtap-formatter-junit-perl (0.09-1) unstable; urgency=low * New upstream release - Updated dependencies * Updated standards version * Updated package description -- Peter Eisentraut Mon, 12 Mar 2012 20:54:20 +0200 libtap-formatter-junit-perl (0.08-2) unstable; urgency=low * Upload to unstable * Updated copyright file to new DEP5 version * Updated standards version * Changed to Debhelper level 8 * Added "Jenkins" to references to "Hudson" -- Peter Eisentraut Sun, 30 Oct 2011 15:40:37 +0200 libtap-formatter-junit-perl (0.08-1) experimental; urgency=low * New upstream release * Added uupdate to watch file * Updated standards version * Changed copyright to refer to GPL-1 file -- Peter Eisentraut Tue, 27 Jul 2010 22:25:21 +0300 libtap-formatter-junit-perl (0.07-1) experimental; urgency=low * Initial release (closes: #568265) -- Peter Eisentraut Thu, 04 Feb 2010 10:44:38 +0200 debian/rules0000755000000000000000000000003611332225021010234 0ustar #!/usr/bin/make -f %: dh $@ debian/copyright0000644000000000000000000000213611653171425011130 0ustar Format: http://anonscm.debian.org/viewvc/dep/web/deps/dep5.mdwn?view=co&revision=202 Upstream-Name: TAP-Formatter-JUnit Upstream-Contact: Graham TerMarsch Source: http://search.cpan.org/dist/TAP-Formatter-JUnit/ Files: * Copyright: 2008, Graham TerMarsch License: Artistic or GPL-1+ Files: debian/* Copyright: 2010, Peter Eisentraut 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 GNU/Linux 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 GNU/Linux systems, the complete text of the GNU General Public License version 1 can be found in the file /usr/share/common-licenses/GPL-1. debian/patches/0000755000000000000000000000000012237151452010617 5ustar debian/patches/series0000644000000000000000000000005112237150711012025 0ustar TAP-Formatter-JUnit-0.09-hashorder.patch debian/patches/TAP-Formatter-JUnit-0.09-hashorder.patch0000644000000000000000000000750512237151452017624 0ustar Subject: FTBFS with perl 5.18: test failures Origin: https://rt.cpan.org/Public/Ticket/Attachment/1248369/660425/TAP-Formatter-JUnit-0.09-hashorder.patch Bug: https://rt.cpan.org/Public/Bug/Display.html?id=81552 Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=711255 This patch addresses https://rt.cpan.org/Public/Bug/Display.html?id=81552 Strictly speaking, this is a test suite issue since the generated XML remains valid, but some attributes are output in a different order than expected by the test suite. However, since I can't think of any simple way to make the tests more forgiving of the order of the attributes in the XML, I've tweaked the code to use Tie::IxHash to ensure that the generated XML has the attributes in the same order as the tests expect them. --- a/lib/TAP/Formatter/JUnit/Session.pm +++ b/lib/TAP/Formatter/JUnit/Session.pm @@ -10,6 +10,7 @@ use File::Path qw(mkpath); use IO::File; use TAP::Formatter::JUnit::Result; +use Tie::IxHash; has 'testcases' => ( is => 'rw', @@ -104,10 +105,12 @@ if ($timer_enabled) { unless ($result->is_test) { my $duration = $result->time - $t_start; - my $case = $xml->testcase( { - 'name' => _squeaky_clean('(init)'), + tie my %case_attrs, 'Tie::IxHash'; + %case_attrs = ( 'time' => $duration, - } ); + 'name' => _squeaky_clean('(init)'), + ); + my $case = $xml->testcase( \%case_attrs ); $self->add_testcase($case); $t_last_test = $result->time; } @@ -136,22 +139,23 @@ if ($bogosity) { my $cdata = $self->_cdata($content); my $level = $bogosity->{level}; - $failure = $xml->$level( { + tie my %error_attrs, 'Tie::IxHash'; + %error_attrs = ( type => $bogosity->{type}, message => $bogosity->{message}, - }, $cdata ); + ); + $failure = $xml->$level( \%error_attrs, $cdata ); } # add this test to the XML stream - my $case = $xml->testcase( - { - 'name' => _get_testcase_name($result), + tie my %case_attrs, 'Tie::IxHash'; + %case_attrs = ( ( $timer_enabled ? ('time' => $duration) : () ), - }, - $failure, + 'name' => _get_testcase_name($result), ); + my $case = $xml->testcase( \%case_attrs, $failure, ); $self->add_testcase($case); # update time of last test seen @@ -162,10 +166,12 @@ # track time for teardown, if needed if ($timer_enabled) { my $duration = $self->parser->end_time - $queue->[-1]->time; - my $case = $xml->testcase( { - 'name' => _squeaky_clean('(teardown)'), + tie my %case_attrs, 'Tie::IxHash'; + %case_attrs = ( 'time' => $duration, - } ); + 'name' => _squeaky_clean('(teardown)'), + ); + my $case = $xml->testcase( \%case_attrs ); $self->add_testcase($case); } @@ -225,11 +231,12 @@ } my @tests = @{$self->testcases()}; - my %attrs = ( - 'name' => _get_testsuite_name($self), - 'tests' => $testsrun, + tie my %attrs, 'Tie::IxHash'; + %attrs = ( 'failures' => $failures, 'errors' => $num_errors, + 'tests' => $testsrun, + 'name' => _get_testsuite_name($self), ( $timer_enabled ? ('time' => $time) : () ), debian/compat0000644000000000000000000000000211653171776010402 0ustar 8 debian/source/0000755000000000000000000000000011332225272010465 5ustar debian/source/format0000644000000000000000000000001411332506010011663 0ustar 3.0 (quilt) debian/control0000644000000000000000000000246712237153613010605 0ustar Source: libtap-formatter-junit-perl Section: perl Priority: optional Build-Depends: debhelper (>= 8), perl (>= 5.10) Build-Depends-Indep: libfile-slurp-perl, libio-stringy-perl, libmoose-perl, libmoosex-nonmoose-perl, libtest-differences-perl, perl (>= 5.10.1) | libtest-harness-perl (>= 3.02), libtest-pod-perl, libtest-pod-coverage-perl, libtie-ixhash-perl, libxml-generator-perl Maintainer: Peter Eisentraut Standards-Version: 3.9.5 Homepage: http://search.cpan.org/dist/TAP-Formatter-JUnit/ Package: libtap-formatter-junit-perl Architecture: all Depends: ${perl:Depends}, ${misc:Depends}, perl (>= 5.10), libfile-slurp-perl, libmoose-perl, libmoosex-nonmoose-perl, perl (>= 5.10.1) | libtest-harness-perl (>= 3.02), libtie-ixhash-perl, libxml-generator-perl Enhances: hudson, jenkins Description: Perl module for converting TAP output to JUnit XML output TAP::Formatter::JUnit provides JUnit XML output formatting for TAP::Harness. It can be used with prove, for example, to format the output of a test suite into a JUnit XML document. It is particularly intended for integrating Perl or TAP test suites into the Hudson and Jenkins continuous integration servers. (Previously, they had a JUnit plugin but no TAP plugin. Nowadays, you could perhaps also use the TAP plugin instead.) debian/watch0000644000000000000000000000020311332225021010201 0ustar version=3 http://search.cpan.org/dist/TAP-Formatter-JUnit/ .*/TAP-Formatter-JUnit-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$