e008d1b267
If test/recipes/40-test_rehash.t is executed as root, the last test will fail, since the created directory will remain writable no matter what. Make sure it complains loudly about being run as root. Reviewed-by: Rich Salz <rsalz@openssl.org>
63 lines
1.8 KiB
Perl
63 lines
1.8 KiB
Perl
#! /usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Spec::Functions;
|
|
use File::Copy;
|
|
use File::Basename;
|
|
use OpenSSL::Test qw/:DEFAULT top_file/;
|
|
|
|
setup("test_rehash");
|
|
|
|
plan tests => 5;
|
|
|
|
indir "rehash.$$" => sub {
|
|
prepare();
|
|
ok(run(app(["openssl", "rehash", curdir()])),
|
|
'Testing normal rehash operations');
|
|
}, create => 1, cleanup => 1;
|
|
|
|
indir "rehash.$$" => sub {
|
|
prepare(sub { chmod 400, $_ foreach (@_); });
|
|
ok(run(app(["openssl", "rehash", curdir()])),
|
|
'Testing rehash operations on readonly files');
|
|
}, create => 1, cleanup => 1;
|
|
|
|
indir "rehash.$$" => sub {
|
|
ok(run(app(["openssl", "rehash", curdir()])),
|
|
'Testing rehash operations on empty directory');
|
|
}, create => 1, cleanup => 1;
|
|
|
|
indir "rehash.$$" => sub {
|
|
prepare();
|
|
chmod 0500, curdir();
|
|
SKIP: {
|
|
if (!ok(!open(FOO, ">unwritable.txt"),
|
|
"Testing that we aren't running as a priviledged user, such as root")) {
|
|
close FOO;
|
|
skip "It's pointless to run the next test as root", 1;
|
|
}
|
|
isnt(run(app(["openssl", "rehash", curdir()])), 1,
|
|
'Testing rehash operations on readonly directory');
|
|
}
|
|
chmod 0700, curdir(); # make it writable again, so cleanup works
|
|
}, create => 1, cleanup => 1;
|
|
|
|
sub prepare {
|
|
my @sourcefiles =
|
|
sort map { glob(top_file('certs', 'demo', "*.$_")) } ('pem',
|
|
'crt',
|
|
'cer',
|
|
'crl');
|
|
my @destfiles = ();
|
|
foreach (@sourcefiles) {
|
|
copy($_, curdir());
|
|
push @destfiles, catfile(curdir(), basename($_));
|
|
}
|
|
foreach (@_) {
|
|
die "Internal error, argument is not CODE"
|
|
unless (ref($_) eq 'CODE');
|
|
$_->(@destfiles);
|
|
}
|
|
}
|