Add recipes for misc other things we want to test

Note that this required a change in constant_time_test.c, as it says
"ok", which interferes with what Test::Harness expects to see.  I had
constant_time_test.c say "success" instead.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2015-04-19 22:26:12 +02:00
parent 88b8a5279f
commit 127d25903f
9 changed files with 99 additions and 1 deletions

View File

@ -295,7 +295,7 @@ int main(int argc, char *argv[])
}
if (!num_failed) {
fprintf(stdout, "ok (ran %d tests)\n", num_all);
fprintf(stdout, "success (ran %d tests)\n", num_all);
return EXIT_SUCCESS;
} else {
fprintf(stdout, "%d of %d tests failed!\n", num_failed, num_all);

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_constant_time");
plan tests => 1;
ok(run(test(["constant_time_test"])), "running constant_time_test");

View File

@ -0,0 +1,14 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test qw/:DEFAULT top_dir/;
setup("test_gost2814789");
$ENV{OPENSSL_ENGINES} =
$ENV{BIN_D} ? top_dir($ENV{BIN_D}) : top_dir("engines", "ccgost");
plan tests => 1;
ok(run(test(["gost2814789test"])), 'running gost2814789test');

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_heartbeat");
plan tests => 1;
ok(run(test(["heartbeat_test"])), "running heartbeat_test");

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_ige");
plan tests => 1;
ok(run(test(["igetest"])), "running igetest");

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_jpake");
plan tests => 1;
ok(run(test(["jpaketest"])), "running jpaketest");

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_p5_crpt2");
plan tests => 1;
ok(run(test(["p5_crpt2_test"])), "running p5_crpt2_test");

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_srp");
plan tests => 1;
ok(run(test(["srptest"])), "running srptest");

View File

@ -0,0 +1,12 @@
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_v3name");
plan tests => 1;
ok(run(test(["v3nametest"])), "running v3nametest");