mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-01-18 13:44:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

UTF-8 not easily supported on VMS command line yet

Browse Source 
Some tests are designed to test UTF-8 on the command line.
We simply disable those on VMS.

Reviewed-by: Paul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15823)
This commit is contained in:
Richard Levitte 2021-06-16 06:47:58 +02:00
parent e7137c8497
commit 46399d9db2
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/recipes/25-test_x509.t
View File

@ -40,6 +40,7 @@ is(cmp_text($out_utf8, $utf),
SKIP: {
skip "DES disabled", 1 if disabled("des");
skip "VMS doesn't support command line UTF-8", 1 if $^O eq 'VMS';
my $p12 = srctop_file("test", "shibboleth.pfx");
my $p12pass = "σύνθημα γνώρισμα";

17
test/recipes/80-test_pkcs12.t
View File

@ -40,7 +40,7 @@ if (eval { require Win32::API; 1; }) {
}
} elsif ($^O eq "MSWin32") {
plan skip_all => "Win32::API unavailable";
} else {
} elsif ($^O ne "VMS") {
# Running MinGW tests transparently under Wine apparently requires
# UTF-8 locale...
@ -63,11 +63,16 @@ ok(run(test(["pkcs12_format_test", "-legacy"])), "test pkcs12 formats using lega
# Test with a non-default library context (and no loaded providers in the default context)
ok(run(test(["pkcs12_format_test", "-context"])), "test pkcs12 formats using a non-default library context");
# just see that we can read shibboleth.pfx protected with $pass
ok(run(app(["openssl", "pkcs12", "-noout",
"-password", "pass:$pass",
"-in", srctop_file("test", "shibboleth.pfx")])),
"test_load_cert_pkcs12");
SKIP: {
skip "VMS doesn't have command line UTF-8 support yet in DCL", 1
if $^O eq "VMS";
# just see that we can read shibboleth.pfx protected with $pass
ok(run(app(["openssl", "pkcs12", "-noout",
"-password", "pass:$pass",
"-in", srctop_file("test", "shibboleth.pfx")])),
"test_load_cert_pkcs12");
}
my @path = qw(test certs);
my $outfile1 = "out1.p12";