wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

OpenSSL::Test: add data_dir()

Browse source 
For test recipes that want to use the directory of the data directory
or a subdirectory thereof, rather than just individual files.

Reviewed-by: Andy Polyakov <appro@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5928)
This commit is contained in:
Richard Levitte 2018-04-11 09:54:59 +02:00
parent 63a65d16ac
commit 708a6a1759
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
util/perl/OpenSSL/Test.pm
View file

@ -607,6 +607,23 @@ sub srctop_file {
=over 4
=item B<data_dir LIST>
LIST is a list of directories that make up a path from the data directory
associated with the test (see L</DESCRIPTION> above).
C<data_dir> returns the resulting directory as a string, adapted to the local
operating system.
=back
=cut
sub data_dir {
return __data_dir(@_);
}
=over 4
=item B<data_file LIST, FILENAME>
LIST is a list of directories that make up a path from the data directory
@ -967,6 +984,12 @@ sub __data_file {
return catfile($directories{SRCDATA},@_,$f);
}
sub __data_dir {
BAIL_OUT("Must run setup() first") if (! $test_name);
return catdir($directories{SRCDATA},@_);
}
sub __results_file {
BAIL_OUT("Must run setup() first") if (! $test_name);