test/recipes/02-test_localetest.t

   1 #! /usr/bin/env perl
   2 # Copyright 2017-2022 The OpenSSL Project Authors. All Rights Reserved.
   3 # Copyright (c) 2017, Oracle and/or its affiliates.  All rights reserved.
   4 #
   5 # Licensed under the Apache License 2.0 (the "License").  You may not use
   6 # this file except in compliance with the License.  You can obtain a copy
   7 # in the file LICENSE in the source distribution or at
   8 # https://www.openssl.org/source/license.html
   9
  10 use OpenSSL::Test;
  11 use OpenSSL::Test::Utils;
  12
  13 setup("test_locale");
  14
  15 plan skip_all => "Locale tests not available on Windows or VMS"
  16     if $^O =~ /^(VMS|MSWin32)$/;
  17
  18 plan tests => 3;
  19
  20 ok(run(test(["evp_pkey_ctx_new_from_name"])), "running evp_pkey_ctx_new_from_name without explicit context init");
  21
  22 $ENV{LANG} = "C";
  23 ok(run(test(["localetest"])), "running localetest");
  24
  25 $ENV{LANG} = "tr_TR.UTF-8";
  26 ok(run(test(["localetest"])), "running localetest with Turkish locale");