mirror of
https://github.com/QuasarApp/openssl.git
synced 2025-04-30 03:34:39 +00:00
fd99c6b599
It became tedious as well as error prone to have all recipes use Test::More as well as OpenSSL::Test. The easier way is to make OpenSSL::Test an extension of Test::More, thereby having all version checks as well as future checks firmly there. Additionally, that allows us to extend existing Test::More functions if the need would arise. Reviewed-by: Rich Salz <rsalz@openssl.org>
32 lines
673 B
Perl
32 lines
673 B
Perl
package OpenSSL::Test::Simple;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Exporter;
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
|
$VERSION = "0.1";
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(simple_test);
|
|
|
|
|
|
use OpenSSL::Test;
|
|
|
|
# args:
|
|
# name (used with setup())
|
|
# algorithm (used to check if it's at all supported)
|
|
# name of binary (the program that does the actual test)
|
|
sub simple_test {
|
|
my ($name, $prgr, $algo, @rest) = @_;
|
|
|
|
setup($name);
|
|
|
|
plan tests => 1;
|
|
SKIP: {
|
|
skip "$algo is not supported by this OpenSSL build, skipping this test...", 1
|
|
if $algo && run(app(["openssl", "no-$algo"]));
|
|
|
|
ok(run(test([$prgr])), "running $prgr");
|
|
}
|
|
}
|