]>
git.ipfire.org Git - thirdparty/openssl.git/blob - test/testlib/OpenSSL/Test/Simple.pm
1 package OpenSSL
::Test
::Simple
;
7 use vars
qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
10 @EXPORT = qw(simple_test);
16 # name (used with setup())
17 # algorithm (used to check if it's at all supported)
18 # name of binary (the program that does the actual test)
20 my ($name, $prgr, $algo, @rest) = @_;
26 skip
"$algo is not supported by this OpenSSL build, skipping this test...", 1
27 if $algo && run
(app
(["openssl", "no-$algo"]));
29 ok
(run
(test
([$prgr])), "running $prgr");