[pkg-perl-tools] 05/07: t/patchedit/01_patchedit.t: fix path and add some error handling.

[gregor herrmann]

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

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

commit b3b8d3fdd8a5f7bc6037704d1fa1e51de3c5cce6
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Jun 17 20:07:36 2017 +0200

    t/patchedit/01_patchedit.t: fix path and add some error handling.
---
 t/patchedit/01_patchedit.t | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/t/patchedit/01_patchedit.t b/t/patchedit/01_patchedit.t
index 9f09e38..46444d4 100644
--- a/t/patchedit/01_patchedit.t
+++ b/t/patchedit/01_patchedit.t
@@ -13,7 +13,12 @@ use File::Copy 'copy';
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 
-do $Bin.'/../../patchedit';
+my $script = $Bin.'/../../bin/patchedit';
+unless ( my $return = do $script ) {
+	warn "couldn't parse $script: $@" if $@;
+	warn "couldn't do $script: $!" unless defined $return;
+	warn "couldn't run $script" unless $return;
+}
 
 exit maint();
 
@@ -34,7 +39,7 @@ sub maint {
 	local $ENV{'EDITOR'} = '/bin/true';
 	foreach my $type (@tests) {
 		foreach my $sub_type ('', '-o') {
-			copy("t/patchedit/$type.orig", 't/patchedit/'.$type);
+			copy("t/patchedit/$type.orig", 't/patchedit/'.$type) or die "Copy failed: $!";
 			local @ARGV = (($sub_type ? $sub_type : ()), '-f', 'edit', 't/patchedit/'.$type);
 			main();
 			my $fixed          = read_file('t/patchedit/'.$type);

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