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
101
102
103
104
105
106
107
108
109
110
111
112
|
#!/usr/bin/perl
use strict;
use Test::More;
use File::Path qw(make_path);
use File::Basename qw(dirname);
use lib dirname(dirname(__FILE__));
use Test::DH;
use Debian::Debhelper::Dh_Lib qw(!dirname);
plan(tests => 1);
our @TEST_DH_EXTRA_TEMPLATE_FILES = (qw(
debian/changelog
debian/control
debian/foo.user.service
debian/baz.user.service
));
sub read_script {
my ($package, $name) = @_;
my @lines;
foreach my $script (find_script($package, $name)) {
open(my $fh, '<', $script) or die("open($script): $!");
push @lines, $_ for <$fh>;
close($fh);
}
return @lines;
}
sub _unit_check_user_enabled {
my ($package, $unit, $enabled) = @_;
my $verb = $enabled ? "is" : "isnt";
my $matches;
my @postinst = read_script($package, 'postinst');
# Match exactly two tab character. The "dont-enable" script has
# an "enable" line for re-enabling the service if the admin had it
# enabled, but we do not want to include that in our count.
$matches = grep { m{^\t\tif deb-systemd-helper( --\w+)* --user was-enabled.*'\Q$unit'} } @postinst;
is($matches, $enabled, "$unit $verb enabled");
}
sub _unit_check_user_started {
my ($package, $unit, $started) = @_;
my $verb = $started ? "is" : "isnt";
my $matches;
my @postinst = read_script($package, 'postinst');
# Match exactly two tab character. The "dont-enable" script has
# an "enable" line for re-enabling the service if the admin had it
# enabled, but we do not want to include that in our count.
$matches = grep { m{deb-systemd-invoke --user restart.*'\Q$unit'} } @postinst;
is($matches, $started, "$unit $verb started");
my @prerm = read_script($package, 'prerm');
$matches = grep { m{deb-systemd-invoke --user stop.*'\Q$unit'} } @prerm;
is($matches, $started, "$unit $verb stopped");
}
sub is_enabled { _unit_check_user_enabled(@_, 1); }
sub isnt_enabled { _unit_check_user_enabled(@_, 0); }
sub is_started { _unit_check_user_started(@_, 1); }
sub isnt_started { _unit_check_user_started(@_, 0); }
each_compat_subtest {
my ($compat) = @_;
make_path('debian/foo/usr/lib/systemd/user/');
copy_file('debian/foo.user.service', 'debian/foo/usr/lib/systemd/user/bar.service');
ok(run_dh_tool('dh_installsystemduser'));
ok(-e 'debian/foo/usr/lib/systemd/user/foo.service');
is_enabled('foo', 'foo.service');
is_enabled('foo', 'bar.service');
if ($compat > 13) {
is_started('foo', 'foo.service');
is_started('foo', 'bar.service');
} else {
isnt_started('foo', 'foo.service');
isnt_started('foo', 'bar.service');
}
ok(run_dh_tool('dh_clean'));
ok(run_dh_tool('dh_installsystemduser'));
ok(-e 'debian/foo/usr/lib/systemd/user/foo.service');
ok(! -e 'debian/foo/usr/lib/systemd/user/baz.service');
is_enabled('foo', 'foo.service');
isnt_enabled('foo', 'baz.service');
if ($compat > 13) {
is_started('foo', 'foo.service');
isnt_started('foo', 'baz.service');
} else {
isnt_started('foo', 'bar.service');
isnt_started('foo', 'baz.service');
}
ok(run_dh_tool('dh_clean'));
ok(run_dh_tool('dh_installsystemduser', '--name', 'baz'));
ok(! -e 'debian/foo/usr/lib/systemd/user/foo.service');
ok(-e 'debian/foo/usr/lib/systemd/user/baz.service');
isnt_enabled('foo', 'foo.service');
is_enabled('foo', 'baz.service');
if ($compat > 13) {
isnt_started('foo', 'foo.service');
is_started('foo', 'baz.service');
} else {
isnt_started('foo', 'foo.service');
isnt_started('foo', 'baz.service');
}
ok(run_dh_tool('dh_clean'));
};
|
