From 350f021304d9fd4ce9f80b30a04cb4be38eff527 Mon Sep 17 00:00:00 2001
From: gregor herrmann <gregoa@debian.org>
Date: Tue, 14 Feb 2023 19:25:20 +0100
Subject: update path to mech-dump script during autopkgtest

Origin: vendor
Forwarded: not-needed
Last-Update: 2022-08-26


Gbp-Pq: Name autopkgtest.patch
---
 t/mech-dump/file_not_found.t | 1 +
 t/mech-dump/mech-dump.t      | 1 +
 2 files changed, 2 insertions(+)

diff --git a/t/mech-dump/file_not_found.t b/t/mech-dump/file_not_found.t
index 90b0587..97b6abe 100644
--- a/t/mech-dump/file_not_found.t
+++ b/t/mech-dump/file_not_found.t
@@ -19,6 +19,7 @@ my $exe = File::Spec->catfile(qw( script mech-dump ));
 if ( $^O eq 'VMS' ) {
   $exe = qq[mcr $^X -Ilib $exe];
 }
+$exe = '/usr/bin/mech-dump' if $ENV{AUTOPKGTEST_TMP};
 
 my $perl;
 $perl = $1 if $^X =~ /^(.+)$/;
diff --git a/t/mech-dump/mech-dump.t b/t/mech-dump/mech-dump.t
index c85308f..39f28ff 100644
--- a/t/mech-dump/mech-dump.t
+++ b/t/mech-dump/mech-dump.t
@@ -18,6 +18,7 @@ my $exe = File::Spec->catfile(qw( script mech-dump ));
 if ( $^O eq 'VMS' ) {
   $exe = qq[mcr $^X -Ilib $exe];
 }
+$exe = '/usr/bin/mech-dump' if $ENV{AUTOPKGTEST_TMP};
 
 my $perl;
 $perl = $1 if $^X =~ /^(.+)$/;
-- 
cgit v1.2.3