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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use File::Basename qw(dirname);
use lib dirname(dirname(__FILE__));
use Test::DH;
use File::Path qw(remove_tree make_path);
use Debian::Debhelper::Dh_Lib qw(!dirname);
sub has_man_db_tool {
my ($tool) = @_;
open(my $old_stderr, '>&', *STDERR) or error("dup(STDERR, tmp_fd): $!");
open(*STDERR, '>', '/dev/null') or error("re-open stderr as /dev/null: $!");
my $res = defined(`$tool --version`);
open(*STDERR, '>&', $old_stderr) or error("dup(tmp_fd, STDERR): $!");
close($old_stderr);
return $res;
}
if (has_man_db_tool('man') || has_man_db_tool('man-recode')) {
plan(tests => 2);
} else {
plan(skip_all => 'Test requires man or man-recode');
}
our @TEST_DH_EXTRA_TEMPLATE_FILES = (qw(
manpage-uncompressed.pod
manpage-compressed.pod
));
each_compat_subtest {
my ($compat) = @_;
if (! -d 'generated-manpages') {
# Static data that can be reused. Generate only in the first test
make_path('generated-manpages');
for my $basename (qw(manpage-uncompressed manpage-compressed)) {
doit('pod2man', '--utf8', '-c', 'Debhelper', '-r', '1.0', "${basename}.pod",
"generated-manpages/${basename}.1");
}
doit('gzip', '-9n', 'generated-manpages/manpage-compressed.1');
}
ok(run_dh_tool('dh_installman', 'generated-manpages/manpage-uncompressed.1',
'generated-manpages/manpage-compressed.1.gz'));
ok(-e 'debian/debhelper/usr/share/man/man1/manpage-uncompressed.1');
ok(-e 'debian/debhelper/usr/share/man/man1/manpage-compressed.1');
remove_tree('debian/debhelper', 'debian/tmp', 'debian/.debhelper');
};
each_compat_subtest {
my ($compat) = @_;
if (! -d 'generated-manpages') {
# Static data that can be reused. Generate only in the first test
make_path('generated-manpages');
for my $basename (qw(manpage-uncompressed manpage-compressed)) {
doit('pod2man', '--utf8', '-c', 'Debhelper', '-r', '1.0', "${basename}.pod",
"generated-manpages/${basename}.1");
}
doit('gzip', '-9n', 'generated-manpages/manpage-compressed.1');
}
install_dir('debian/debhelper/usr/share/man/man1');
install_file('generated-manpages/manpage-uncompressed.1', 'debian/debhelper/usr/share/man/man1/manpage-uncompressed.1');
install_file('generated-manpages/manpage-compressed.1.gz', 'debian/debhelper/usr/share/man/man1/manpage-compressed.1.gz');
ok(run_dh_tool('dh_installman'));
ok(-e 'debian/debhelper/usr/share/man/man1/manpage-uncompressed.1');
ok(-e 'debian/debhelper/usr/share/man/man1/manpage-compressed.1');
remove_tree('debian/debhelper', 'debian/tmp', 'debian/.debhelper');
};
|
