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
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Config;
use Test::More;
use Test::Deep;
BEGIN {
use_ok 'Debian::DpkgLists';
};
my $m = 'Debian::DpkgLists';
my $perl_api = $Config{PERL_API_REVISION}.'.'.$Config{PERL_API_VERSION};
my $pkg_perl_modules = "perl-modules-$perl_api";
my $pkg_libperl = "libperl$perl_api";
my $pkg_libperl_t64 = $pkg_libperl . 't64';
my $split_perl_base = ( $perl_api ge '5.22' );
diag "Perl API is $perl_api";
is_deeply( [ $m->scan_full_path('/usr/bin/perl') ],
['perl-base'], '/usr/bin/perl is in perl-base' );
my @found = $m->scan_partial_path('/bin/perl');
ok( grep( 'perl-base', @found ), 'partial /bin/perl is in perl-base' );
@found = $m->scan_pattern(qr{/bin/perl$});
ok( grep( 'perl-base', @found ), 'qr{/bin/perl$} is in perl-base' );
is_deeply(
[ $m->scan_perl_mod('Dpkg') ],
['libdpkg-perl'],
"Dpkg.pm is in libdpkg-perl"
);
cmp_deeply(
[ $m->scan_perl_mod('Errno') ],
$split_perl_base ? subsetof($pkg_libperl, $pkg_libperl_t64, 'perl-base') : ['perl-base'],
"Errno is in $pkg_libperl/$pkg_libperl_t64 and perl-base (or only perl-base for perl < 5.22)"
);
cmp_deeply(
[ $m->scan_perl_mod('IO::Socket::UNIX') ],
$split_perl_base ? subsetof($pkg_libperl, $pkg_libperl_t64, 'perl-base') : ['perl-base'],
"IO::Socket::UNIX is in $pkg_libperl/$pkg_libperl_t64 and perl-base (or only perl-base for perl < 5.22)"
);
is_deeply(
[ $m->scan_perl_mod('utf8') ],
$split_perl_base ? ['perl-base', $pkg_perl_modules] : ['perl-base'],
"utf8 is in perl-base or $pkg_perl_modules (or only perl-base for perl < 5.22)"
);
done_testing();
|
