Commit 708a6a17 authored by Richard Levitte's avatar Richard Levitte
Browse files

OpenSSL::Test: add data_dir() 



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

Reviewed-by: default avatarAndy Polyakov <appro@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5928)
parent 63a65d16

util/perl/OpenSSL/Test.pm

+23 −0
Original line number Diff line number Diff line
@@ -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);