Commit 127d2590 authored by Richard Levitte's avatar Richard Levitte
Browse files

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: default avatarRich Salz <rsalz@openssl.org>
parent 88b8a527

test/constant_time_test.c

+1 −1
Original line number Diff line number Diff line
@@ -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);

test/recipes/90-test_constant_time.t

0 → 100644
+12 −0
Original line number Diff line number Diff line 
#! /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");

test/recipes/90-test_gost2814789.t

0 → 100644
+14 −0
Original line number Diff line number Diff line 
#! /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');

test/recipes/90-test_heartbeat.t

0 → 100644
+12 −0
Original line number Diff line number Diff line 
#! /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");

test/recipes/90-test_ige.t

0 → 100644
+12 −0
Original line number Diff line number Diff line 
#! /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");