mirror of
https://github.com/openssl/openssl.git
synced 2024-12-04 15:34:41 +08:00
TEST: Cleanup test recipes
Name mixups cleared, and a few more test case result files that arent't removed, making forensics on failed tests easier. Reviewed-by: Paul Dale <pauli@openssl.org> (Merged from https://github.com/openssl/openssl/pull/14505)
This commit is contained in:
parent
bf5b37cedf
commit
53eecb5de5
@ -11,7 +11,7 @@ use OpenSSL::Test qw(:DEFAULT bldtop_dir);
|
||||
use OpenSSL::Test::Simple;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
setup("test_internal_provider");
|
||||
setup("test_internal_keymgmt");
|
||||
|
||||
$ENV{OPENSSL_MODULES} = bldtop_dir("test");
|
||||
|
||||
|
@ -190,10 +190,9 @@ sub comparefile {
|
||||
my $buffer;
|
||||
my $BUFSIZE = 1024;
|
||||
read($out, $buffer, $BUFSIZE) or die "unable to read";
|
||||
# Not unlinking $outfile
|
||||
|
||||
my $line = uc unpack("H*", $buffer);
|
||||
close($out);
|
||||
# Not unlinking $outfile
|
||||
|
||||
if ($line eq $expect) {
|
||||
return 1;
|
||||
|
@ -32,16 +32,21 @@ my $utf8_pem = srctop_file($folder, "utf8_leaf.pem");
|
||||
my $ascii_chain_pem = srctop_file($folder, "ascii_chain.pem");
|
||||
my $utf8_chain_pem = srctop_file($folder, "utf8_chain.pem");
|
||||
|
||||
my $out = "san.tmp";
|
||||
my $out;
|
||||
my $outcnt = 0;
|
||||
sub outname {
|
||||
$outcnt++;
|
||||
return "sanout-$outcnt.tmp";
|
||||
}
|
||||
|
||||
$out = outname();
|
||||
ok(run(app(["openssl", "x509", "-ext", "subjectAltName", "-in", $ascii_pem, "-noout", "-out", $out])));
|
||||
is(cmp_text($out, srctop_file($folder, "san.ascii")), 0, 'Comparing othername for ASCII domain');
|
||||
|
||||
$out = outname();
|
||||
ok(run(app(["openssl", "x509", "-ext", "subjectAltName", "-in", $utf8_pem, "-noout", "-out", $out])));
|
||||
is(cmp_text($out, srctop_file($folder, "san.utf8")), 0, 'Comparing othername for IDN domain');
|
||||
|
||||
unlink $out;
|
||||
|
||||
ok(run(app(["openssl", "verify", "-nameopt", "utf8", "-no_check_time", "-verify_email", "学生\@elementary.school.example.com", "-CAfile", $ascii_chain_pem, $ascii_pem])));
|
||||
ok(run(app(["openssl", "verify", "-nameopt", "utf8", "-no_check_time", "-verify_email", "医生\@大学.example.com", "-CAfile", $utf8_chain_pem, $utf8_pem])));
|
||||
|
||||
|
@ -12,7 +12,7 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT data_file/;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
setup("test_cmp_lib");
|
||||
setup("test_cmp_hdr");
|
||||
|
||||
plan skip_all => "This test is not supported in a no-cmp build"
|
||||
if disabled("cmp");
|
||||
|
@ -12,7 +12,7 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT data_file/;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
setup("test_cmp_lib");
|
||||
setup("test_cmp_status");
|
||||
|
||||
plan skip_all => "This test is not supported in a no-cmp build"
|
||||
if disabled("cmp");
|
||||
|
@ -11,7 +11,7 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
|
||||
my $test_name = "test_sslextension";
|
||||
my $test_name = "test_sslvertol";
|
||||
setup($test_name);
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
|
@ -10,7 +10,7 @@ use strict;
|
||||
use warnings;
|
||||
use OpenSSL::Test;
|
||||
|
||||
setup("ssl_ctx_test");
|
||||
setup("test_ssl_ctx");
|
||||
|
||||
plan tests => 1;
|
||||
ok(run(test(["ssl_ctx_test"])));
|
||||
|
@ -9,7 +9,7 @@
|
||||
use OpenSSL::Test;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
my $test_name = "tls13encryption";
|
||||
my $test_name = "test_tls13encryption";
|
||||
setup($test_name);
|
||||
|
||||
plan skip_all => "$test_name is not supported in this build"
|
||||
|
@ -9,7 +9,7 @@
|
||||
use OpenSSL::Test;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
my $test_name = "tls13secrets";
|
||||
my $test_name = "test_tls13secrets";
|
||||
setup($test_name);
|
||||
|
||||
plan skip_all => "$test_name is not supported in this build"
|
||||
|
@ -11,7 +11,7 @@ use OpenSSL::Test;
|
||||
use OpenSSL::Test::Utils;
|
||||
use OpenSSL::Test qw/:DEFAULT bldtop_file data_file srctop_file cmdstr/;
|
||||
|
||||
setup("test_external");
|
||||
setup("test_external_gost_engine");
|
||||
|
||||
plan skip_all => "No external tests in this configuration"
|
||||
if disabled("external-tests");
|
||||
|
@ -11,7 +11,7 @@ use OpenSSL::Test;
|
||||
use OpenSSL::Test::Utils;
|
||||
use OpenSSL::Test qw/:DEFAULT bldtop_file data_file srctop_file cmdstr/;
|
||||
|
||||
setup("test_external");
|
||||
setup("test_external_pyca");
|
||||
|
||||
plan skip_all => "No external tests in this configuration"
|
||||
if disabled("external-tests");
|
||||
|
Loading…
Reference in New Issue
Block a user