Description: adjust script location when run under autopkgtest
Origin: vendor
Forwarded: not-needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2023-08-16

--- a/t/lib/TestCommand.pm
+++ b/t/lib/TestCommand.pm
@@ -6,8 +6,9 @@
 sub command {
 	my( $class, @args ) = @_;
 
+    my $script = ( $ENV{AUTOPKGTEST_TMP} ? '/usr/bin/cpan-audit' : 'script/cpan-audit' );
 	my ( $stdout, $stderr, $rc ) = capture {
-		system $^X, '-Ilib', 'script/cpan-audit', '--no-corelist', @args;
+		system $^X, '-Ilib', $script, '--no-corelist', @args;
 		};
 
 	my( $ran, $signal, $exit, $coredump );
--- a/t/json.t
+++ b/t/json.t
@@ -13,9 +13,11 @@
 	use_ok( $class ) or BAIL_OUT( "$class did not compile: $@" );
 	};
 
+my $script = ( $ENV{AUTOPKGTEST_TMP} ? '/usr/bin/cpan-audit' : 'script/cpan-audit' );
+
 subtest 'json, corelist' => sub {
     my( $stdout, $stderr, $exit ) = capture {
-        system( $^X, '-Ilib', 'script/cpan-audit', '--json', 'deps', 't/data/cpanfiles' );
+        system( $^X, '-Ilib', $script, '--json', 'deps', 't/data/cpanfiles' );
     	};
 
     unlike $stdout, qr/Discovered \d+/;
@@ -29,7 +31,7 @@
 
 subtest 'json, no corelist' => sub {
     my( $stdout, $stderr, $exit ) = capture {
-        system( $^X, '-Ilib', 'script/cpan-audit', '--json', '--no-corelist', 'deps', 't/data/cpanfiles' );
+        system( $^X, '-Ilib', $script, '--json', '--no-corelist', 'deps', 't/data/cpanfiles' );
     	};
 
     unlike $stdout, qr/Discovered \d+/;
--- a/t/queried_modules.t
+++ b/t/queried_modules.t
@@ -9,13 +9,15 @@
 
 my $class = "CPAN::Audit";
 
+my $script = ( $ENV{AUTOPKGTEST_TMP} ? '/usr/bin/cpan-audit' : 'script/cpan-audit' );
+
 subtest 'setup' => sub {
 	use_ok( $class ) or BAIL_OUT( "$class did not compile: $@" );
 	};
 
 subtest 'deps queried_modules' => sub {
     my( $stdout, $stderr, $exit ) = capture {
-        system( $^X, '-Ilib', 'script/cpan-audit', '--json', 'deps', 't/data/queried_modules' );
+        system( $^X, '-Ilib', $script, '--json', 'deps', 't/data/queried_modules' );
     	};
 
     is $stderr, '';
@@ -31,7 +33,7 @@
 
 subtest 'module queried_modules Mojolicious' => sub {
     my( $stdout, $stderr, $exit ) = capture {
-        system( $^X, '-Ilib', 'script/cpan-audit', '--json', 'module', 'Mojo::File' );
+        system( $^X, '-Ilib', $script, '--json', 'module', 'Mojo::File' );
     	};
 
     is $stderr, '';
@@ -45,7 +47,7 @@
 
 subtest 'module queried_modulesi Catalyst' => sub {
     my( $stdout, $stderr, $exit ) = capture {
-        system( $^X, '-Ilib', 'script/cpan-audit', '--json', 'module', 'Catalyst' );
+        system( $^X, '-Ilib', $script, '--json', 'module', 'Catalyst' );
     	};
 
     is $stderr, '';
@@ -59,7 +61,7 @@
 
 subtest 'modules queried_modules' => sub {
     my( $stdout, $stderr, $exit ) = capture {
-        system( $^X, '-Ilib', 'script/cpan-audit', '--json', 'modules', 'Catalyst', 'Mojo::File', 'Mojo::UserAgent' );
+        system( $^X, '-Ilib', $script, '--json', 'modules', 'Catalyst', 'Mojo::File', 'Mojo::UserAgent' );
     	};
 
     is $stderr, '';