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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
use 5.008004;
use Test2::V0 -no_srand => 1;
use Test::Alien::Build;
use Alien::Build::Plugin::Gather::IsolateDynamic;
use Capture::Tiny qw( capture_merged );
subtest 'basic' => sub {
my $check = sub {
my($build) = @_;
note scalar capture_merged {
$build->probe;
$build->download;
$build->build;
};
my $stage = $build->install_prop->{stage};
ok(-f "$stage/lib/$_", "correct: lib/$_") for qw( libfoo.a );
ok(-f "$stage/bin/$_", "correct: bin/$_") for qw( foo foo.exe );
foreach my $file (qw( libfoo.dylib libfoo.bundle libfoo.la foo.dll.a ))
{
ok(!-f "$stage/lib/$file", "moved: lib/$file");
ok(-f "$stage/dynamic/$file", "correct: dynamic/$file");
}
};
subtest 'less indirect' => sub {
my $build = alienfile q{
use alienfile;
use Path::Tiny qw( path );
plugin 'Test::Mock',
probe => 'share',
download => 1,
extract => 1;
share {
build sub {
my($build) = @_;
my $dir = path($build->install_prop->{stage});
$dir->child('lib')->mkpath;
$dir->child('lib', $_)->touch for qw( libfoo.a libfoo.dylib libfoo.bundle libfoo.la foo.dll.a );
$dir->child('bin')->mkpath;
$dir->child('bin', $_)->touch for qw( foo foo.exe foo.dll );
};
plugin 'Gather::IsolateDynamic';
};
};
$check->($build);
};
subtest 'destdir' => sub {
my $build = alienfile q{
use alienfile;
use Path::Tiny qw( path );
use Alien::Build::Util qw( _destdir_prefix );
plugin 'Test::Mock',
probe => 'share',
download => 1,
extract => 1;
meta_prop->{destdir} = 1;
share {
download sub { path('foo-1.00.tar.gz')->touch };
extract sub { path($_)->touch for qw( file1 file2 ) };
build sub {
my($build) = @_;
print "in build\n";
my $dir = path(_destdir_prefix($ENV{DESTDIR}, $build->install_prop->{prefix}));
$dir->child('lib')->mkpath;
$dir->child('lib', $_)->touch for qw( libfoo.a libfoo.dylib libfoo.bundle libfoo.la foo.dll.a );
$dir->child('bin')->mkpath;
$dir->child('bin', $_)->touch for qw( foo foo.exe foo.dll );
};
plugin 'Gather::IsolateDynamic';
};
};
$check->($build);
};
};
done_testing;
|
