1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
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";
}
};
|
