use OpenSSL::Test::Simple;
- simple_test("my_test_name", "des", "destest");
+ simple_test("my_test_name", "destest", "des");
=head1 DESCRIPTION
=cut
use OpenSSL::Test;
+use OpenSSL::Test::Utils;
=over 4
# 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) = @_;
+ my ($name, $prgr, @algos) = @_;
setup($name);
+ if (scalar(disabled(@algos))) {
+ if (scalar(@algos) == 1) {
+ plan skip_all => $algos[0]." is not supported by this OpenSSL build";
+ } else {
+ my $last = pop @algos;
+ plan skip_all => join(", ", @algos)." and $last are not supported by this OpenSSL build";
+ }
+ }
+
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");
- }
+ ok(run(test([$prgr])), "running $prgr");
}
=head1 SEE ALSO
=head1 AUTHORS
Richard Levitte E<lt>levitte@openssl.orgE<gt> with inspiration
-from Rich Salz E<lt>rsalz@openssl.org<gt>.
+from Rich Salz E<lt>rsalz@openssl.orgE<gt>.
=cut