Add recipes for individual block ciphers, stream ciphers and digests

These recipes all correspond to a compiled test program.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2015-04-17 20:04:19 +02:00
parent f3356b7f49
commit 894025c642
18 changed files with 216 additions and 0 deletions

12
test/recipes/05-test_bf.t Normal file
View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

12
test/recipes/05-test_wp.t Normal file
View File

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