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
|
#!/usr/bin/perl
use strict;
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);
our $TEST_DH_FIXTURE_DIR = 'named-legacy';
our @TEST_DH_EXTRA_TEMPLATE_FILES = (qw(
debian/changelog
debian/control
debian/foo.service
debian/foo.init
));
plan(tests => 3);
# Units are installed and enabled
each_compat_from_x_to_and_incl_y_subtest(11, 12, sub {
make_path('debian/foo/usr/lib/tmpfiles.d');
create_empty_file('debian/foo/usr/lib/tmpfiles.d/foo.conf');
ok(run_dh_tool('dh_installinit'));
ok(run_dh_tool('dh_installsystemd'));
ok(-e "debian/foo/etc/init.d/foo");
ok(-e "debian/foo/usr/lib/systemd/system/foo.service");
my @postinst = find_script('foo', 'postinst');
# We should have two snippets (one for the tmpfiles and one for the services).
is(scalar(@postinst), 2);
if (scalar(@postinst) == 2) {
open(my $fd, '<', $postinst[0]) or error("open($postinst[0]) failed: $!");
my $early_snippet = readlines($fd);
close($fd);
open($fd, '<', $postinst[1]) or error("open($postinst[1]) failed: $!");
my $late_snippet = readlines($fd);
close($fd);
ok(! grep { m/(?:invoke|update)-rc.d|deb-systemd-invoke/ } @{$early_snippet});
ok(grep { m/(?:invoke|update)-rc.d|deb-systemd-invoke/ } @{$late_snippet});
ok(grep { m/systemd-tmpfiles/ } @{$early_snippet});
ok(! grep { m/systemd-tmpfiles/ } @{$late_snippet});
}
ok(run_dh_tool('dh_clean'));
});
each_compat_from_and_above_subtest(13, sub {
make_path('debian/foo/usr/lib/tmpfiles.d');
create_empty_file('debian/foo/usr/lib/tmpfiles.d/foo.conf');
ok(run_dh_tool('dh_installinit'));
ok(run_dh_tool('dh_installsystemd'));
ok(-e "debian/foo/etc/init.d/foo");
ok(-e "debian/foo/usr/lib/systemd/system/foo.service");
my @postinst = find_script('foo', 'postinst');
# We should have one snippet (one for the services).
is(scalar(@postinst), 1);
if (scalar(@postinst) == 1) {
open(my $fd, '<', $postinst[0]) or error("open($postinst[0]) failed: $!");
my $snippet = readlines($fd);
close($fd);
ok(grep { m/(?:invoke|update)-rc.d|deb-systemd-invoke/ } @{$snippet});
ok(! grep { m/systemd-tmpfiles/ } @{$snippet});
}
ok(run_dh_tool('dh_clean'));
});
each_compat_from_and_above_subtest(13, sub {
make_path('debian/foo/usr/lib/tmpfiles.d');
create_empty_file('debian/foo/usr/lib/tmpfiles.d/foo.conf');
ok(run_dh_tool('dh_installtmpfiles'));
# dh_installtmpfiles do not install services
ok(!-e "debian/foo/etc/init.d/foo");
ok(!-e "debian/foo/usr/lib/systemd/system/foo.service");
my @postinst = find_script('foo', 'postinst');
# We should have too snippets (one for the tmpfiles and one for the services).
is(scalar(@postinst), 1);
if (scalar(@postinst) == 1) {
open(my $fd, '<', $postinst[0]) or error("open($postinst[0]) failed: $!");
my $snippet = readlines($fd);
close($fd);
ok(! grep { m/(?:invoke|update)-rc.d|deb-systemd-invoke/ } @{$snippet});
ok(grep { m/systemd-tmpfiles/ } @{$snippet});
}
ok(run_dh_tool('dh_clean'));
});
|
