This is an automated email from the git hooks/post-receive script. alexm-guest pushed a commit to branch master in repository pkg-perl-tools.
commit 2e7786068cbc3cecba0ad6fbd271613d71873ad7 Author: Alex Muntada <al...@alexm.org> Date: Sat Dec 3 04:38:06 2016 +0100 Save bug number in Debian::PkgPerl::Bug --- lib/Debian/PkgPerl/Bug.pm | 1 + t/bug.t | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/Debian/PkgPerl/Bug.pm b/lib/Debian/PkgPerl/Bug.pm index 6046173..4108089 100644 --- a/lib/Debian/PkgPerl/Bug.pm +++ b/lib/Debian/PkgPerl/Bug.pm @@ -38,6 +38,7 @@ sub retrieve_bug_info { my $opt_offline_test = $self->{offline}; my $opt_force = $self->{force}; + $bug_info{bug} = $bug; $bug_info{url} = "https://bugs.debian.org/$bug"; if ($opt_offline_test) { diff --git a/t/bug.t b/t/bug.t index a26422b..7b0631d 100644 --- a/t/bug.t +++ b/t/bug.t @@ -33,8 +33,10 @@ my $bug_nr = $bug_list[0]; my $bug = new_ok( 'Debian::PkgPerl::Bug', [ bug => $bug_nr ]); my %info = $bug->retrieve_bug_info(); +ok( exists $info{bug}, "retrieve bug number" ); +is( $info{bug}, $bug_nr, "verify bug number" ); ok( exists $info{Subject}, "retrieve bug $bug_nr info" ); like( $info{Subject}, qr/\w+/, "bug $bug_nr subject is not empty" ); -note("bug $bug_nr: $info{Subject}"); +note("bug $info{bug}: $info{Subject}"); done_testing(); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits