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");
|
||
|
|
}
|
||
|
|
}
|