1556d21850
The openssl rehash command is not available on some platforms including Windows. This change skips the associated tests if rehash is not available. Reviewed-by: Richard Levitte <levitte@openssl.org>
68 lines
2.1 KiB
Perl
68 lines
2.1 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");
|
|
|
|
#If "openssl rehash -help" fails it's most likely because we're on a platform
|
|
#that doesn't support the rehash command (e.g. Windows)
|
|
plan skip_all => "test_rehash is not available on this platform"
|
|
unless run(app(["openssl", "rehash", "-help"]));
|
|
|
|
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);
|
|
}
|
|
}
|