blob: b969314bf550a766f020887d6077ad02593f85e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use File::stat;
use T;
system_ok('dh_runit', 'debian/test.runscript', 'name=test');
my $path = 'debian/dh-runit-test/var/lib/runit/supervise/test';
ok(-d $path, 'supervise directory correctly created');
my $info = stat($path);
my $mode = sprintf("%o", $info->mode & 0777);
is($mode, '700', 'supervise directory have conservative permissions');
my $noreplace = 'debian/dh-runit-test/var/lib/runit/noreplace/test';
ok(!-f $noreplace, 'noreplace file is correctly absent');
|
