Description: use installed pherkin binary during autopkgtests
Origin: vendor
Forwarded: not-needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2021-02-13

--- a/t/901_examples.t
+++ b/t/901_examples.t
@@ -9,13 +9,14 @@
 use Path::Tiny qw(path);
 
 my $dir = 'examples';
+my $bindir = ( $ENV{AUTOPKGTEST_TMP} ? '/usr/bin' : 'bin' );
 
 subtest examples => sub {
     my @examples = grep { -d $_ } glob("$dir/*");
     #diag explain \@examples;
 
     for my $example (@examples) {
-        my $exit = system "$^X -Ilib bin/pherkin $example";
+        my $exit = system "$^X -Ilib $bindir/pherkin $example";
         is $exit, 0, "exit code of $example";
     }
 };
@@ -27,7 +28,7 @@
     dircopy "examples/digest", $tempdir;
     my $filename = "$tempdir/features/basic.feature";
     {
-        my $exit = system "$^X -Ilib bin/pherkin $tempdir";
+        my $exit = system "$^X -Ilib $bindir/pherkin $tempdir";
         is $exit, 0, "exit code of broken Digest example";
     }
 
@@ -36,12 +37,12 @@
     path($filename)->spew_utf8($content);
 
     {
-        my $exit = system "$^X -Ilib bin/pherkin $tempdir";
+        my $exit = system "$^X -Ilib $bindir/pherkin $tempdir";
         is $exit, 0, "exit code of broken Digest example";
     }
 
     {
-        my $exit = system "$^X -Ilib bin/pherkin --strict $tempdir";
+        my $exit = system "$^X -Ilib $bindir/pherkin --strict $tempdir";
         is $exit, 256, "exit code of broken Digest example";
     }
 };
@@ -57,7 +58,7 @@
     path($filename)->spew_utf8($content);
 
     {
-        my $exit = system "$^X -Ilib bin/pherkin $tempdir";
+        my $exit = system "$^X -Ilib $bindir/pherkin $tempdir";
         is $exit, 512, "exit code of broken Digest example";
     }
 };