This is an automated email from the git hooks/post-receive script.
alexm-guest pushed a commit to branch fallback-for-github-pull-requests
in repository pkg-perl-tools.
commit c216ca9a188cd0380ec68121132794cd458ae9a9
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
