[thirdparty/openssl.git] / test / testlib / OpenSSL / Test / Simple.pm

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");
    }
}
Commit	Line	Data
93de4f58 RL	1	package OpenSSL::Test::Simple;
	2
	3	use strict;
	4	use warnings;
	5
	6	use Exporter;
	7	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
	8	$VERSION = "0.1";
	9	@ISA = qw(Exporter);
	10	@EXPORT = qw(simple_test);
	11
	12
93de4f58 RL	13	use OpenSSL::Test;
	14
	15	# args:
	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)
	19	sub simple_test {
	20	my ($name, $prgr, $algo, @rest) = @_;
	21
	22	setup($name);
	23
	24	plan tests => 1;
	25	SKIP: {
	26	skip "$algo is not supported by this OpenSSL build, skipping this test...", 1
	27	if $algo && run(app(["openssl", "no-$algo"]));
	28
	29	ok(run(test([$prgr])), "running $prgr");
	30	}
	31	}