提交 127d2590 编写于 作者: R Richard Levitte

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: NRich Salz <rsalz@openssl.org>
上级 88b8a527
...@@ -295,7 +295,7 @@ int main(int argc, char *argv[]) ...@@ -295,7 +295,7 @@ int main(int argc, char *argv[])
} }
if (!num_failed) { if (!num_failed) {
fprintf(stdout, "ok (ran %d tests)\n", num_all); fprintf(stdout, "success (ran %d tests)\n", num_all);
return EXIT_SUCCESS; return EXIT_SUCCESS;
} else { } else {
fprintf(stdout, "%d of %d tests failed!\n", num_failed, num_all); fprintf(stdout, "%d of %d tests failed!\n", num_failed, num_all);
......
#! /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");
#! /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');
#! /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");
#! /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");
#! /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");
#! /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");
#! /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");
#! /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");
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册