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
|
use Test2::Require::EnvVar 'CIPSOMETHING';
use Test2::V0 -no_srand => 1;
use FFI::CheckLib qw( find_lib );
use FFI::Platypus;
# This test should only run under ci in a docker container with
# libffi and libyaml development packages installed
subtest 'libffi' => sub {
my @ffi;
is(
[@ffi = find_lib lib => 'ffi'],
bag {
item match qr/libffi\.so/;
etc;
},
'have ffi',
);
note "lib = $_" for @ffi;
my $ffi = FFI::Platypus->new;
$ffi->lib(@ffi);
my $ffi_raw_call = eval { $ffi->function('ffi_raw_call' => [] => 'void') };
ok $ffi_raw_call, "has symbol ffi_raw_call";
};
subtest 'yaml' => sub {
my @yaml;
is(
[@yaml = find_lib lib => 'yaml', try_linker_script => 1],
bag {
item match qr/libyaml.*\.so/;
etc;
},
'have yaml',
);
note "lib = $_" for @yaml;
my $ffi = FFI::Platypus->new;
$ffi->lib(@yaml);
my $yaml_get_version_string = eval { $ffi->function('yaml_get_version_string' => [] => 'string') };
ok $yaml_get_version_string, "has symbol yaml_get_version_string";
return unless $yaml_get_version_string;
ok $yaml_get_version_string->(), "has a version yo";
note "yaml_get_version_string = ", $yaml_get_version_string->();
};
done_testing;
|
