[pkg-perl-tools] 03/03: Add test for a failing patch

[Alex Muntada]

This is an automated email from the git hooks/post-receive script.

alexm pushed a commit to branch master
in repository pkg-perl-tools.

commit c32011b3ba044b09ffc6dcf0e90a3fd12c973f8d
Author: Alex Muntada <alexm at debian.org>
Date:   Tue Nov 21 19:56:05 2017 +0100

    Add test for a failing patch
---
 t/failing.patch | 10 ++++++++++
 t/github.t      | 20 ++++++++++++++++++++
 2 files changed, 30 insertions(+)

diff --git a/t/failing.patch b/t/failing.patch
new file mode 100644
index 0000000..70640b8
--- /dev/null
+++ b/t/failing.patch
@@ -0,0 +1,10 @@
+Description: This is a failing dummy patch for testing
+Author: Alex Muntada <alexm at debian.org>
+Forwarded: no
+
+diff --git a/dummy.txt b/dummy.txt
+--- a/dummy.txt
++++ b/dummy.txt
+@@ -1 +1,2 @@
+ Do not feel free to patch this file.
++This line is added.
diff --git a/t/github.t b/t/github.t
index ee3e995..df8e2d3 100644
--- a/t/github.t
+++ b/t/github.t
@@ -73,4 +73,24 @@ subtest 'fallback' => sub {
     done_testing();
 };
 
+subtest 'failing pull request' => sub {
+    my %info = Debian::PkgPerl::Patch
+        ->new( patch => 't/failing.patch' )
+        ->retrieve_patch_info();
+
+    my $msg = Debian::PkgPerl::Message->new(
+        %params,
+        info => \%info,
+        interactive => 0,
+    );
+
+    my $gh = new_ok( $class, [ message => $msg ] );
+
+    my $url = $gh->forward();
+    isnt( $url, undef, 'failing pull request' );
+    diag $url;
+
+    done_testing();
+};
+
 done_testing();

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git