diff options
Diffstat (limited to 't/924903.t')
-rw-r--r-- | t/924903.t | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1,7 +1,7 @@ | |||
1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
2 | use strict; | 2 | use strict; |
3 | use warnings; | 3 | use warnings; |
4 | use Test::More tests => 3; | 4 | use Test::More tests => 4; |
5 | use File::stat; | 5 | use File::stat; |
6 | use T; | 6 | use T; |
7 | 7 | ||
@@ -11,3 +11,6 @@ ok(-d $path, 'supervise directory correctly created'); | |||
11 | my $info = stat($path); | 11 | my $info = stat($path); |
12 | my $mode = sprintf("%o", $info->mode & 0777); | 12 | my $mode = sprintf("%o", $info->mode & 0777); |
13 | is($mode, '700', 'supervise directory have conservative permissions'); | 13 | is($mode, '700', 'supervise directory have conservative permissions'); |
14 | |||
15 | my $noreplace = 'debian/dh-runit-test/var/lib/runit/noreplace/test'; | ||
16 | ok(!-f $noreplace, 'noreplace file is correctly absent'); | ||