4 use OpenSSL::Test qw/:DEFAULT srctop_file/;
11 my $pass = "σύνθημα γνώρισμα";
14 if (eval { require Win32::Console; 1; }) {
15 # Trouble is that Win32 perl uses CreateProcessA, which
16 # makes it problematic to pass non-ASCII arguments. The only
17 # feasible option is to pick one language, set corresponding
18 # code page and reencode the problematic string...
20 $savedcp = Win32::Console::OutputCP();
21 Win32::Console::OutputCP(1253);
22 $pass = Encode::encode("cp1253",Encode::decode("utf-8",$pass));
24 # Running MinGW tests transparenly under Wine apparently requires
27 foreach(`locale -a`) {
29 if ($_ =~ m/^C\.UTF\-?8/i) {
36 # just see that we can read shibboleth.pfx protected with $pass
37 ok(run(app(["openssl", "pkcs12", "-noout",
38 "-password", "pass:$pass",
39 "-in", srctop_file("test", "shibboleth.pfx")])),
42 Win32::Console::OutputCP($savedcp) if (defined($savedcp));